Bonjour,
j'ai crée un fichier avec une listbox,
j'arrive à executer ma macro lorsque que j'execute un seul choix à la fois dans cette listbox,
j'aimerais pouvoir executer ma macro avec plusieurs choix dans la liste.
voici ma macro :
cela foinctionne si je fais le choix Brassage LAN Hors Heberg?s secs ou Brassage SAN Hors Heberg?s secs
Mais je souhaiterais que cela fonctionne pour les deux en meme temps.
Pouvez-vous m'aider ? merci d'avance
voici ma macro :
Private Sub CommandButton3_Click()
'"Brassage LAN Hors Heberg?s secs" ok
Application.ScreenUpdating = False
If ListBox2.Value = "Brassage LAN Hors Heberg?s secs" Then
Sheets("Feuil1").Activate
Range("A2:D11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Check-List Qualif & Dispatch").Select
Range("A25").Select
ActiveSheet.Paste
If ListBox2.Value = "Brassage LAN Hors Heberg?s secs" Then
Sheets("Feuil1").Activate
Range("A132:D139").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Check-List Qualif & Dispatch").Select
Range("A35").Select
ActiveSheet.Paste
'Unload UserForm2
End If
'Brassage SAN Hors Heberg?s secs ok
If ListBox2.Value = "Brassage SAN Hors Heberg?s secs" Then
Sheets("Feuil1").Activate
Range("A12:D19").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Check-List Qualif & Dispatch").Select
Range("A51").Select
ActiveSheet.Paste
End If
If ListBox2.Value = "Brassage SAN Hors Heberg?s secs" Then
Sheets("Feuil1").Activate
Range("A127:D131").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Check-List Qualif & Dispatch").Select
Range("A81").Select
ActiveSheet.Paste
'Unload UserForm2
End If