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

A voir également:

Code vba à modifier
Modifier liste déroulante excel - Guide
Comment modifier un pdf - Guide
Code asci - Guide
Modifier code pin - Guide
Code puk bloqué - Guide

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
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

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 .

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

Discussions similaires

Newsletters