Discussion :

[Miguel45]

Bonjour à tous,

Je viens de démarrer depuis quelques semaines le VBA.
Mon projet à bien avancé mais je bloque sur le code du bouton Modifier.
J'ai fichier adhérents classiques (Nom, Prénom....).
J'ai un Userform ou je crée chacune de mes fiches Adhérents, et en suite un second Userform ou je peux rechercher, supprimer et modifier, les données sont afficher dans des textbox grace à une listbox. Je bloque sur la partie Modifiéé.
Sur ma listbox je clique sur l'adhérent de mon choix, et cela complète automatiquement les différents textbox, et je voudrais ensuite pouvoir les modifiés, et enregistrer mes modifications.
Je sais pas si j'ai été bien clair excusez moi par avance

[BENNASR]

bonsoir yosra, bonsoir la forum
bonne fête pour ceux qui font la fête;
Yosra : il est utile d'afficher entre balise ton code avec lequel tu fais le saisie . Grace à ce code tu peux avoir de l'aide et pourquoi pas un capture écran avec plus d'explication.
voila un code pour modification à adapter si c'est possible

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton3_Click()
Dim DernLigne As Long
DernLigne = Sheets("TONFEUILLE").Range("F" & Rows.Count).End(xlUp).Row 
Dim plage As Range
Set plage = Sheets("TONFEUILLE").Range("F10:F" & DernLigne)
codrecherché = CDbl(TextBox1.Value)
For Each cell In plage
If cell.Value = codrecherché Then
    Sheets("TONFEUILLE").Cells(cell.Row, 16) = TextBox5.Value
    Sheets("TONFEUILLE").Cells(cell.Row, 17) = TextBox6.Value
    Sheets("TONFEUILLE").Cells(cell.Row, 18) = TextBox7.Value
End If
Next cell
End Sub

Bonne continuation

Pour Monsieur MIGUEL : 0 mon avis il est conseillé d'ouvrir une discussion séparée.

[Miguel45]

Merci pour ton aide, et bonne fête de fin d'année à toi

[Miguel45]

Excusez moi de vous déranger à nouveau, j'ai tenté d adapter votre code sur le mien mais cela ne me modifie que le champs Tb_nom et pas les autres.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Label_Enregistrer_Click()
Adherent = Tb_Contact.Value
Dim DernLigne As Long
DernLigne = Feuil1.Range("J" & Rows.Count).End(xlUp).Row
Dim plage As Range
Set plage = Feuil1.Range("J2:J" & DernLigne).Find(Adherent, , xlValues, xlWhole, , , False)
 
For Each cell In plage
If cell.Value = Adherent Then
    Feuil1.Cells(cell.Row, 1) = Tb_Nom.Value
    Feuil1.Cells(cell.Row, 2) = Tb_Prenom.Value
End If
Next cell
End Sub

puffff me rend depuis hier, et l'expression tourner en rond prend tous son sens!!!!

[BENNASR]

bonjour
dans quelle colonne se trouve le nom et ds quelle colonne se trouve le prénom?
essayer de changer ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set plage = Feuil1.Range("J2:J" & DernLigne).Find(Adherent, , xlValues, xlWhole, , , False)

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set plage = Feuil1.Range("F10:F" & DernLigne)

bonne continuation