Supprimer lignes par VBA sur trois feuilles différentes

Bourrique66 Messages postés 158 Date d'inscription   Statut Membre Dernière intervention   -  
franc38 Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour ;
Je recherche un code VBA pour supprimer une ligne sur 3 feuilles différentes à l’aide d’un formulaire. La première feuille « Achat » & la feuille « Basededonnée » contienne un identifiant unique en colonne A et donc en rentrant le code dans la TextBoxCode j’aimerais supprimer la ligne correspondante dans ces deux feuilles, la feuille « Listederoulante » contient un tableau dans laquelle se range automatiquement un code a chaque ajout dans la base de données et je voudrais effacer le numéro correspondant à la ligne supprimée dans les deux autres feuilles. Je ne sais pas si ma demande et réaliste.
Les feuilles sont protégées sans mot de passe pour coller au plus près à mon fichier.
Je joins le fichier exemple1-v1
https://www.cjoint.com/c/LAvum6KsWvM
A voir également:

3 réponses

franc38 Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   38
 
Bonjour
Ci joint ma solution
https://www.cjoint.com/c/LAwhCydTZyN
A+ François
0
Bourrique66 Messages postés 158 Date d'inscription   Statut Membre Dernière intervention   2
 
Bonjour François ;
Votre code correspond exactement à mon attente, cependant lorsque je veux ajouter des données dans la base de données ce message apparait, alors que dans le fichier original cela fonctionne normalement. Sans abuser de votre temps auriez une solution. Je remets le fichier original





https://www.cjoint.com/c/LAwiTv1q7SM
0
franc38 Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   38
 
Oublie pas que tes feuilles sont protégées... (c'est marqué dans le message)
Donc
Sheets("Basededonnée").Unprotect
Sheets("Listederoulante").Unprotect
en début de macro: Private Sub btnajouter_Click()
et oublie pas protect en fin de macro....

A+ François
0