Modification valeur TextBox

[lynyrd]

Bonjour le forum
Je souhaiterais modifier la valeur de la TextBox1 aprés avoir fait ma selection avec les 2 ComboBox.
Lorsque je clique sur le bouton de modification,celle ci s'effectue sur la dernière ligne et non en rapport avec les valeurs des 2 ComboBox.
Y aurait t'il une erreur dans le code?
Merci.

 

[david84]

Re : Modification valeur TextBox

Bonjour,
comme je n'ai pas vraiment compris le sens de ton code, je t'en propose un autre :

Private Sub CommandButton1_Click()
Dim Ws As Worksheet, Plage As Range, PremAdresse, c
  Set Ws = Worksheets("Feuil1")
  Set Plage = Ws.Range("A1:A" & Dl)
 
  With Plage
    Set c = .Find(ComboBox1.Value, LookIn:=xlValues)
    If Not c Is Nothing Then
        PremAdresse = c.Address
        Do
            If Ws.Range("B" & c.Row).Value = ComboBox2.Value Then
                Ws.Range("C" & c.Row).Value = TextBox1.Value
                Exit Do
            End If
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> PremAdresse
    End If
End With
End Sub

A+

 

[pierrejean]

Re : Modification valeur TextBox

Bonjour lynyrd

Vois si cela va mieux

Edit : Salut David84

 

[lynyrd]

Re : Modification valeur TextBox

Bonsoir davi,pierrejean
Désolé,aucune des propositions ne fonctionne.
A+

 

[lynyrd]

Re : Modification valeur TextBox

Doublement désolé,le Verr Num n'était pas activé.
Cela fonctionne parfaitement.
Merci à vous deux.
A+

 

[Fo_rum]

Re : Modification valeur TextBox

Bonsoir,

et avec un seul bouton Modifier/Créer ?

 

[lynyrd]

Re : Modification valeur TextBox

Bonsoir Fo_rum
C'est bien pensé ca fait l'économie d'un bouton.
Merci pour ta proposition.
A+