Insertion de ligne selon résultat d'une cellule
Résolu
Pat3925tr
Messages postés
3
Statut
Membre
-
Pat3925tr Messages postés 3 Statut Membre -
Pat3925tr Messages postés 3 Statut Membre -
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.
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
-
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
-
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
-
-
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
