Discussion :

[yassine0]

J'ai lu cette discussion.

C'est la même chose que rechercher, mais dans le sens contraire.
Tu cherches la ligne, quand tu la trouves, tu inscris les valeurs des contrôles sur cette ligne plutôt que l'inverse.

J'ai suivi avec beaucoup d'intérêt la solution proposé qui est très adaptée et comme je suis aussi débutant voire au stade ignorant du code VB aurez-vous la gentillesse de nous indiquer le code à mettre pour le bouton modifier.
Mille merci d'avance.

[BENNASR]

bonjour cousin yassine, la forum
La plupart des membres de ce super forum n'ouvre pas une discussion avec le statut RESOLU et la dernière réponse à cette discussion est datée du 29/01/2017
Pour espérer une réponse ouvre une nouvelle discussion et explique bien tes besoins et les problèmes rencontrés avec un début de code entre balise et ensemble on peut arriver à une solution
Si nécessaire un capture écran des données de départ et un capture écran du résultat souhaité
Bonne weekend à vous tous et amusez vous bien

[yassine0]

Merci pour la bienvenue et entre-temps j'avais compris le message de Parmi.

[parmi]

J'ai suivi avec beaucoup d'intérêt la solution proposé qui est très adaptée et comme je suis aussi débutant voire au stade ignorant du code VB aurez-vous la gentillesse de nous indiquer le code à mettre pour le bouton modifier.
Mille merci d'avance.

Comme je disais au message qui précède le tien, il faut inverser l'écriture.
Plutôt qu'écrire dans le userform ce qu'on a trouvé (recherche), on écrit sur la ligne ce qui a été inscrit dans le UF

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
28
29
30
31
32
33
Private Sub btnModifier_Click()
    Dim I As Long, nbLignes As Long
    Dim Source As Worksheet
    Dim Trouve As Boolean
 
    Set Source = Sheets("Source")
 
    nbLignes = Source.Cells(Rows.Count, "A").End(xlUp).Row
 
'    Recherche les valeurs entrées dans txtCommentaire et txtContacte
    For I = 1 To nbLignes
        If LCase(Source.Range("D" & I)) = LCase(txtCommentaire.Value) And LCase(Source.Range("E" & I)) = LCase(FrmSaisie.txtContacte.Value) Then  'vérifie les lettres de colonnes
            Trouve = True
            Source.Cells(I, 6).Value =FrmSaisie.cboSecteur.Text 
            Source.Cells(I, 1).Value = FrmSaisie.txtSociété.Value 
            Source.Cells(I, 2).Value = FrmSaisie.txtAvisé.Value 
            Source.Cells(I, 3).Value = FrmSaisie.txtDate.Value 
            Source.Cells(i, 4).Value = FrmSaisie.txtCommentaire.Value 
            Source.Cells(i, 5).Value = FrmSaisie.txtContacte.Value 
            Source.Cells(I, 7).Value = FrmSaisie.txtFonction.Value 
            Source.Cells(I, 8).Value = FrmSaisie.txtTéléphone.Value 
            Source.Cells(I, 9).Value = FrmSaisie.txtEmail.Value 
            Exit For
        End If
    Next
 
    If Not Trouve Then
        MsgBox "Aucune donnée correspondante trouvée"
    End If
 
    Set Source = Nothing
 
End Sub

[yassine0]

Merci pour ta réponse j'avais compris ton message entre-temps. Mille merci encore.