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
Partager