Ajouter des lignes simultanément

Fermé

HEMIYELY Messages postés 61 Date d'inscription mercredi 10 mai 2017 Statut Membre Dernière intervention 25 janvier 2022 - 24 oct. 2018 à 18:05
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 2 nov. 2018 à 07:27

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

A voir également:

Ajouter des lignes simultanément
Ajouter un profil netflix payant - Guide
Ajouter un compte gmail - Guide
Ajouter un compte whatsapp - Guide
Ajouter signature word - Guide
Ajouter liste déroulante excel - Guide

3 réponses

Réponse 1 / 3

fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 59
24 oct. 2018 à 18:10

le plus simple

ctrl + feuil2

insère feuil1 la feuil2 réagira comme la feuil1

HEMIYELY Messages postés 61 Date d'inscription mercredi 10 mai 2017 Statut Membre Dernière intervention 25 janvier 2022
26 oct. 2018 à 10:16

Bonjour,
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.

Réponse 2 / 3

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 745
26 oct. 2018 à 11:09

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

HEMIYELY Messages postés 61 Date d'inscription mercredi 10 mai 2017 Statut Membre Dernière intervention 25 janvier 2022
1 nov. 2018 à 17:22

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" ?

Réponse 3 / 3

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 745
2 nov. 2018 à 07:27

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

Discussions similaires

Afficher toutes les lignes masquées excel

Discussions similaires

Newsletters