Discussion :

[jonathan00243]

voici mon problème, j'ai creé un userform et je voudrais que le bouton modifier puisse modifier la ligne d'une feuille excel sur base du nom qui se trouve sur la case nom. avant de modifier, il doit demander confirmation à l'utilisateur. j'ai developpé deux codes différents mais sans grand résultat.
voici le 1er:

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
20
21
22
23
24
25
26
27
Private Sub btnmodifier_Click()
Dim q As String
Dim i As Integer, fin&
i = 2
fin = Feuil5.Range("A" & Rows.Count).End(xlUp).Row
 
    Do While T_codeproduit.Value <> Feuil5.Cells(i, 1)
        i = i + 1
        If i > fin Then MsgBox " Le code spécifié n'existe pas ": GoTo 1
    Loop
    q = MsgBox("Confirmer modification?", vbCritical + vbYesNo)
    If q = vbYes Then
        Feuil3.Cells(i, 1) = T_codeproduit
        Feuil3.Cells(i, 1).Offset(0, 1) = T_prenom
        Feuil3.Cells(i, 1).Offset(0, 2) = T_nom
        Feuil3.Cells(i, 1).Offset(0, 3) = T_categorie
        Feuil3.Cells(i, 1).Offset(0, 4) = T_prixdachat
        Feuil3.Cells(i, 1).Offset(0, 5) = T_prixunitairedevente
        Feuil3.Cells(i, 1).Offset(0, 6) = T_stockreel
        Feuil3.Cells(i, 1).Offset(0, 7) = T_stockminimum
        Feuil3.Cells(i, 1).Offset(0, 8) = T_delaidereapprovisionnement
        MsgBox "Opéraion effectuée"
        Unload Me
        produits.Show
    End If
1       MsgBox "Veuillez introduire un code peoduit"
End Sub

et le 2è

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
20
Private Sub btnmodifier_Click()
Dim objtr As String
Dim q As String
Dim trouveNom As Range
    objtr = T_nom
    If T_nom <> "" Then
 
       Set trouveNom = [A:A].Find(objtr)
        If Not trouveNom Is Nothing Then
           q = MsgBox("modifier " & objtr & " ? ", vbCritical + vbYesNo)
            If q = vbYes Then
                Feuil2.Rows(trouveNom.Row) = T_nom
           End If
            Unload Me
            employes.Show
        End If
    Else
        MsgBox " Introduisez un nom à supprimer"
    End If
End Sub

quelqu'un pourrait juste m'aider à y apporter des modifications pour que ca marche??

le fichier sur le quel je travaille est joint. feuille employes
merci d'avance