Recherche et modification dans Userform

Version imprimable

Bonjour à toutes et à tous,

Grâce à l'aide précieuse de Mercatog j'ai réussi à faire une recherche dans un userform. voici le code :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
Private Sub BtnRecherche_Click()
Dim c As Range
Dim LastLig As Long, Lig As Long
Dim sLigne As String
 
 'Appel de la procédure de déblocage.
    Call p_Debloque
 
 
    'Gestion de l'état des boutons.
    Call p_NewModif
 
 
 
 
If Me.txtrecherche.Value <> "" Then
    With Sheets("liste")
        LastLig = .Cells(Rows.Count, "E").End(xlUp).Row
        Set c = .Range("E2:E" & LastLig).Find(Me.txtrecherche.Value, LookIn:=xlValues, lookat:=xlPart)
        If Not c Is Nothing Then
            Lig = c.Row 'dans Lig on a la ligne de la donnée trouvée
 
            libNave.Caption = "enregistrement : " & Lig - 1 & "/" & Lig
 
    Me.libCode.Caption = .Range("A" & Lig)
    Me.txtCreateur = .Range("B" & Lig)
    Me.txtDateCreation = .Range("D" & Lig)
    Me.cmbOriente = .Range("C" & Lig)
    Me.txtNom = .Range("E" & Lig)
    Me.txtPrenom = .Range("F" & Lig)
    Me.OptionFemme = .Range("G" & Lig)
    Me.OptionHomme = .Range("G" & Lig)
    Me.txtDateNaiss = .Range("H" & Lig)
    Me.txtAge = .Range("I" & Lig)
    Me.txtLieuNaiss = .Range("J" & Lig)
    Me.cmbNationalite = .Range("K" & Lig)
    Me.txtPays = .Range("L" & Lig)
    Me.txtNSS = .Range("M" & Lig)
    Me.CmbSituationFamille = .Range("N" & Lig)
    Me.txtMemo1 = .Range("O" & Lig)
    Me.txtNomRef = .Range("P" & Lig)
    Me.cmbOrganismeR = .Range("Q" & Lig)
    Me.txtPhone1 = .Range("R" & Lig)
    Me.txtNomRef2 = .Range("S" & Lig)
    Me.cmbOrganismeR2 = .Range("T" & Lig)
    Me.txtPhone2 = .Range("U" & Lig)
    Me.cmbRevenu = .Range("V" & Lig)
    Me.OptionOui = .Range("W" & Lig)
    Me.OptionNon = .Range("W" & Lig)
    Me.cmbdomiciliation = .Range("X" & Lig)
    Me.Txtmemo2 = .Range("Y" & Lig)
    Me.txtNomProt = .Range("Z" & Lig)
    Me.cmbOrganismeProt = .Range("AA" & Lig)
    Me.txtPhone3 = .Range("AB" & Lig)
    Me.Optiontutelle = .Range("AC" & Lig)
    Me.Optioncuratelle = .Range("AC" & Lig)
    Me.OptionMedoui = .Range("AD" & Lig)
    Me.OptionMednon = .Range("AD" & Lig)
    Me.txtmemo3 = .Range("AE" & Lig)
    Me.cmbOrientationMed = .Range("AE" & Lig)
    Me.CmbProvenance = .Range("AF" & Lig)
    Me.CmbsituationErrance = .Range("AH" & Lig)
    Me.Optionmoins1S = .Range("AI" & Lig)
    Me.Optionmoins1M = .Range("AI" & Lig)
    Me.Option1a6M = .Range("AI" & Lig)
    Me.Option6M1A = .Range("AI" & Lig)
    Me.Option1a2A = .Range("AI" & Lig)
    Me.Option2a5A = .Range("AI" & Lig)
    Me.Option5APlus = .Range("AI" & Lig)
    Me.OptionNSP = .Range("AI" & Lig)
    Me.TxtParcoursA = .Range("AJ" & Lig)
    Me.TxtObjectifEx = .Range("AK" & Lig)
    CmbPieceIdentite = .Range("AL" & Lig)
    Me.TxtDateExpi = .Range("AM" & Lig)
    Me.OptionNul = .Range("AN" & Lig)
    Me.OptionRegG = .Range("AN" & Lig)
    Me.Optioname = .Range("AN" & Lig)
    Me.OptionRien = .Range("AN" & Lig)
    Me.Optioncmuc = .Range("AO" & Lig)
    Me.OptionNC = .Range("AO" & Lig)
    Me.OptionAvert = .Range("AP" & Lig)
    Me.OptionExclu = .Range("AP" & Lig)
    Me.OptionFinSejour = .Range("AP" & Lig)
    Me.TxtMemo4 = .Range("AQ" & Lig)
    Me.CmbOrientation = .Range("AR" & Lig)
 
                    Set c = Nothing
        Else
            MsgBox Me.txtrecherche.Value & " non trouvé"
        End If
    End With
 
