Sujet Précédent Sujet Suivant

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

Réponse 1 / 2
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 319
 
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 Statut Membre
 
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
Réponse 2 / 2
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 319
  
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 Statut Membre
 
Ça fonctionne à merveille

Merci beaucoup!
0