double condition pour msgbox

[flo2002]

Re bonjour,

J'ai entrer ce code mais en vain!

Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Offset(0, 1) = 'Monsieur,' And Target.Offset(0, 3) = 'VRAI' Then
MsgBox 'Bravo!!!'

Else
MsgBox 'RAS'

End If


End Sub

avez une idée?

merci d'avance!

 

[PascalXLD]

Bonjour

tu entends quoi par en vain ??

 

[flo2002]

Je n'arrive pas à lui dire si ca et ca est comme suit alors ecrit ca sinon autre ca.

 

[porcinet82]

Salut Flo, Pascal,

Je viens de faire un petit essai et c'est vrai que c'est un peu tordu.
En fait, il faut modifier le code comme suit :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Offset(0, 1).Value = 'Monsieur,' And Target.Offset(0, 3).Value = True Then
    MsgBox 'Bravo!!!'
Else
    MsgBox 'RAS'
End If
End Sub

Allez comprendre la logique d'excel :silly:
Enfin Pascal aura peut etre une petite explication à ce sujet.

@+

 

[PascalXLD]

Re

Bah je vois pas de problème

Tu es sur de tes cellules de tes offset ??

 

[PascalXLD]

RE

Ah oui bien vu POrcinet

Pourtant j'avais déjà eu ce problème avec le VRAI.

Les .value ne sont pas obligatoire dans le code

Ce qui déclenche bien dans le code de Porcinet c'est le true

 

[fredl]

est ce que ceci te va? [file name=dblecond.zip size=7461]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/dblecond.zip[/file]

 

[PascalXLD]

RE

En reprenant l'exemple de fred

en ecrivant

If Target.Offset(0, 1) = 'Monsieur,' And Target.Offset(0, 3) = 'Vrai' Then

ça marche

Fred tu n'es pas obligé de faire ton select dans ton code cela allourdit pour rien

 

[flo2002]

Merci bon week end!!