If Or And

Le
Denys
Bonjour à tous,

Je m'emmêle un peu dans une formule en VBA

En fait, je veux dire ce qui suit:

Si la colonne W ou X >0 et que la colonne AA ou AB > 0 alors ajouter
"A" à la colonne O.

Voici où j'en suis:

Dim i As Long, NbRow As Long
NbRow = Range("A65536").End(xlUp).Row
For i = NbRow To 2 Step -1

If(or(Cells(i, 23).Value > 0, Cells(i, 24).Value > 0))
And(or(Cells(i, 27).Value = 0,(Cells(i, 28).Value) = 0)) Then
Cells(i, 15).Value = "O"

End If
Je bloque .

Merci pour votre aide

Denys
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #23053011
Bonjour,

Le code devrait ressembler à ceci :

Si Wx ou Xx est plus grand que 0 ET
Zx ET AA sont plus grands que zéro alor
Cells(i, 15).Value = "O"

Dim i As Long, NbRow As Long
NbRow = Range("A65536").End(xlUp).Row
For i = NbRow To 2 Step -1
If (Cells(i, 23).Value > 0 Or _
Cells(i, 24).Value > 0) And _
(Cells(i, 27).Value = 0 And _
Cells(i, 28).Value = 0) Then
Cells(i, 15).Value = "O"
End If
Next



MichD
--------------------------------------------
"Denys" a écrit dans le message de groupe de discussion :


Bonjour à tous,

Je m'emmêle un peu dans une formule en VBA...

En fait, je veux dire ce qui suit:

Si la colonne W ou X >0 et que la colonne AA ou AB > 0 alors ajouter
"A" à la colonne O.

Voici où j'en suis:

Dim i As Long, NbRow As Long
NbRow = Range("A65536").End(xlUp).Row
For i = NbRow To 2 Step -1

If(or(Cells(i, 23).Value > 0, Cells(i, 24).Value > 0))
And(or(Cells(i, 27).Value = 0,(Cells(i, 28).Value) = 0)) Then
Cells(i, 15).Value = "O"

End If
Je bloque ....

Merci pour votre aide...

Denys
michel ou sam
Le #23053001
Bonjour,
Va voir un banquier, ton or est mal placé ;-))
En respectant le texte de ta demande :

Dim i As Long, NbRow As Long
NbRow = Range("A65536").End(xlUp).Row
For i = NbRow To 2 Step -1
If ((Cells(i, 23).Value > 0 Or Cells(i, 24).Value > 0)) And ((Cells(i,
27).Value > 0 Or (Cells(i, 28).Value) > 0)) Then
Cells(i, 15).Value = "A"
End If
Next i

Michel

"Denys"
Bonjour à tous,

Je m'emmêle un peu dans une formule en VBA...

En fait, je veux dire ce qui suit:

Si la colonne W ou X >0 et que la colonne AA ou AB > 0 alors ajouter
"A" à la colonne O.

Voici où j'en suis:

Dim i As Long, NbRow As Long
NbRow = Range("A65536").End(xlUp).Row
For i = NbRow To 2 Step -1

If(or(Cells(i, 23).Value > 0, Cells(i, 24).Value > 0))
And(or(Cells(i, 27).Value = 0,(Cells(i, 28).Value) = 0)) Then
Cells(i, 15).Value = "O"

End If
Je bloque ....

Merci pour votre aide...

Denys
Denys
Le #23053061
Bonjour Denis et Michel,

Merci beaucoup messieurs, je sauve bien du temprs !! :-)

Denys
michel ou sam
Le #23053051
si on n'aime pas l'or, on peut aussi écrire

If (((Cells(i, 23).Value > 0) + (Cells(i, 24).Value > 0)) * ((Cells(i,
27).Value > 0) _
+ (Cells(i, 28).Value > 0))) Then Cells(i, 15).Value = "A"

Michel

"Denys"
Bonjour Denis et Michel,

Merci beaucoup messieurs, je sauve bien du temprs !! :-)

Denys
Publicité
Poster une réponse
Anonyme