Discussion :

[MatMut38]

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

[parmi]

Bonjour,

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

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

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

[MatMut38]

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.

Projet.xlsm

Le code se trouve dans le UserForm4.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MatMut38]

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