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