Bonjour, je ne comprends pas pourquoi le code ci-dessous ne fonctionne pas alors que je n'est aucun message d'erreur. Mon but est de modifier la valeur des cellules d'une feuille depuis un userform. Merci d'avance pour votre aide.

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
Private Sub CommandButton2_Click()
 
    Dim ligne As Integer
    Dim i As Range
 
  Set i = Sheets("Clients").Cells.Find(Me.ComboBox1.Value)
 
ligne = i.Row
 
    With Sheets("Clients")
    .Cells(ligne, 1).Value = TextBox1.Value
    .Cells(ligne, 2).Value = TextBox2.Value
    .Cells(ligne, 3).Value = TextBox3.Value
    .Cells(ligne, 4).Value = TextBox4.Value
    .Cells(ligne, 5).Value = TextBox5.Value
    .Cells(ligne, 6).Value = TextBox6.Value
    .Cells(ligne, 7).Value = TextBox7.Value
    End With
End Sub