Else
    MsgBox "renseignez le texte à chercher"
End If
End Sub

Voici mon problème : si je cherche M. Delarue les infos de cette personne s'affichent normalement. Mais lorsque je fais une modif sur cette fiche, qui est le 3ème enregistrement,après validation les modif s'appliquent systématiquement à la première ligne. Je perds donc toujours ma premiere ligne d'enregistrement et la ligne qui doit être modifiée ne l'est pas.

Pouvez-vous m'aider svp

Merci d'avance et bonne journée

16/09/2010, 11h33
mercatog

Tu as mis le code de recherche (fonctionnel, donc inutile) et à omis mettre le code de modification (problématique, donc utile)

Recherche et modification dans Userform

Merci beaucoup de ta réponse.

voici le code du bouton Modifier

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
Private Sub p_NewModif()
 
    'Gestion de l'état des boutons par clic sur nouveau
    'et modifier.
        BtnFirst.Enabled = False
        btnPrev.Enabled = False
        btnNext.Enabled = False
        btnLast.Enabled = False
 
        btnNouveau.Enabled = False
        btnModifier.Enabled = False
        btnValider.Enabled = True
        btnAnnuler.Enabled = True
        btnSupprimer.Enabled = False
        btnImprimer.Enabled = False
        btnFermer.Enabled = False
 
    End Sub
 
 
Private Sub btnModifier_Click()
    'Appel de la procédure de déblocage.
    Call p_Debloque
 
    gfboModif = True
    gfboNouveau = False
 
 
    'Gestion de l'état des boutons.
    Call p_NewModif
End Sub

encore merci

16/09/2010, 12h00
mercatog

Primo, mets les balises codes dans tes posts (sélectionne ton code et signe # du forum).
Secundo, tu as un problème quand tu transfère les données changées dans l'userform vers la feuille. c'est ça?
Si j'ai bien compris, c'est ce code qu'il fallait voir.
16/09/2010, 12h12
momoju

recherche et modification dans Userform

excuse moi mais je n'ai pas compris "Primo, mets les balises codes dans tes posts (sélectionne ton code et signe # du forum)."

j'ai bien un problème quand je transfère les données changées dans l'userform vers la feuille.

Pour faire cela je pensais que le fait d'appeler la macro p_newmodif me permettait en cliquant sur btn rechercher d'effectuer la modif sur la ligne choisie (est-ce clair ?)

pour info j'ai 8 boutons sur userform :
Nouveau
Modifier
Valider
Annuler
Supprimer
Imprimer
Rechercher
Fermer

Merci
16/09/2010, 12h21
mercatog
Pour modifier les données, tu dois procéder comme ceci:
1. chercher la ligne (ton code précédent)
2. modifier les données dans ton userform
3. envoyer les nouvelles données vers la ligne en question

Pour cela,
1. crée un module standard

Code:

Public Lig As Long

2. Efface la déclaration de Lig de ta sub

Code:

Private Sub BtnRecherche_Click()

3. Il faut créer un Sub de transfert de ce type
Code:

1 2 3 4 5 6 With Sheets("liste") .Range("A" & Lig) = Me.libCode.Caption .Range("B" & Lig) = Me.txtCreateur .Range("D" & Lig) = Me.txtDateCreation '...etx End With

Recherche et modification dans userform

Je ne suis pas une pro en vba alors excuse mes questions.

1) je créé un module standard public As Long (ce code je le mets où ?)
2) quelle ligne effacer pour la déclaration de Lig ?
3) dois-je créér une nouvelle macro pour la sub de transfert ou dois-je rajouter le code à la suite

