Mettre plusieur valeur textbox dans une colonne

Bonjour,

J'aimerais mettre la valeur de plusieurs text box dans une colonne, voici mon code :

With sheets("BBD")
    lfin = .Cells(Rows.Count, 1).End(xlUp).Row + 1

    .Cells(lfin, 1).Value = TextBox11.Value
    .Cells(lfin, 1).Value = TextBox26.Value
    .Cells(lfin, 1).Value = TextBox12.Value
    .Cells(lfin, 1).Value = TextBox31.Value

End With

ce qui donnerais dans la colonne A :

vert

bleu

rouge

Merci, pour votre aide

Bonjour,

le problème dans votre code c'est le lfin qui ne varie pas...

With sheets("BBD")
    lfin = .Cells(Rows.Count, 1).End(xlUp).Row + 1

    .Cells(lfin, 1).Value = TextBox11.Value
    .Cells(lfin+1, 1).Value = TextBox26.Value
    .Cells(lfin+2, 1).Value = TextBox12.Value
    .Cells(lfin+3, 1).Value = TextBox31.Value

End With

ici il y a un décalage de une ligne pour chaque valeur...

Et si vos textbox étaient nommées chronologiquement alors vous pourriez utilisez une boucle

en renommant par exemple textbox11 en textbox100, la 26 en 101, la 12 en 102 et la 31 en 103

With sheets("BBD")
    lfin = .Cells(Rows.Count, 1).End(xlUp).Row + 1
For i=0 to 3
    .Cells(lfin + i, 1).Value = Control("TextBox" & i +100).Value
Next i

End With

@ bientôt

LouReeD

Merci de ta réponse, j ai opté pour la première solution

.Cells(lfin, 1).Value = TextBox11.Value
    .Cells(lfin+1, 1).Value = TextBox26.Value
    .Cells(lfin+2, 1).Value = TextBox12.Value
    .Cells(lfin+3, 1).Value = TextBox31.Value

car ca serais compliqu de tout changer, mais voila ce que ca me donne, une solution pour qu'il n y aille pas de ligne vide entre les 2?

• XX
  XXX
  XXXX
  XXXXX
  X
  XX
  XXX
  XXXX
  XXXXX

Bonsoir,

je ne comprend pas...

Ci-joint un fichier avec les trois solutions à votre problème... 3 ?

Oui 3, car j'ai ajouté, suite à :

car ca serais compliqué de tout changer

En effet, plutôt que de modifier les noms des textbox, j'ai créé un tableau avec les numéros des textbox dans l'ordre de leur affichage dans la colonne...

J'ai légèrement commenté le code...

Ceci dit quelque soit la solution, il n'y a pas de ligne vide dans le résultat...

@ bientôt

LouReeD

ok merci beaucoup

De rien... merci pour vos merci

@ bientôt

LouReeD