Macro à plusieurs connditions

[clautu]

Bonjoiur à tout le monde
J'ai encore unprobleme que je ne peux solutionner.
Voici une macro qui me donne 3 réponses ("vrai" "Faux" ou " " ).
Achaque réponses correspons un suite différente mais ça ne fonctionne pas.
Pouve vous maider

Private Sub CommandButton2_Click()

If ActiveSheet.Range("z1").Value = "Faux" Then
Dim retour As Integer
retour = MsgBox("Ce numéro de facture existe déjà", vbNo + vbInformation + vbDefaultButton2, "118e groupe scout")
If ActiveSheet.Range("z1").Value = "" Then

retour = MsgBox("Ce numéro de facture existe déjà", vbNo + vbInformation + vbDefaultButton2, "118e groupe scout")
If ActiveSheet.Range("z1").Value = "Vrai" Then

ActiveSheet.Copy After:=Sheets(2)
Range("V3:Y3").Select
Selection.Copy
Sheets("Facture (2)").Select
Application.CutCopyMode = False
Sheets("Facture (2)").Name = Range("facture!v3").Value
Range("V3:X3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ActiveSheet.Shapes("Button 26").Select
Selection.Cut

Range("z1").Delete

ActiveSheet.Select
Range("v3").Copy
Sheets("produits").Select
Range("m1").Select
If ActiveCell.Offset(1, 0) = "" Then
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Select
Range("e11").Select
Sheets("facture").Select
Range("ab3").Value = Range("ab3").Value + 1

Else
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues, Transpose:=False
Application.CutCopyMode = False

Sheets("facture").Select
Range("ab3").Value = Range("ab3").Value + 1
End If
End If

Sheets("facture").Select
Range("b12").Select

Lorsqu'il n'y a que la première (faux) tout fonctionne très bien. Maius si jM'en ajoute une ça ne marche plus.

Merci !!!

 

[Spitnolan08]

Re : Macro à plusieurs connditions

Bonsoir,

Essaye ça (Non testé):

Private Sub CommandButton2_Click()

If ActiveSheet.Range("z1").Value = "Faux" Then
Dim retour As Integer
retour = MsgBox("Ce numéro de facture existe déjà", vbNo + vbInformation + vbDefaultButton2, "118e groupe scout")
[COLOR=Blue] ElseIf [/COLOR]ActiveSheet.Range("z1").Value = "" Then

retour = MsgBox("Ce numéro de facture existe déjà", vbNo + vbInformation + vbDefaultButton2, "118e groupe scout")
[COLOR=Blue] Else [/COLOR]
ActiveSheet.Range("z1").Value = "Vrai"
    ActiveSheet.Copy After:=Sheets(2)
.....
End if

En plaçant le end if au bon endroit
Cordialement

 

[clautu]

Re : Macro à plusieurs connditions

Salut,
Je te remercie infiniment .
C'est en plein ce que ça me prenait et ça fonctionne très bien.

Mille fois merci !!!