Autres Test simultané sur deux cellules

[Michel1942]

Bonjour à tous,

J'aimerais de l'aide pour résoudre le problème suivant en VBA:
Je suis encore sous Excel 2002.

Pour toutes les cellules de A3 à B700
si A est non vide et B est vide
Alors la ligne est coloriée en jaune

Merci d'avance de votre aide

 

[Yoyo01000]

Bonjour,
il faut absolument passer par VBA ? Car une simple MFC peut largement faire l'affaire

 

[fanfan38]

Bonjour
j'espère avoir répondu à ta question

Sub macouleur()
  Dim i As Integer
  For i = 3 To 700
    If Len(Range("A" & i).Value) > 0 And Len(Range("B" & i).Value) = 0 Then
      Range("A" & i).EntireRow.Interior.ColorIndex = 6
    End If
  Next
End Sub

A+ François

 

[Michel1942]

Bonjour
j'espère avoir répondu à ta question

Sub macouleur()
  Dim i As Integer
  For i = 3 To 700
    If Len(Range("A" & i).Value) > 0 And Len(Range("B" & i).Value) = 0 Then
      Range("A" & i).EntireRow.Interior.ColorIndex = 6
    End If
  Next
End Sub

A+ François
[

 

[Michel1942]

Bonjour
j'espère avoir répondu à ta question

Sub macouleur()
  Dim i As Integer
  For i = 3 To 700
    If Len(Range("A" & i).Value) > 0 And Len(Range("B" & i).Value) = 0 Then
      Range("A" & i).EntireRow.Interior.ColorIndex = 6
    End If
  Next
End Sub

A+ François

Cà fonctionne très bien . Merci beaucoup.

 

[Michel1942]

Bonjour
j'espère avoir répondu à ta question

Sub macouleur()
  Dim i As Integer
  For i = 3 To 700
    If Len(Range("A" & i).Value) > 0 And Len(Range("B" & i).Value) = 0 Then
      Range("A" & i).EntireRow.Interior.ColorIndex = 6
    End If
  Next
End Sub

A+ François

Merci pour le coup de main. C'est parfait