La commande modifier

bonjour

j'ai besoin d'aide. je fais plusieurs tentative pour modifier ce code la mais il est difficile (pour moi)

merci

Private Sub btnModifier_Click()
' Lire et Modifier le contenu des lignes
Dim i As Integer
Dim r As Variant
r = MsgBox("vouler vous confirmer la modification", vbYesNo, "Valider ")
'If r <> 3 Then Exit Sub
For i = 4 To Range("A:A").End(xlDown).Row
If N_Item = Cells(i, 1) Then
Cells(i, 2) = ComboBox1.Text
Cells(i, 3) = ComboBox2.Text
Cells(i, 4) = ComboBox3.Text
Cells(i, 5) = TextBox1.Text
Cells(i, 6) = TextBox2.Text
Cells(i, 7) = TextBox3.Text

End If
Next i
    Unload Me
    UserForms.Add(Userform_name).Show 0

End Sub

Bonjour,

Ci-joint ton fichier ... avec quelques corrections ...

En espèrant que cela t'aide

BONJOUR

MERCI DE TA REPENSE ,J'AI OFFICE 2010

toujours le mm problème

Bonjour,

La version Office ne change pas les instructions de ta UserForm ...

Es-tu sûr de ne pas confondre les différents fichiers sur ton PC...

Car la version que tu viens de joindre est la même que la précédente ...

pas celle que je t'ai corrigée ...

sans titre

bonjour

voila le message qui me donne

Désolé de ne pas pouvoir t'aider davantage ...

userform corrige

bonjour

tu peux m'explique ?, tu change quoi exactement

Private Sub btnModifier_Click()
' Lire et Modifier le contenu des lignes
Dim i As Integer
Dim R As Variant
R = MsgBox("vouler vous confirmer la modification", vbYesNo, "Valider ")
If R = vbNo Then Exit Sub
    For i = 4 To Feuil2.Cells(Rows.Count, 1).End(xlUp).Row
        If N_Item.Caption = Cells(i, 1) Then
            Cells(i, 2) = ComboBox1.Text
            Cells(i, 3) = ComboBox2.Text
            Cells(i, 4) = ComboBox3.Text
            Cells(i, 5) = TextBox1.Text
            Cells(i, 6) = TextBox2.Text
            Cells(i, 7) = TextBox3.Text
        End If
    Next i
Unload Me
UserForms.Add(Userform_name).Show 0

End Sub

merci

Re,

As-tu fais un copier coller de cette macro dans ton fichier ... ???

Entre les lignes de commentaires ... les deux changements

Private Sub btnModifier_Click()
' Lire et Modifier le contenu des lignes
Dim i As Integer
Dim R As Variant
R = MsgBox("vouler vous confirmer la modification", vbYesNo, "Valider ")
''''''''''''''''''''''''''''''''''''''
' Les deux lignes suivantes sont les deux différences '''''''''
If R = vbNo Then Exit Sub
    For i = 4 To Feuil2.Cells(Rows.Count, 1).End(xlUp).Row
''''''''''''''''''''''''''''''''''''''
        If N_Item.Caption = Cells(i, 1) Then
            Cells(i, 2) = ComboBox1.Text
            Cells(i, 3) = ComboBox2.Text
            Cells(i, 4) = ComboBox3.Text
            Cells(i, 5) = TextBox1.Text
            Cells(i, 6) = TextBox2.Text
            Cells(i, 7) = TextBox3.Text
        End If
    Next i
Unload Me
UserForms.Add(Userform_name).Show 0

End Sub

bonjour

merci bien james

le problème est de mon pc ,

merci encore

bonjour

merci bien james

le problème de mon pc ,quand je le redémarre fonctionne très bien

merci encore

Content que tu aies pu trouver la solution ...

bonjour

C'est grâce à toi .

mais j'ai constate que la colonne G du date /affiche numérique

Bonjour,

Une seule petite modification :

Private Sub btnModifier_Click()
' Lire et Modifier le contenu des lignes
Dim i As Integer
Dim R As Variant
R = MsgBox("vouler vous confirmer la modification", vbYesNo, "Valider ")
If R = vbNo Then Exit Sub
    For i = 4 To Feuil2.Cells(Rows.Count, 1).End(xlUp).Row
        If N_Item.Caption = Cells(i, 1) Then
            Cells(i, 2) = ComboBox1.Text
            Cells(i, 3) = ComboBox2.Text
            Cells(i, 4) = ComboBox3.Text
            Cells(i, 5) = TextBox1.Text
            Cells(i, 6) = TextBox2.Text
'''INSTRUCTION  MODIFIEE''''''''''''''''''''''''''''''''''''''''''''''
            Cells(i, 7) = Format(CDate(TextBox3.Text), "dd/mm/yyyy")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            MsgBox "  confirmer de la modification"
        End If
    Next i
Unload Me
UserForms.Add(Userform_name).Show 0

End Sub

En espèrant que cela t'aide

Rechercher des sujets similaires à "commande modifier"