Code vba à modifier

Résolu/Fermé
Bourrique66 Messages postés 158 Date d'inscription mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 - 30 déc. 2021 à 09:00
Bourrique66 Messages postés 158 Date d'inscription mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 - 2 janv. 2022 à 09:57
Bonjour ;
Je travaille sur un petit projet et je rencontre des problèmes avec le code VBA, faut dire que je n’y connais rien, le code que j’utilise dans mon projet vient en grande partie de vidéo internet que j’essaie d’adapter à mon projet. J’ai deux formulaires un appelé « frmajout » et l’autre appelé « frmmodif ». Dans frmajout la ligne de code qui me pose problème et celle-ci :
L = Sheets("BDD"). Range("a65536"). End(xl Up). Row + 1
Et dans le formulaire frmmodif j’aimerais pouvoir modifier les résultats de la recherche et à l’aide du bouton modifier les données les remettre à leur place après modifications. En espérant avoir été clair je sollicite votre aide pour résoudre ces problèmes.
Je joins un fichier démo
https://www.cjoint.com/c/KLEh718eacO

2 réponses

Réponse 1 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
30 déc. 2021 à 18:46
Bonjour,

Pour modifier à mettre dans frmmodif: 

Private Sub btnmodifier_Click()
Dim L As Integer
L = cbocode.ListIndex + 2
With Sheets("BDD")
.Range("B" & L).Value = txtnom.Value
.Range("C" & L).Value = txtprenom.Value
.Range("D" & L).Value = cbogenre.Value
.Range("E" & L).Value = txtdate.Value
.Range("F" & L).Value = cbostatut.Value
.Range("G" & L).Value = cboservice.Value
End With
End Sub



--
@+ Le Pivert
1
Réponse 2 / 2
Bourrique66 Messages postés 158 Date d'inscription mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 2
2 janv. 2022 à 09:57
Bonjour
Avec un peu de retard je vous remercie pour votre code qui fonctionne parfaitement et bonne année .
0