decalement de cellule en vba

[chinazzi]

Avec une combobox dans un formulaire, je peux choisir entre plusieurs données. Une fois mon choix effectué, un bouton me permet de placer la valeur dans la cellule "a2" par example, jusque là pas de probleme mais si je choisi une autre valeur je veux qu'elle s'inscrive en "a3" et là y a un gros soucis. merci pour votre aide. (je me sert du même bouton)

 

[Myta]

Salut chinazzi

Regarde si tu pourrais faire de quoi avec ceci

Cells(Range("A65535").End(xlUp).Row + 1, 1) = Ta_valeur

Mytå

 

[chinazzi]

ok ca fonctionne merci mais pourrais tu m'expliquer cela m'aiderais pour la suite.
d'autant plus que
Cells(Range("B65535").End(xlUp).Row + 1, 1) = Ta_valeur "ne décale pas la colonne B avec la selection d'une autre textbox
Cells(Range("C65535").End(xlUp).Row + 1, 1) = Ta_valeur "ne décale pas la colonne B avec la selection d'une autre textbox
comme vous pouvez le voir je ne suis pas encore au bout.
merci

 

[Myta]

Re chinazzi

Cells(Range("B65535").End(xlUp).Row + 1, 1) = Ta_valeur
Cells(Range("C65535").End(xlUp).Row + 1, 1) = Ta_valeur

Range("B65535").End(xlUp).Row te trouves la derniere ligne vide de la colonne B

Range("C65535").End(xlUp).Row te trouves la derniere ligne vide de la colonne C

Donc pour la colonne désirée faut modifier le code

alors Cells(Range("B65535").End(xlUp).Row + 1, 1) = Ta_valeur va devenir
Cells(Range("B65535").End(xlUp).Row + 1, 2) = Ta_valeur ou 2 représente la colonne B

et Cells(Range("C65535").End(xlUp).Row + 1, 1) = Ta_valeur va devenir
Cells(Range("C65535").End(xlUp).Row + 1, 3) = Ta_valeur ou 3 représente la colonne C

En espérant avoir été assez clair dans l'explication

A+ Mytå