Insertion de ligne selon résultat d'une cellule

Résolu
Pat3925tr Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
Pat3925tr Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
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.
A voir également:

2 réponses

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
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

0
Pat3925tr Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
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
0
Pat3925tr Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Ça fonctionne à merveille

Merci beaucoup!
0