Insertion de ligne selon résultat d'une cellule [Résolu/Fermé]

Signaler
Messages postés
3
Date d'inscription
lundi 7 novembre 2016
Statut
Membre
Dernière intervention
8 novembre 2016
-
Messages postés
3
Date d'inscription
lundi 7 novembre 2016
Statut
Membre
Dernière intervention
8 novembre 2016
-
Bonjour,

j'amerais connaitre le moyen de faire insérer une ligne dans plusieurs feuilles basé sur le résultat provenant d'une cellule de la feuille1.

Ex: feuille1, cellule a2; le résultat est 550

j'aimerais automatiquement insérer une ligne à la ligne 550 sur toutes les feuilles subséquentes en exécutant la macro sans avoir à mettre mon curseur sur la ligne 550.

Merci de votre aide, j'ai beau chercher sur le forum et je ne trouve pas ma réponse.

2 réponses

Messages postés
16178
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
14 août 2020
3 005
Bonjour
Option Explicit
Const Lig As Integer = 550
Sub Macro()
Dim Nbre As Byte, Cptr As Byte
If Sheets(1).Range("A2") = Lig Then
Nbre = ThisWorkbook.Sheets.Count
For Cptr = 1 To Nbre
Sheets(Cptr).Rows(Lig).Insert
Next
End If
End Sub

Messages postés
3
Date d'inscription
lundi 7 novembre 2016
Statut
Membre
Dernière intervention
8 novembre 2016

Bonjour Michel,


sur la 2e ligne tu as écrit 550 (nombre fixe). Mais "A2" étant un résultat qui change. Si mon résultats est 10865, je veux insérer une ligne à la ligne 10865 sur toute les feuilles subséquentes sans avoir à déplacer mon curseur ET être prêt à insérer une autre ligne avec un nouveau résultat.

Merci d'avance

Pat
Messages postés
16178
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
14 août 2020
3 005
Option Explicit
Sub Macro()
Dim Nbre As Byte, Cptr As Byte, Lig as integer
Lig= Sheets(1).Range("A2")
Nbre = ThisWorkbook.Sheets.Count
For Cptr = 1 To Nbre
Sheets(Cptr).Rows(Lig).Insert
Next
End Sub
Messages postés
3
Date d'inscription
lundi 7 novembre 2016
Statut
Membre
Dernière intervention
8 novembre 2016

Ça fonctionne à merveille

Merci beaucoup!