Boucle a plusieurs conditions

[bebe1310]

Voici ma macro


Sub test()

'de la cellule a1 à a10

For i = 1 To 10
If IsEmpty(Cells(i, 1)) Then
Cells(i, 1).Value = "vide"
exit sub ' ou exit for au choix
End If
Next i

End Sub

cette macro est tres bien mais je voudrais l'approfondir .

Est-il possible de rajouter apres >>If IsEmpty(Cells(i, 1))<< une autre condition devant etre realisée (exemple qui m'interresse : il faudrait que la cellule A1 de la feuil1 du fichier classeur1 soit egale a ok) pour qu'il marque dans cette case la valeur vide que l'on a definit



Merci pour votre aide je ne sais pas si j'ai ete clair dans ma demande


bebe1310

 

[vincent]

Bonsoir

Tu rajoute dans ton If IsEmpty(Cells(i, 1)) 'and workbooks("classeur1").sheets("feuil1").range("a1")="ok" then .....

Bonne soirée

@+Vincent

 

[bebe1310]

merci bcp ca marche excellement bien


bebe1310