VBA Problème avec IF And IF

[Arpette]

Bonsoir à toutes et à tous,
Je n'arrive pas à trouver le syntaxe VBA qui fait la même chose que la formule Excel "SI(ET) qui renvoi vrai si les deux conditions sont vraies. J'ai tenté comme ceci mais il y a un problème:

With Worksheets("5-9-12")
    Set p = .Range("O" & .Range("O65536").End(xlUp).Row)
Do While p.Row > 1
If p(1, 1) = "" Then ' on ne fait rien, 'sinon on regarde si p(-6,1) c'est a dire colonne  H même ligne est différente de 0
       If p(-6, 1) <> 0 Then 
         p(1, 4) = p(2, 4).Value
         p(1, 5) = p(2, 5).Value
         p(1, 6) = p(2, 6).Value
            Else
        End If
    End If
    
    Set p = p(0, 1)
Loop
End With

 

[ROGER2327]

Re : VBA Problème avec IF And IF

Bonjour Arpette

Ceci, peut-être ?

With Worksheets("5-9-12")
  Set p = .Range("O" & .Range("O65536").End(xlUp).Row)
  Do While p.Row > 1
    If p(1, 1) = "" And p(-6, 1) <> 0 Then
      p(1, 4) = p(2, 4).Value
      p(1, 5) = p(2, 5).Value
      p(1, 6) = p(2, 6).Value
    End If
    Set p = p(0, 1)
  Loop
End With

​

ROGER2327
#4811

Mardi 24 Sable 138 (Sainte Pochetée, gouvernante, SQ)
4 Nivôse An CCXIX
2010-W51-5T17:49:19Z

 

[Arpette]

Re : VBA Problème avec IF And IF

Bonsoir Roger, c'est exactement çà.
Merci et joyeux Noël.
@+