Modification des cellules depuis UserForm

Version imprimable

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:

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

Bonjour,

Qu'est-ce qui ne fonctionne pas au juste ?
Que retourne Ligne lorsque tu passes la ligne 8 ?

Code:

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

PS: quand tu mets du code, utilise le bouton # en haut du message pour le baliser.
Et utilise l'indentation pour une meilleure lecture.

11/01/2016, 22h07
MatMut38

1 pièce(s) jointe(s)

Très bien je ne savais pas comment baliser le code car je suis nouveau.

Mon problème est que rien n'est modifié lorsque je clique sur mon bouton.

Pièce jointe 197712

Le code se trouve dans le UserForm4.
11/01/2016, 22h47
parmi
Change cette partie.
Le fait d'utiliser RowSource cause un retour dans Combobox1_Change qui a pour effet de réinitialiser les changements que tu viens de faire...
Code:

1 2 3 4 5 6 Private Sub UserForm_Initialize() Me.ComboBox1.Clear Me.ComboBox1.List = Sheets("Clients").Range("A2:A" & Sheets("Clients").Cells(2, 1).End(xlDown).Row).Value End Sub
11/01/2016, 23h34
MatMut38

Merci beaucoup pour ton temps, tu n'imagine même pas à quel point tu vient de m'aider.