Discussion :

[Krimo1973]

Bonjour à vous

Je suis désolé , l'exemple va vous paraître basique mais je coince depuis un moment , quand je change la valeur de la cellule je n'ai en reponse que la 1er option ("ok controle Balance") et jamais la 2eme

Merci par avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
If Range("E240") = Range("R240") Then
 
   MsgBox ("ok controle Balance")
 
 Else
 MsgBox ("ko controle Balance")
 
 
End If
 
 
 
End Sub

[ARTURO83]

Bonjour,

Enlevez les parenthèses

Cdlt

[Krimo1973]

merci Arturo mais j'ai retiré les parenthèses , et toujours la même réponse affichée soit : ok controle Balance alors
que je devrais avoir Ko contrôle balance , puisque les valeurs sont dans les cellules sont différentes
merci encore

[ARTURO83]

Je ne sais pas comment vous vous y prenez mais si vous avez bien fait ceci, ça fonctionne.

Code :

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

1
2
3
4
5
    If Range("E240") = Range("R240") Then
        MsgBox "ok controle Balance"
     Else
        MsgBox "ko controle Balance"
    End If

[Krimo1973]

Je m'excuse Arturo , cela fonctionne j'ai du louper un truc précédemment
merci encore

[Krimo1973]

Bonjour à vous

un petit complément , j'ai rajouté dans mon code l'instruction suivante :

Code :

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

Workbooks("Mon fichier").Close False

Le fichier ne se ferme pas automatiquement il ya un message qui s'afficher avant de se fermer :