Re Bonsoir Gui,
Salut à Toi Pat5 et heureux de te croiser et Bonne Année aussi ;-)
Bon, alors Gui, donc je suis pas tombé loin, je pense.
Il te suffit d'arriver à inserrer le UserForm en Démo dans ta Procédure.
Voici un Exemple sans faire de test car je vais pas tarder à aller dormir
:
Dans un Module Standard
Public Plage as Range '<<<<<< Attention Variable Publique Importante
Sub DebutMacrodeGui ()
If Range("h10") = ("validation non faite") Then
MsgBox("VOUS DEVEZ VALIDER LA JOURNEE EN COURS")
Exit sub
Else
UserForm1.show
End If
End Sub
Sub SuiteMacroDeGui ()
Plage.Copy Destination:=Sheets("Cible").Range("A1")
etc etc
End Sub
Dans le Private Module du UserForm
Private Sub UserForm_Initialize()
With Me.ListBox1
.AddItem "Plage1"
.AddItem "Plage2"
.AddItem "PlageEtc"
End With
End Sub
Private Sub CommandButton1_Click()
If Me.ListBox1.ListIndex = -1 Then MsgBox "No Selected Item in ListBox", vbCritical, T: Exit Sub
Select Case Me.ListBox1
Case "Plage1": Set Plage = Sheets("Source").Range("S4:V75")
Case "Plage2": Set Plage = Sheets("Source").Range("AD4:AG75")
Case "PlageEtc": Set Plage = Sheets("Source").Range("ETC:ETC")
End Select
SuiteMacroDeGui
End Sub
Bonne Nuit et bon courage pour la suite
@+Thierry