Insertion de ligne selon résultat d'une cellule

Résolu/Fermé

Pat3925tr Messages postés 3 Date d'inscription lundi 7 novembre 2016 Statut Membre Dernière intervention 8 novembre 2016 - 7 nov. 2016 à 17:11
Pat3925tr Messages postés 3 Date d'inscription lundi 7 novembre 2016 Statut Membre Dernière intervention 8 novembre 2016 - 8 nov. 2016 à 23:32

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:

Insertion de ligne selon résultat d'une cellule
Aller à la ligne dans une cellule excel - Guide
Site de vente en ligne particulier - Guide
Partage de photos en ligne - Guide
Hors ligne instagram - Guide
Insertion signature word - Guide

2 réponses

Réponse 1 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
8 nov. 2016 à 08:53

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

Pat3925tr Messages postés 3 Date d'inscription lundi 7 novembre 2016 Statut Membre Dernière intervention 8 novembre 2016
8 nov. 2016 à 16:22

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

Réponse 2 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
8 nov. 2016 à 22:34

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

Pat3925tr Messages postés 3 Date d'inscription lundi 7 novembre 2016 Statut Membre Dernière intervention 8 novembre 2016
8 nov. 2016 à 23:32

Ça fonctionne à merveille

Merci beaucoup!

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

Statut « en ligne » alors que non

Récupérer un résultat selon la date d'aujourd'hui

Excel si cellule contient texte alors...

Discussions similaires

Newsletters