Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
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
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 :
41e92650-7008-4ca1-b8fe-f35f036d82b7@f20g2000vbc.googlegroups.com...
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
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
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" a écrit dans le message de news:
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
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" <denys.perreault@rbc.com> a écrit dans le message de news:
41e92650-7008-4ca1-b8fe-f35f036d82b7@f20g2000vbc.googlegroups.com...
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
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" a écrit dans le message de news:
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
