Userform simple

[CATPLUS]

Bonjour
Je viens une nouvelle fois vous solliciter
Je sélectionne dans la comboBox une donnée et le transfert se fait dans la cellule b9, lors de la seconde sélection la donnée est toujours dans la même cellule, je n'arrive pas a incrémenter sur la cellule suivante.
Pourriez-vous SVP de me donner une piste.
Cordialement

 

[Modeste]

Re : Userform simple

Bonsoir CATPLUS,

je n'arrive pas a incrémenter sur la cellule suivante

Tu veux dire que chaque fois que tu sélectionnes un élément dans ta ComboBox, tu veux copier cette valeur dans la cellule sous la précédente ... ou à droite de celle-ci?

 

[CATPLUS]

Re : Userform simple

Merci pour la réponse
Je souhaite copier sous la précédente
Cordialement

 

[Modeste]

Re : Userform simple

Re,

Si on considère (à confirmer donc) qu'il y aura, dès le départ, une valeur en A8 et que les cellules sous celle-ci devront se remplir à chaque changement dans la ComboBox, il me semble que j'essaierais

Private Sub ComboBox1_Change()
Sheets(1).Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = ComboBox1.Text
End Sub

 

[et1000lio]

Re : Userform simple

Bonsoir à tous,

Aie trop tard (je ne suis pas habitué au mode de rédaction de ce forum)

Un autre code en fonction de la cellule active

Private Sub ComboBox1_Change()
ActiveCell.Offset(1, 0).Select
ActiveCell = ComboBox1.Text
End Sub

et1000lio

 

[CATPLUS]

Re : Userform simple

Cela fonctionne parfaitement
En vous remerciant pour vos réponses rapides.
Cordialement

Où inscrire RESOLU dans l'intitulé SVP

 

[CATPLUS]

Re : Userform simple

Bonjour
Après modification (tout fonctionne), j'ai une nouvelle demande
Mettre le premier enregistrement dans la cellule B9
Creer un bouton (dans l'Userfrom) pour supprimer le dernier enregistrement dans la cellule
Merci de votre aide
Cordialement