Code VBA : Ajouter dans une colonne vide Fermé

Question

Bonjour, je code depuis peu et il me reste peu de temps pour finir mon travail... J'aimerai pouvoir incrémenter mes données en colonne, je m'explique:

j'ai créer un bouton dans excel renvoyant à mon userform, je cherche à ce que les données rentrées puissent s'ajouter dans la colonne voulue 
 un peu comme ce code mais il marche pas

With UserAjouter1

If "K4" = "" Then
feuille.Range("K4").Value = TextBox1
feuille.Range("K5").Value = TextBox2
feuille.Range("K6").Value = TextBox3
Else
  If "L4" = " " Then
feuille.Range("L4").Value = TextBox1
feuille.Range("L5").Value = TextBox2
feuille.Range("L6").Value = TextBox3
Else
feuille.Range("M4").Value = TextBox1
feuille.Range("M5").Value = TextBox2
feuille.Range("M6").Value = TextBox3

End If
        End If
      
End With

Merci à ceux qui pourront me donner quelques idées/conseils

michel_m · Answer

Bonjour

SI L4 est non vide
col = Rows(4).Find("", Range("L4"), xlValues).ColumnCells(4,col)=textbox....  
 Michel

michel_m · Answer

userajouter1: c'est quoi ?

c'est en colonne ou en ligne ?
 K---> L ou M ?
ou ligne 4,5,6

tes 2 macros ne font pas la même chose...

au besoin:
Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/et coller le raccourci  par un clic droit sur le lien proposé dans le message de réponse 
Dans l’attente


 Michel

Gloups · Answer

voici le lien http://www.cjoint.com/c/FCuq4nADIB1

Je me suis trompé c'est bien J remplie et K L à remplir, Userajouter et un userfor pour saisir les 3 données que je cherche à placer en K4, K5,K6 ou en L4,L5,L6 ....

michel_m · Answer

Bonjour

Private Sub CmdAjouter1_Click()Dim col As ByteWith ActiveSheet    col = Rows(4).Find("", .Range("D4"), xlValues).Column    .Cells(4, col) = Me.TextBox1    .Cells(5, col) = Me.TextBox2    .Cells(6, col) = Me.TextBox3 End With

Code VBA : Ajouter dans une colonne vide

4 réponses

Discussions similaires