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
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
A voir également:
- Ajouter des lignes simultanément
- Ajouter un compte gmail - Guide
- Ajouter un profil netflix payant - Guide
- Ajouter un compte whatsapp - Guide
- Ajouter signature word - Guide
- Ajouter liste déroulante excel - Guide
3 réponses
fabien25000
Messages postés
673
Date d'inscription
mercredi 5 octobre 2016
Statut
Membre
Dernière intervention
28 juillet 2022
58
24 oct. 2018 à 18:10
24 oct. 2018 à 18:10
le plus simple
ctrl + feuil2
insère feuil1 la feuil2 réagira comme la feuil1
ctrl + feuil2
insère feuil1 la feuil2 réagira comme la feuil1
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 741
26 oct. 2018 à 11:09
26 oct. 2018 à 11:09
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
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
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" ?
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" ?
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 741
2 nov. 2018 à 07:27
2 nov. 2018 à 07:27
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
26 oct. 2018 à 10:16
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.