demande du code VBA pour le bouton modifier

Version imprimable

11/10/2018, 22h34
yassine0

demande du code VBA pour le bouton modifier

J'ai lu cette discussion.

Citation:

Envoyé par parmi

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.
12/10/2018, 11h06
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 :pingoin2:

Citation:

Envoyé par yassine0

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:

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

14/10/2018, 20h21
yassine0

Merci pour ta réponse j'avais compris ton message entre-temps. Mille merci encore.
14/10/2018, 20h22
yassine0

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