Voici mes modifs (je n'en suis pas fière...)

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
Private Sub BtnRecherche_Click()
Dim c As Range
Dim LastLig As Long, Lig As Long
Dim sLigne As String
 
 If Me.txtrecherche.Value <> "" Then
    With Sheets("liste")
        LastLig = .Cells(Rows.Count, "E").End(xlUp).Row
        Set c = .Range("E2:E" & LastLig).Find(Me.txtrecherche.Value, LookIn:=xlValues, lookat:=xlPart)
        If Not c Is Nothing Then
            Lig = c.Row 'dans Lig on a la ligne de la donnée trouvée
 
            libNave.Caption = "enregistrement : " & Lig - 1 & "/" & Lig
 
    .Range("A" & Lig) = Me.libCode.Caption
    .Range("B" & Lig) = Me.txtCreateur
    .Range("D" & Lig) = Me.txtDateCreation
    .Range("C" & Lig) = Me.cmbOriente
    .Range("E" & Lig) = Me.txtNom
    .Range("F" & Lig) = Me.txtPrenom
    .Range("G" & Lig) = Me.OptionFemme
    .Range("G" & Lig) = Me.OptionHomme
    .Range("H" & Lig) = Me.txtDateNaiss
    .Range("I" & Lig) = Me.txtAge
    .Range("J" & Lig) = Me.txtLieuNaiss
    .Range("K" & Lig) = Me.cmbNationalite
    .Range("L" & Lig) = Me.txtPays
    .Range("M" & Lig) = Me.txtNSS
    .Range("N" & Lig) = Me.CmbSituationFamille
    .Range("O" & Lig) = Me.txtMemo1
    .Range("P" & Lig) = Me.txtNomRef
    .Range("Q" & Lig) = Me.cmbOrganismeR
    .Range("R" & Lig) = Me.txtPhone1
    .Range("S" & Lig) = Me.txtNomRef2
    .Range("T" & Lig) = Me.cmbOrganismeR2
    .Range("U" & Lig) = Me.txtPhone2
    .Range("V" & Lig) = Me.cmbRevenu
    .Range("W" & Lig) = Me.OptionOui
    .Range("W" & Lig) = Me.OptionNon
    .Range("X" & Lig) = Me.cmbdomiciliation
    .Range("Y" & Lig) = Me.Txtmemo2
    .Range("Z" & Lig) = Me.txtNomProt
    .Range("AA" & Lig) = Me.cmbOrganismeProt
    .Range("AB" & Lig) = Me.txtPhone3
    .Range("AC" & Lig) = Me.Optiontutelle
    .Range("AC" & Lig) = Me.Optioncuratelle
    .Range("AD" & Lig) = Me.OptionMedoui
    .Range("AD" & Lig) = Me.OptionMednon
    .Range("AE" & Lig) = Me.txtmemo3
    .Range("AE" & Lig) = Me.cmbOrientationMed
    .Range("AF" & Lig) = Me.CmbProvenance
    .Range("AH" & Lig) = Me.CmbsituationErrance
    .Range("AI" & Lig) = Me.Optionmoins1S
    .Range("AI" & Lig) = Me.Optionmoins1M
    .Range("AI" & Lig) = Me.Option1a6M
    .Range("AI" & Lig) = Me.Option6M1A
    .Range("AI" & Lig) = Me.Option1a2A
    .Range("AI" & Lig) = Me.Option2a5A
    .Range("AI" & Lig) = Me.Option5APlus
    .Range("AI" & Lig) = Me.OptionNSP
    .Range("AJ" & Lig) = Me.TxtParcoursA
    .Range("AK" & Lig) = Me.TxtObjectifEx
    .Range("AL" & Lig) = Me.CmbPieceIdentite
    .Range("AM" & Lig) = Me.TxtDateExpi
    .Range("AN" & Lig) = Me.OptionNul
    .Range("AN" & Lig) = Me.OptionRegG
    .Range("AN" & Lig) = Me.Optioname
    .Range("AN" & Lig) = Me.OptionRien
    .Range("AO" & Lig) = Me.Optioncmuc
    .Range("AO" & Lig) = Me.OptionNC
    .Range("AP" & Lig) = Me.OptionAvert
    .Range("AP" & Lig) = Me.OptionExclu
    .Range("AP" & Lig) = Me.OptionFinSejour
    .Range("AQ" & Lig) = Me.TxtMemo4
    .Range("AR" & Lig) = Me.CmbOrientation
 
                    Set c = Nothing
        Else
            MsgBox Me.txtrecherche.Value & " non trouvé"
        End If
    End With
 
Else
    MsgBox "renseignez le texte à chercher"
End If
 
 
   With Sheets("liste")
    .Range("A" & Lig) = Me.libCode.Caption
    .Range("B" & Lig) = Me.txtCreateur
    .Range("D" & Lig) = Me.txtDateCreation
    .Range("C" & Lig) = Me.cmbOriente
    .Range("E" & Lig) = Me.txtNom
    .Range("F" & Lig) = Me.txtPrenom
    .Range("G" & Lig) = Me.OptionFemme
    .Range("G" & Lig) = Me.OptionHomme
    .Range("H" & Lig) = Me.txtDateNaiss
    .Range("I" & Lig) = Me.txtAge
    .Range("J" & Lig) = Me.txtLieuNaiss
    .Range("K" & Lig) = Me.cmbNationalite
    .Range("L" & Lig) = Me.txtPays
    .Range("M" & Lig) = Me.txtNSS
    .Range("N" & Lig) = Me.CmbSituationFamille
    .Range("O" & Lig) = Me.txtMemo1
    .Range("P" & Lig) = Me.txtNomRef
    .Range("Q" & Lig) = Me.cmbOrganismeR
    .Range("R" & Lig) = Me.txtPhone1
    .Range("S" & Lig) = Me.txtNomRef2
    .Range("T" & Lig) = Me.cmbOrganismeR2
    .Range("U" & Lig) = Me.txtPhone2
    .Range("V" & Lig) = Me.cmbRevenu
    .Range("W" & Lig) = Me.OptionOui
    .Range("W" & Lig) = Me.OptionNon
    .Range("X" & Lig) = Me.cmbdomiciliation
    .Range("Y" & Lig) = Me.Txtmemo2
    .Range("Z" & Lig) = Me.txtNomProt
    .Range("AA" & Lig) = Me.cmbOrganismeProt
    .Range("AB" & Lig) = Me.txtPhone3
    .Range("AC" & Lig) = Me.Optiontutelle
    .Range("AC" & Lig) = Me.Optioncuratelle
    .Range("AD" & Lig) = Me.OptionMedoui
    .Range("AD" & Lig) = Me.OptionMednon
    .Range("AE" & Lig) = Me.txtmemo3
    .Range("AE" & Lig) = Me.cmbOrientationMed
    .Range("AF" & Lig) = Me.CmbProvenance
    .Range("AH" & Lig) = Me.CmbsituationErrance
    .Range("AI" & Lig) = Me.Optionmoins1S
    .Range("AI" & Lig) = Me.Optionmoins1M
    .Range("AI" & Lig) = Me.Option1a6M
    .Range("AI" & Lig) = Me.Option6M1A
    .Range("AI" & Lig) = Me.Option1a2A
    .Range("AI" & Lig) = Me.Option2a5A
    .Range("AI" & Lig) = Me.Option5APlus
    .Range("AI" & Lig) = Me.OptionNSP
    .Range("AJ" & Lig) = Me.TxtParcoursA
    .Range("AK" & Lig) = Me.TxtObjectifEx
    .Range("AL" & Lig) = Me.CmbPieceIdentite
    .Range("AM" & Lig) = Me.TxtDateExpi
    .Range("AN" & Lig) = Me.OptionNul
    .Range("AN" & Lig) = Me.OptionRegG
    .Range("AN" & Lig) = Me.Optioname
    .Range("AN" & Lig) = Me.OptionRien
    .Range("AO" & Lig) = Me.Optioncmuc
    .Range("AO" & Lig) = Me.OptionNC
    .Range("AP" & Lig) = Me.OptionAvert
    .Range("AP" & Lig) = Me.OptionExclu
    .Range("AP" & Lig) = Me.OptionFinSejour
    .Range("AQ" & Lig) = Me.TxtMemo4
    .Range("AR" & Lig) = Me.CmbOrientation
 
 
End With
End Sub

Primo, pas la peine de citer les réponses qu'on te donne sauf que quand il s'agit d'un passage intéressant pour la compréhension de la suite.
on reprends nos 3 points:
1. dans ton éditeur vba, dans menu Insertion, Module
Dans ce module, tu déclare ta variable Lig comme une variable publique. c'est à dire de portée générale n'importe dans quel code de ton classeur

Code:

Public Lig As Long

2. Ta variable Lig a été déclarée dans ton code de recherche. sa portée se limite seulement à cette procédure. à la fin d'exécution de la procédure, la variable Lig est morte
Code:

1 2 3 4 5 6 7 Private Sub BtnRecherche_Click() Dim c As Range Dim LastLig As Long, Lig As Long ', Lig As Long à effacer ici Dim sLigne As String If Me.txtrecherch 'etc
Mais nous, nous avons encore besoin de la variable Lig et de sa valeur. D'où sa déclaration dans un module standard (public)
Attention, le code de recherche doit rester comme avant (à l'exception de la suppression du bout de code suivant

Code:

Lig As Long

3. Pour transférer les données modifiées vers la feuilles, tu devra créer un bouton sur ton userform, disons BtnModifier, tu lui affecte le nouveau code
Code:

1 2 3 4 5 6 7 8 Private Sub BtnModifier_Click() With Sheets("liste") .Range("A" & Lig) = Me.libCode.Caption .Range("B" & Lig) = Me.txtCreateur .Range("D" & Lig) = Me.txtDateCreation '...etx End With End Sub

Recherche et modification dans Userform

J'ai effectué les modifs mais lorsque dans userform je suis sur le 3ème enregistrement Albert

Je recherche Martin (2ème ligne) clic sur Btn rechercher

et les infos de Martin sont remplacées par celle de Albert et supprime les données sexe

données de départ :
colA colB ColE ColF ColG
1 A DUFOUR Pierre Homme
2 B MARTIN Pascale femme
3 c ALBERT Antoine Homme
4 D DELARUE Marie femme

Après avoir cliqué sur rechercher :

1 A DUFOUR Pierre Homme
3 C ALBERT Antoine
3 C ALBERT Antoine Homme
4 D DELARUE Marie femme

où est mon erreur ? merci

voici le code :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
Private Sub BtnRecherche_Click()
Dim c As Range
Dim LastLig As Long
Dim sLigne As String
 
 
 
 If Me.txtrecherche.Value <> "" Then
    With Sheets("liste")
        LastLig = .Cells(Rows.Count, "E").End(xlUp).Row
        Set c = .Range("E2:E" & LastLig).Find(Me.txtrecherche.Value, LookIn:=xlValues, lookat:=xlPart)
        If Not c Is Nothing Then
            Lig = c.Row 'dans Lig on a la ligne de la donnée trouvée
 
            libNave.Caption = "enregistrement : " & Lig - 1 & "/" & Lig
 
    .Range("A" & Lig) = Me.libCode.Caption
    .Range("B" & Lig) = Me.txtCreateur
    .Range("D" & Lig) = Me.txtDateCreation
    .Range("C" & Lig) = Me.cmbOriente
    .Range("E" & Lig) = Me.txtNom
    .Range("F" & Lig) = Me.txtPrenom
    .Range("G" & Lig) = Me.OptionFemme
    .Range("G" & Lig) = Me.OptionHomme
    .Range("H" & Lig) = Me.txtDateNaiss
    .Range("I" & Lig) = Me.txtAge
    .Range("J" & Lig) = Me.txtLieuNaiss
    .Range("K" & Lig) = Me.cmbNationalite
    .Range("L" & Lig) = Me.txtPays
    .Range("M" & Lig) = Me.txtNSS
    .Range("N" & Lig) = Me.CmbSituationFamille
    .Range("O" & Lig) = Me.txtMemo1
    .Range("P" & Lig) = Me.txtNomRef
    .Range("Q" & Lig) = Me.cmbOrganismeR
    .Range("R" & Lig) = Me.txtPhone1
    .Range("S" & Lig) = Me.txtNomRef2
    .Range("T" & Lig) = Me.cmbOrganismeR2
    .Range("U" & Lig) = Me.txtPhone2
    .Range("V" & Lig) = Me.cmbRevenu
    .Range("W" & Lig) = Me.OptionOui
    .Range("W" & Lig) = Me.OptionNon
    .Range("X" & Lig) = Me.cmbdomiciliation
    .Range("Y" & Lig) = Me.Txtmemo2
    .Range("Z" & Lig) = Me.txtNomProt
    .Range("AA" & Lig) = Me.cmbOrganismeProt
    .Range("AB" & Lig) = Me.txtPhone3
    .Range("AC" & Lig) = Me.Optiontutelle
    .Range("AC" & Lig) = Me.Optioncuratelle
    .Range("AD" & Lig) = Me.OptionMedoui
    .Range("AD" & Lig) = Me.OptionMednon
    .Range("AE" & Lig) = Me.txtmemo3
    .Range("AE" & Lig) = Me.cmbOrientationMed
    .Range("AF" & Lig) = Me.CmbProvenance
    .Range("AH" & Lig) = Me.CmbsituationErrance
    .Range("AI" & Lig) = Me.Optionmoins1S
    .Range("AI" & Lig) = Me.Optionmoins1M
    .Range("AI" & Lig) = Me.Option1a6M
    .Range("AI" & Lig) = Me.Option6M1A
    .Range("AI" & Lig) = Me.Option1a2A
    .Range("AI" & Lig) = Me.Option2a5A
    .Range("AI" & Lig) = Me.Option5APlus
    .Range("AI" & Lig) = Me.OptionNSP
    .Range("AJ" & Lig) = Me.TxtParcoursA
    .Range("AK" & Lig) = Me.TxtObjectifEx
    .Range("AL" & Lig) = Me.CmbPieceIdentite
    .Range("AM" & Lig) = Me.TxtDateExpi
    .Range("AN" & Lig) = Me.OptionNul
    .Range("AN" & Lig) = Me.OptionRegG
    .Range("AN" & Lig) = Me.Optioname
    .Range("AN" & Lig) = Me.OptionRien
    .Range("AO" & Lig) = Me.Optioncmuc
    .Range("AO" & Lig) = Me.OptionNC
    .Range("AP" & Lig) = Me.OptionAvert
    .Range("AP" & Lig) = Me.OptionExclu
    .Range("AP" & Lig) = Me.OptionFinSejour
    .Range("AQ" & Lig) = Me.TxtMemo4
    .Range("AR" & Lig) = Me.CmbOrientation
 
                    Set c = Nothing
        Else
            MsgBox Me.txtrecherche.Value & " non trouvé"
        End If
    End With
 
Else
    MsgBox "renseignez le texte à chercher"
End If
 
 
   End Sub
 
   Private Sub BtnModification_Click()
With Sheets("liste")
    .Range("A" & Lig) = Me.libCode.Caption
    .Range("B" & Lig) = Me.txtCreateur
    .Range("D" & Lig) = Me.txtDateCreation
    .Range("C" & Lig) = Me.cmbOriente
    .Range("E" & Lig) = Me.txtNom
    .Range("F" & Lig) = Me.txtPrenom
    .Range("G" & Lig) = Me.OptionFemme
    .Range("G" & Lig) = Me.OptionHomme
    .Range("H" & Lig) = Me.txtDateNaiss
    .Range("I" & Lig) = Me.txtAge
    .Range("J" & Lig) = Me.txtLieuNaiss
    .Range("K" & Lig) = Me.cmbNationalite
    .Range("L" & Lig) = Me.txtPays
    .Range("M" & Lig) = Me.txtNSS
    .Range("N" & Lig) = Me.CmbSituationFamille
    .Range("O" & Lig) = Me.txtMemo1
    .Range("P" & Lig) = Me.txtNomRef
    .Range("Q" & Lig) = Me.cmbOrganismeR
    .Range("R" & Lig) = Me.txtPhone1
    .Range("S" & Lig) = Me.txtNomRef2
    .Range("T" & Lig) = Me.cmbOrganismeR2
    .Range("U" & Lig) = Me.txtPhone2
    .Range("V" & Lig) = Me.cmbRevenu
    .Range("W" & Lig) = Me.OptionOui
    .Range("W" & Lig) = Me.OptionNon
    .Range("X" & Lig) = Me.cmbdomiciliation
    .Range("Y" & Lig) = Me.Txtmemo2
    .Range("Z" & Lig) = Me.txtNomProt
    .Range("AA" & Lig) = Me.cmbOrganismeProt
    .Range("AB" & Lig) = Me.txtPhone3
    .Range("AC" & Lig) = Me.Optiontutelle
    .Range("AC" & Lig) = Me.Optioncuratelle
    .Range("AD" & Lig) = Me.OptionMedoui
    .Range("AD" & Lig) = Me.OptionMednon
    .Range("AE" & Lig) = Me.txtmemo3
    .Range("AE" & Lig) = Me.cmbOrientationMed
    .Range("AF" & Lig) = Me.CmbProvenance
    .Range("AH" & Lig) = Me.CmbsituationErrance
    .Range("AI" & Lig) = Me.Optionmoins1S
    .Range("AI" & Lig) = Me.Optionmoins1M
    .Range("AI" & Lig) = Me.Option1a6M
    .Range("AI" & Lig) = Me.Option6M1A
    .Range("AI" & Lig) = Me.Option1a2A
    .Range("AI" & Lig) = Me.Option2a5A
    .Range("AI" & Lig) = Me.Option5APlus
    .Range("AI" & Lig) = Me.OptionNSP
    .Range("AJ" & Lig) = Me.TxtParcoursA
    .Range("AK" & Lig) = Me.TxtObjectifEx
    .Range("AL" & Lig) = Me.CmbPieceIdentite
    .Range("AM" & Lig) = Me.TxtDateExpi
    .Range("AN" & Lig) = Me.OptionNul
    .Range("AN" & Lig) = Me.OptionRegG
    .Range("AN" & Lig) = Me.Optioname
    .Range("AN" & Lig) = Me.OptionRien
    .Range("AO" & Lig) = Me.Optioncmuc
    .Range("AO" & Lig) = Me.OptionNC
    .Range("AP" & Lig) = Me.OptionAvert
    .Range("AP" & Lig) = Me.OptionExclu
    .Range("AP" & Lig) = Me.OptionFinSejour
    .Range("AQ" & Lig) = Me.TxtMemo4
    .Range("AR" & Lig) = Me.CmbOrientation
 
 
End With
End Sub

avec mes remerciements

J'arrête ici si tu ne lis pas ce qu'on te propose! Non mais un peu d'effort!
1. Module public

Code:

Public Lig as long

2. Bouton Rechercher

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Private Sub BtnRecherche_Click()
Dim c As Range
Dim LastLig As Long
Dim sLigne As String
 
'Appel de la procédure de déblocage.
Call p_Debloque
'Gestion de l'état des boutons.
Call p_NewModif
If Me.txtrecherche.Value <> "" Then
    With Sheets("liste")
        LastLig = .Cells(Rows.Count, "E").End(xlUp).Row
        Set c = .Range("E2:E" & LastLig).Find(Me.txtrecherche.Value, LookIn:=xlValues, lookat:=xlPart)
        If Not c Is Nothing Then
            Lig = c.Row    'dans Lig on a la ligne de la donnée trouvée
            libNave.Caption = "enregistrement : " & Lig - 1 & "/" & Lig
            Me.libCode.Caption = .Range("A" & Lig)
            Me.txtCreateur = .Range("B" & Lig)
            Me.txtDateCreation = .Range("D" & Lig)
            Me.cmbOriente = .Range("C" & Lig)
            Me.txtNom = .Range("E" & Lig)
            Me.txtPrenom = .Range("F" & Lig)
            Me.OptionFemme = .Range("G" & Lig)
            Me.OptionHomme = .Range("G" & Lig)
            Me.txtDateNaiss = .Range("H" & Lig)
            Me.txtAge = .Range("I" & Lig)
            Me.txtLieuNaiss = .Range("J" & Lig)
            Me.cmbNationalite = .Range("K" & Lig)
            Me.txtPays = .Range("L" & Lig)
            Me.txtNSS = .Range("M" & Lig)
            Me.CmbSituationFamille = .Range("N" & Lig)
            Me.txtMemo1 = .Range("O" & Lig)
            Me.txtNomRef = .Range("P" & Lig)
            Me.cmbOrganismeR = .Range("Q" & Lig)
            Me.txtPhone1 = .Range("R" & Lig)
            Me.txtNomRef2 = .Range("S" & Lig)
            Me.cmbOrganismeR2 = .Range("T" & Lig)
            Me.txtPhone2 = .Range("U" & Lig)
            Me.cmbRevenu = .Range("V" & Lig)
            Me.OptionOui = .Range("W" & Lig)
            Me.OptionNon = .Range("W" & Lig)
            Me.cmbdomiciliation = .Range("X" & Lig)
            Me.Txtmemo2 = .Range("Y" & Lig)
            Me.txtNomProt = .Range("Z" & Lig)
            Me.cmbOrganismeProt = .Range("AA" & Lig)
            Me.txtPhone3 = .Range("AB" & Lig)
            Me.Optiontutelle = .Range("AC" & Lig)
            Me.Optioncuratelle = .Range("AC" & Lig)
            Me.OptionMedoui = .Range("AD" & Lig)
            Me.OptionMednon = .Range("AD" & Lig)
            Me.txtmemo3 = .Range("AE" & Lig)
            Me.cmbOrientationMed = .Range("AE" & Lig)
            Me.CmbProvenance = .Range("AF" & Lig)
            Me.CmbsituationErrance = .Range("AH" & Lig)
            Me.Optionmoins1S = .Range("AI" & Lig)
            Me.Optionmoins1M = .Range("AI" & Lig)
            Me.Option1a6M = .Range("AI" & Lig)
            Me.Option6M1A = .Range("AI" & Lig)
            Me.Option1a2A = .Range("AI" & Lig)
            Me.Option2a5A = .Range("AI" & Lig)
            Me.Option5APlus = .Range("AI" & Lig)
            Me.OptionNSP = .Range("AI" & Lig)
            Me.TxtParcoursA = .Range("AJ" & Lig)
            Me.TxtObjectifEx = .Range("AK" & Lig)
            CmbPieceIdentite = .Range("AL" & Lig)
            Me.TxtDateExpi = .Range("AM" & Lig)
            Me.OptionNul = .Range("AN" & Lig)
            Me.OptionRegG = .Range("AN" & Lig)
            Me.Optioname = .Range("AN" & Lig)
            Me.OptionRien = .Range("AN" & Lig)
            Me.Optioncmuc = .Range("AO" & Lig)
            Me.OptionNC = .Range("AO" & Lig)
            Me.OptionAvert = .Range("AP" & Lig)
            Me.OptionExclu = .Range("AP" & Lig)
            Me.OptionFinSejour = .Range("AP" & Lig)
            Me.TxtMemo4 = .Range("AQ" & Lig)
            Me.CmbOrientation = .Range("AR" & Lig)
            Set c = Nothing
        Else
            MsgBox Me.txtrecherche.Value & " non trouvé"
        End If
    End With
Else
    MsgBox "renseignez le texte à chercher"
End If
End Sub

3. Bouton Modifier

Code:

1
2
3
4
5
6
7
8
Private Sub BtnModifier_Click()
With Sheets("liste")
    .Range("A" & Lig) = Me.libCode.Caption
    .Range("B" & Lig) = Me.txtCreateur
    .Range("D" & Lig) = Me.txtDateCreation
    '...etc
End With
End Sub

16/09/2010, 15h43
momoju

Recherche et modification dans Userform

Je te prie de bien vouloir m'excuser de te faire perdre ton temps, je suis vraiment débutante en VBA et je me suis un peu mélangé les crayons...

J'ai donc rectifié mes erreurs et cela fonctionne maintenant.

Un grand merci pour ton aide et ta patience !

cordialement,