Supprimer lignes par VBA sur trois feuilles différentes Fermé

Question

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

franc38 · Answer

Bonjour
Ci joint ma solution
https://www.cjoint.com/c/LAwhCydTZyN
A+ François

Bourrique66 · Answer

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

franc38 · Answer

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

Supprimer lignes par VBA sur trois feuilles différentes

3 réponses

Discussions similaires

Newsletters