Discussion :

[arkorrigan]

[]bonjour,

je voudrais qu'une message box apparaisse lorsque dans une cellule, la valeur vrai apparait !

Pour faire plus simple, je vous mets le texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Sub Message()
 
If Range("CR12").Value = "VRAI" Then
Dim Retour As Integer
Retour = MsgBox("Souhaitez vous les consulter ?", vbYesNo + vbExclamation, "Des nouvelles références ont été trouvées !")
If Retour = vbYes Then
Range("CT4").Select
Else
Range("CT8").Select
End If
Else
Range("CR15").Select
End If
End Sub

Je sais que c'est une simple histoire de syntaxe de If mais je ne m'en souviens plus !

merci d'avance !

[funkykid]

Bonjour,
Si j'ai bien compris ta question, ça sera réalisé par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 If Range("A1").Value = "" Then
Else
    Msgbox("C'est pas vide.")
End if

[arkorrigan]

bon en fait, je vais te mettre le texte, peut être que tu y verras plus clair :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 Sub Message()
Dim Retour As Integer
If Range("CR12").Value = "VRAI" Then
Retour = MsgBox("Souhaitez vous les consulter ?", vbYesNo + vbExclamation, "Des nouvelles références ont été trouvées !")
If Retour = vbYes Then
Range("CT4").Select
Else
Range("CT8").Select
End If
Else
Range("CR15").Select
End If
End Sub

Et en fait ce que je voudrais, c'est que si la valeur vrai apparait dans la cellule CR12, la message box s'affiche !
merci !

[fring]

Bonjour,

Modifie Range("CR12").Value par Range("CR12").Text

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Range("CR12").Text = "VRAI" Then

Le reste me semble correct

[ouskel'n'or]

Je dirais même plus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
If Range("CR12").Text = "VRAI" Then
    If MsgBox("Souhaitez vous les consulter ?", vbYesNo + vbExclamation, "Des nouvelles références ont été trouvées !") = vbYes Then
        Range("CT4").Select
      Else
        Range("CT8").Select
    End If
  Else
    Range("CR15").Select
End If

Ça t'évite une variable inutile

(et indente ton code, il sera plus lisible pour celui qui le lit... )

[arkorrigan]

Merci beaucoup ouskel'n'or, ta solution marche super bien !

trop cool votre forum !

[Abdel_koum]

Bonjour,

Essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
If ActiveWorkbook.ActiveSheet.Cells(1, 1).value="vrai" then
msgbox("tontexte")
end if

@+