Ajouter des lignes simultanément
HEMIYELY
Messages postés
71
Statut
Membre
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Je souhaite ajouter des lignes dans un tableau. Cependant, lorsque j'ajoute une ligne dans la feuill1 je veux également qu'une ligne s'ajoute à mon tableau sur la feuill2.
Je partage un exemple pour être plus explicite : https://mon-partage.fr/f/9XuAtJ8Q/
- Lorsque je clique sur le bouton "Add Line" de la feuill1, je souhaite qu'une même temps une ligne s'ajoute sur la feuill2 à partir de la ligne 16.
- De la même façon, je souhaite que si je supprime une ligne dans le tableau de la feuill1, la même ligne soit supprimée dans la feuill2.
En espérant avoir été assez explicite.
Je vous remercie d'avance pour votre réponse.
Cordialement
Je souhaite ajouter des lignes dans un tableau. Cependant, lorsque j'ajoute une ligne dans la feuill1 je veux également qu'une ligne s'ajoute à mon tableau sur la feuill2.
Je partage un exemple pour être plus explicite : https://mon-partage.fr/f/9XuAtJ8Q/
- Lorsque je clique sur le bouton "Add Line" de la feuill1, je souhaite qu'une même temps une ligne s'ajoute sur la feuill2 à partir de la ligne 16.
- De la même façon, je souhaite que si je supprime une ligne dans le tableau de la feuill1, la même ligne soit supprimée dans la feuill2.
En espérant avoir été assez explicite.
Je vous remercie d'avance pour votre réponse.
Cordialement
3 réponses
-
le plus simple
ctrl + feuil2
insère feuil1 la feuil2 réagira comme la feuil1
-
Bonjour,
Tout simplement de la même façon que tu ajoutes ou supprimes en feuille1 :Sub AddLineEx() Feuil1.Rows(11).Insert Feuil2.Rows(16).Insert End Sub Sub Bouton2_Cliquer() Feuil1.Rows(11).Delete Feuil2.Rows(16).Delete End Sub
-
Merci pour cette réponse. Cependant, mes lignes sont susceptibles de bouger.
Si j'ajoute une ligne avant, ca ne sera plus après la ligne 11 mais après la ligne 12. Y a t-il une possibilité d'ajouter une ligne après une cellule portant un nom ? Par exemple, au lieu de dire ajouter une ligne après 11, on ajoute une ligne après la cellule portante le nom "dernièreLigne" ?
-
-
Bonjour,
A essayer :Sub AddLineEx() Dim Ligne As Long Ligne = Feuil1.Range("A2").End(xlDown).Row + 1 Feuil1.Rows(Ligne).Insert Feuil2.Rows(Ligne + 5).Insert End Sub Sub Bouton2_Cliquer() Dim Ligne As Long Ligne = Feuil1.Range("A2").End(xlDown).Row Feuil1.Rows(Ligne).Delete Feuil2.Rows(Ligne + 5).Delete End Sub
