XL 2013 [RESOLU] Valeur Textbox / combobox transposer sur cellules à la suite

BENAM69

XLDnaute Junior
Bonsoir à tous,

Cela fait 1 heure ou plus que je suis bloqué pour un truc aussi facile pour vous.

J'ai essayé avec cela :
VB:
Private Sub CommandButton1_Click()
    Dim DerLig As Long
    
    DerLig = Worksheets("Feuil1").Range("I" & Rows.Count).End(xlUp).Row + 1
    
    Worksheets("Feuil1").Range("I" & DerLig).Value = TextBox1
    Worksheets("Feuil1").Range("J" & DerLig).Value = TextBox2
 Worksheets("Feuil1").Range("K" & DerLig).Value = TextBox3
 Worksheets("Feuil1").Range("L" & DerLig).Value = Combobox1

    
End Sub
Cela fonctionne mais je ne sais pas comment démarrer le collage en I11.
Il me faut juste ajouter une variable qui me permet de coller les valeurs à partir de la cellule de démarrage I11.

Merci pour votre aide,
En Pj le fichier pour tester
Benam
 

Fichiers joints

fanfan38

XLDnaute Accro
Bonjour
Tu ajoute simplement après: DerLig = Worksheets("Feuil1").Range("I" & Rows.Count).End(xlUp).Row + 1
If DerLig < 11 Then DerLig = 11
A+ François
 

BENAM69

XLDnaute Junior
Bonjour
Tu ajoute simplement après: DerLig = Worksheets("Feuil1").Range("I" & Rows.Count).End(xlUp).Row + 1
If DerLig < 11 Then DerLig = 11
A+ François
Bonjour François

Merci pour cette ligne qui complète mon code.
Je savais que c'était qu'une ligne à mettre, je suis dégoûté d'avoir passé autant de temps dessus.

En tout cas merci encore pour ton aide

A+

Benam
 
Haut Bas