Bonjour,
Quand vous utilisez With, tout les objets avec un point devant ont pour parent l'objet du With.
Donc
Private Sub commandbutton1_click() 'nouveau client
Dim derligne As Integer
Sheets("base clients").Range("m2") = Sheets("base clients").Range("m2") + 1
If MsgBox("confirmez-vous l'ajout du client?", vbYesNo, "confirmation") = vbYes Then
With Worksheets("Base clients")
derligne = Sheets("base clients").Range("A456541").End(xlUp).Row + 1
.Cells(derligne, 1) = TextBox1.Value
.Cells(derligne, 3) = TextBox2.Value
.Cells(derligne, 4) = TextBox3.Value
.Cells(derligne, 5) = TextBox4.Value
.Cells(derligne, 6) = TextBox5.Value
.Cells(derligne, 7) = TextBox6.Value
.Cells(derligne, 8) = TextBox7.Value
.Cells(derligne, 9) = TextBox8.Value
.Cells(derligne, 2) = Range("l2")
End With
End If
MsgBox ("Client Ajouter")
Unload Me
usf_nouveauclient.Show
End Sub
En soit le point sert de lien entre deux objets. Ici on dit avec la feuille base clients, on prend la cellule dernière ligne colonne 1 DE la feuille Base clients.
Le point est essentiel ici, comme dans mon exemple plus haut. Si vous ne mettez pas le point, malgré le with, vous travaillerez avec les cellules de la feuille active car il n'y aura pas de lien avec la feuille With via le point.
En espérant que mes explications vous fassent comprendre l'intérêt de la qualification.
Cdlt,