Textbox en lignes et en colonnes

Bonsoir !

J'ai retrouvé un fichier que j'avais créé il y a 7 ans, et que je voudrais adapter... Mais j'ai beaucoup oublié depuis !

j'ai ceci, qui récupère des entrées dans les textboxs d'un userform et qui les dispose en colonne :

num = Sheets("CALENDRIER").Range("IV12").End(xlToLeft).Column + 1

Cells(12, num).Value = Etude.Value

Cells(13, num).Value = CDate(DebutTer.Value)

Cells(14, num).Value = dureeTer.Value

Cells(15, num).Value = DebutDon.Value

Cells(16, num).Value = RetourTris.Value

Cells(17, num).Value = Presentation.Value

Je voudrais que les saisies se disposent en ligne... Comment faire ? Je ne sais plus entre les row, column, range, num... Suis perdue !

Grand merci d'avance à qui saura de donner un coup de main,

Bien cordialement,

Laure

Bonjour

Pour les lignes c'est Row

Un exemple de réalisation

Sub test()
Dim DerLigne As Long

  DerLigne = Range("A" & Rows.Count).End(xlUp).Row + 1
  Cells(DerLigne, "A").Value = Etude.Value
  Cells(DerLigne, "B").Value = CDate(DebutTer.Value)
  Cells(DerLigne, "C").Value = dureeTer.Value
  Cells(DerLigne, "D").Value = DebutDon.Value
  Cells(DerLigne, "E").Value = RetourTris.Value
  Cells(DerLigne, "F").Value = Presentation.Value

End Sub

Merci beaucoup !!

Rechercher des sujets similaires à "textbox lignes colonnes"