Afficher valeur sous condition if

Question

Je veux afficher un nombre entier résultant de la condition ci dessous dans la cell (78,3)

Voici mon programme :

Sub determination()

'définition des variables

Dim nb As Integer

Dim orient As String

Dim protec As String

Dim dess As String

Dim heure As Integer

'valeur des variables

nb = Cells(72, 3)

orient = Cells(73, 3)

protec = Cells(74, 3)

dess = Cells(75, 3)

heure = Cells(78, 3)

'détermination de l'heure

If nb = 1 And orient = N And protec = fenetresprotegees And dess = a Then

heure = 14

End If

End Sub

Merci

Banzai64 · Answer

Je crois que tu compares tes variables (orient,protec et dess) avec des variables (N,fenetresprotegees et a) Ne serait-ce pas avec des chaînes de caractères qu'il faut que tu fasses la comparaison A vérifier Sub determination() 'définition des variables Dim nb As Integer Dim orient As String Dim protec As String Dim dess As String Dim heure As Integer 'valeur des variables nb = Cells(72, 3) orient = Cells(73, 3) protec = Cells(74, 3) dess = Cells(75, 3) heure = Cells(78, 3) 'détermination de l'heure If nb = 1 And orient = "N" And protec = "fenetresprotegees" And dess = "a" Then Cells(78, 3) = 14 End If End Sub Si pas ça...