Ajouter des lignes simultanément
HEMIYELY
Messages postés
61
Date d'inscription
Statut
Membre
Dernière intervention
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 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
A voir également:
- Ajouter des lignes simultanément
- Partager des photos en ligne - Guide
- Ajouter signature word - Guide
- Ajouter liste déroulante excel - Guide
- Impossible d'ajouter un ami sur facebook - Guide
- Ajouter un compte whatsapp - Guide
3 réponses
Bonjour,
Tout simplement de la même façon que tu ajoutes ou supprimes en feuille1 :
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" ?
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 :
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
Je ne vois pas comment cette solution peut me permettre de solutionner mon problème. Car si j'insère une ligne sur ma feuille 1 après la ligne 10, je veux insérer sur ma feuille 2 en même temps après la ligne 16 par exemple.