Formule incorrecte

[papy 73 ans]

Bonjour les amis,
Je ne m'en sors pas avec cette formule.

    Sheets("Param").Select
    If cells[D7] = "Jean" then And [G7])= "Feuil6" Then

Comment dois-je l'écrire svp.
En vous remerciant.

 

[Chris24]

Bonjour

Peut-être comme çà

If [D7]="Jean" And [G7]="Feuil6" Then​

 

[Jacky67]

Bonjour les amis,
Je ne m'en sors pas avec cette formule.

    Sheets("Param").Select
    If cells[D7] = "Jean" then And [G7])= "Feuil6" Then

Comment dois-je l'écrire svp.
En vous remerciant.

Bonjour,

Sub test()
'Ce qu'il faut savoir pour une cellule
MsgBox [D7].Value
MsgBox Range("D7").Value
MsgBox Cells(7, 4).Value
'Ces 3 lignes de code font exactement la même chose
'Dans ton code, s'il faut comparer 2 cellules "D7" et "G7", le code sera
If [D7] = "Jean" And [G7] = "Feuil6" Then
MsgBox "[D7] = Jean et [G7] = Feuil6"
Else
MsgBox "[D7] <> Jean ou [G7] <> Feuil6"
End If
End Sub

 

[Roland_M]

bonjour à tous,

petite astuce quand il s'agit de tester du texte
il bon de comparer en LCase() ou UCase()
à moins qu'il n'y ai un impératif !

exemple pour ici: si c'est "jean" ça ne passe pas !
If [D7] = "Jean" And [G7] = "Feuil6" Then

avec LCase()
If LCase([D7]) = "jean" And LCase([G7]) = "feuil6" Then
avec UCase()
If UCase([D7]) = "JEAN" And UCase([G7]) = "FEUIL6" Then

 

[papy 73 ans]

Bonsoir ou bonjour à vous,
Chris24, jacky67
Je vous remercie de vos réponse qui résolve mon problème.
Roland_M chapeau bas.