Bonjour

Je suis sur une programmation d'un formulaire Userform pour une saisie de données
J'ai suivi à la lettre la formule suivante et!!!!
La quatrième ligne s'affiche en jaune ? (derligne = Sheets ........

Je pense que la solution est dans ce forum Merci !!!


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton1_Click()
Dim derligne As Integer
        If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then
        derligne = Sheets("contactclient").Range("A456541").End(x1Up).Row + 1
        Cells(derligne, 1) = TextBox1.Value
        Cells(derligne, 2) = TextBox9.Value
        Cells(derligne, 3) = TextBox3.Value
        Cells(derligne, 4) = TextBox4.Value
        Cells(derligne, 5) = TextBox5.Value
        Cells(derligne, 6) = TextBox6.Value
        Cells(derligne, 7) = TextBox7.Value
        Cells(derligne, 8) = TextBox8.Value
 
        End If
 
 
 
         Unload UserForm1
         Load UserForm1
         UserForm1.Show
End Sub