Aide sur un code soumis à 2 conditions

[matiousky]

Bonjour,

J'essaye de créer 2 conditions à l'éxécution d'un code. Si l'une et/ou l'autre ne sont pas respectées, alors une ou deux Msgbox apparaissent, sinon mon code peut s'éxécuter. Pouvez-vous m'aider s'il vous plaît?

En détail, je voudrai écrire le code suivant:

Si M12 <> 1 et/ou D161 <> N4 alors
Msgbox "L'impression est impossible" (si M12<>1)
MsgBox "Attention votre profil est différent" (si D161 <> N4)
Sinon

Sheets("Synthèse client").Visible = True
Sheets("Synthèse client").PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
Sheets("Synthèse client").Select
Range("F10:H36").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("F10:H36").Select
Selection.NumberFormat = "#,##0"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A7").Select
'Sheets("Synthèse client").PrintOut Copies:=2
'Sheets("Synthèse client").Visible = False
End If
Application.ScreenUpdating = True
End Sub


Merci de votre aide précieuse,
Mat

 

[mutzik]

Re : Aide sur un code soumis à 2 conditions

Bonjour,
dim ok as boolean
ok = true
if M12 <> 1 then Msgbox "L'impression est impossible" : ok=false
if D161 <> N4 alors then MsgBox "Attention votre profil est différent" : ok=false

if ok then
le reste de ton code
...
end if

 

[Pierrot93]

Re : Aide sur un code soumis à 2 conditions

Bonjour Mat, Bertrand

si M12, n'est pas une variable mais une référence de cellule :

If Range("M12").Value <> 1 Then MsgBox "L'impression est impossible": ok = False

bon après midi
@+

 

[matiousky]

Re : Aide sur un code soumis à 2 conditions

Merci de votre aider, cependant cela ne marche que pour ma condition
If Range("M12").Value <> 1
L'autre ne marche pas. if D161 <> N4 renvoit à comparer le contenu des 2 cellules. Le contenu étant du texte.

Pouvez-vous m'aider?

Merci beaucoup !!!
Mat

 

[mutzik]

Re : Aide sur un code soumis à 2 conditions

re,

ben tu mets if range("d161") <> range("N4") ...

 

[Pierrot93]

Re : Aide sur un code soumis à 2 conditions

Re

une autre solution :

Sub test()
If Range("M12").Value <> 1 Then
    MsgBox "L'impression est impossible M12<>1"
    ElseIf Range("D161").Value <> Range("N4").Value Then MsgBox "Attention votre profil est différent D161 <> N4"
Else
'ton code
End If
End Sub

@+

 

[matiousky]

Re : Aide sur un code soumis à 2 conditions

Merci à vous deux, les solutions marchent!!!

Bonne journée,
Mat