Déplacer les informations UserForm à Cellule

Question

Bonjour Bonjour ! J'aimerais une fois de plus faire usage de vos connaissences !

J'ai demandé récement des astuces pour mon fichier xls la semaine passé (ici), CousinHub m'à beaucoup aidé sur ce coup ! Merci encore !

Cette fois ci j'aimerais que l'on m'explique comment faire pour prendre une donnée d'un TextBox et l'inserer dans une cellule.

Exemple:

Jai un TextBox que l'on appellera "TbxName" et qui sera fait pour y inserer le nom de famille. TbxName sera relié à la cellule de l'onglet "Description" dans la colonne "name" a la suite des autes données. Cette manoeuvre est l'explication dont j'ai besoin pour continuer mon fichier.

SO PLEASE EXCEL-PRATIQUE, PIMP MY XLS FILE !

cousinhub · Answer

Dans le code du Bouton de Commande, il te faut d'abord déterminer la première cellule vide de ton onglet Pour ce faire, plusieurs moyens, dont celui-ci : Dim DerCel As Range With Sheets("Description") Set DerCel = .Range("A65000").End(xlUp)(2) DerCel.Value = Me.TbxName 'si tu veux rajouter sur la même ligne, tu peux utiliser 'la variable DerCel.Row qui te donne la première ligne vide 'ou le décalage DerCel.Offset(NbLignes, NCcolonnes) End With Edit, Range("A65000") si la colonne des noms est bien en colonne A, à adapter... Edit2 : code modifié pour rajouter un point (.) devant Range Bon courage...

cousinhub · Answer

Re-,

Range("A65000").End(xlup) correspond à une remontée de la dernière cellule de la colonne A (j'aurais du mettre A65536), vers le haut, afin d'atterrir sur la dernière cellule remplie (comme si tu faisais un double clic sur le haut de la cellule A65536)

Le (2), juste derrière, te permet de décaler d'une ligne vers le bas, afin d'obtenir la première cellule vide, en partant du bas...

Admettons que tu aies un autre textbox, nommé TbxSurName (comme prénom.....)

Tu peux rentrer cette valeur comme ceci :

Dim DerCel As Range
With Sheets("Description")
    Set DerCel = .Range("A65000").End(xlUp)(2)
    DerCel.Value = Me.TbxName
    DerCel.Offset(0, 1).Value = Me.TbxSurName
    ' ou comme ceci :
    .Cells(DerCel.Row, 2).Value = Me.TbxSurName
    ' le 2 pour dire que c'est dans la 2ème colonne
End With

Attention, dans le code précédent, j'ai oublié de mettre un point (.) devant Range("A65000"), afin de dire à Excel que c'est bien sur l'onglet ("Description") qu'on cherche cette cellule (With Sheets("Description").

Bon courage

cousinhub · Answer

Re-, le but d'un forum est de faire profiter tout le monde... Je ne réponds pas aux MP non sollicités... Que se passe-t-il lorsque tu déroules le code? As-tu un message d'erreur Sinon, comme je l'ai dit plus haut, pour te référencer à l'onglet "Movements", il faut rajouter un point (.) devant Range, mais aussi devant Cells... Et cloturer ton bloc "With", par un "End With"... comme ceci : With Sheets("Movements") Set DerCel = .Range("A65536").End(X1Up)(2) .Cells(DerCel, 2).Value = Me.TbxName .Cells(DerCel, 3).Value = Me.TbxCAS .Cells(DerCel, 4).Value = Me.TbxBC .Cells(DerCel, 5).Value = Me.TbxSupplier .Cells(DerCel, 6).Value = Me.TbxNSpupplier .Cells(DerCel, 7).Value = Me.TbxStoPlace .Cells(DerCel, 8).Value = Me.TbxStock .Cells(DerCel, 9).Value = Me.TbxURL End With End Sub Edit, je viens de voir que tu as mis (X1Up), avec un "1" C'est un l (L minuscule) (XlUp)...

cousinhub · Answer

Re-, je ne sais pas pourquoi j'écris tout ça....... ainsi que ceci : C'est bien, de lire en diagonale, mais faut tout prendre, quand même.......