Code vba à modifier
Résolu
Bourrique66
Messages postés
166
Statut
Membre
-
Bourrique66 Messages postés 166 Statut Membre -
Bourrique66 Messages postés 166 Statut Membre -
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
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
-
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 -
Bonjour
Avec un peu de retard je vous remercie pour votre code qui fonctionne parfaitement et bonne année .
