Création boucle sur sélection multiple

bonjour,

je lance une macro après avoir sélectionné une ligne.

je voudrai en cas de sélection de plusieurs lignes sélectionnées, enchaîner le lancement de la même macro sur chaque ligne.

est-ce possible ?

voici ma macro de départ :

Sub Dupliquer()
With Selection
    If .Rows.Count = 1 Then
        If Selection.Rows.Count = 1 Then Selection.EntireRow.Copy Sheets("Chantier").Range("A69")
        If Selection.Rows.Count = 1 Then Selection.EntireRow.Interior.ColorIndex = 4
    Else
        If .Columns.Count > 1 Then MsgBox "Merci de sélectionner une ligne"
        If .Rows.Count > 1 Then MsgBox "Merci de sélectionner une ligne"
    End If
End With
nomFeuille = ActiveSheet.Name
Sheets("Chantier").Range("C7") = nomFeuille
creer_fichier_chantier
End Sub

Bonjour

Ce pourrait être :

Option Explicit

Dim nomFeuille As String, r

Sub Dupliquer()
    With Selection
        For Each r In Selection.Rows
            r.EntireRow.Interior.ColorIndex = 4
            r.Copy Sheets("Chantier").Range("A" & r.Row)
        Next r
    End With
End Sub

Bye !

je ne pense pas que cela fonctionne, ma macro de base colorie et copie la ligne sur une autre feuille sur la range 69 obligatoirement, ensuite d'autre macro sont lancées à la suite pour créer un fichier...etc

philippou_84 a écrit :

je ne pense pas que cela fonctionne

C'était juste pour répondre à ta question : " est-ce possible ?" et te montrer comment.

Maintenant, à toi de l'adapter à tes besoins puisque apparemment tu ne souhaites pas joindre ton fichier.

Bye !