Créer un IfRésolu

Question

Bonjour tout le monde j'ai une petite question. Je dois remettre les mains dans un code que j'ai créer il y a un an... c'était le premier et le dernier!!!! Bon en fait dans l'editeur vba je veut rentre un If, Then, Else:. Je voudrais savoir si c'est possible de direIf cells(1. 1) 1 "ou "2 Then cells(1. 1) 0 
Else: 100
End If

Voilà bon je ne sais plus si c'est un cells(1, 1) ou cells(1.1), j'en fou je verrai quan je l'ouvre... 
Mais le probleme c'est le "ou"!!!!!!!!!!!!!!!!!!!!!!!
Je pense que vous repondrez tres vite à cette petite question toute simple ;-)

Merci d'avance

PCPT · Accepted Answer

salut

attention les yeux : 
If cells(1, 1) 1 OR cells(1, 1)2 Then  cells(1, 1) = 0  Else cells(1, 1) =100

++

PS : déplacé de VB6 vers VBA !
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

tommarianne · Answer

voici peut etre la reponse a ton probleme

Private Sub CommandButton1_Click()If Cells(1, 1) 1 Then Cells(1, 1) 0 Else Cells(1, 1) = 100
End Sub

cs_Jack · Answer

Salut

PCPT est en pleine forme, vous trouvez pas ?

Tommarianne : Non, cette syntaxe ne fonctionne pas : il faut répéter la référence à l'objet une deuxième fois, Cells(1,1)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

stephx06 · Answer

J'ai un peu du mal à m'en rendre compte car presque aveuglé par cette traduction de "ou" en "or"  
MAIS CA MARCHE
Il faut effectivement répéter la ref de l'objet comme dis jack néanmoins PCPT avait bien tapé son code!!!!!

Merce bien les gars

Créer un If

4 réponses

Votre réponse

Discussions similaires