Facon d'ecrire

Bonjour

Pourriez vous me dire si cette forme d'ecriture est valide :

For Each cel In Workbooks("A.xls").Sheets("COMMANDES").Range("b6:b100")
 If cel.Interior.ColorIndex = 6 Then

For Each feuille In Workbooks("B.xls")
If (feuille.Name = cel.Offset(0, 1) And feuille.Range("l9") = "AUTO") Then
'traitement
end if
next 

sachant que feuille est une variable de type worksheet et se trouve sur un classeur B, cel est de type range et se trouve sur un classeur A

parcequ'il me semble que la partie d'instruction apres le "and" n'est pas du tout pris en compte .

dans la ligne :

If (feuille.Name = cel.Offset(0, 1) And feuille.Range("l9") = "AUTO") Then

et j'ai un doute sur le fait d'avoir ecrit feuille.Range("l9") ="AUTO"

il s'agit juste de me dire si cette formulation est correcte , Merci à vous

cordialement .

Bonjour Rocket4 le forum

si tu veux travailler sur les feuilles il faudrait peut être le dire ?? qu'en penses tu??

là ou je met des ?????????,,

pour le feuille.Range("l9") = "AUTO" pas de soucis si c'est bien i9 ou l9 mais par 19

a+

Papou

For Each feuille In Workbooks("B.xls").???????????
     If (feuille.Name = cel.Offset(0, 1) And feuille.Range("l9") = "AUTO") Then
         'traitement
     end if
next feuille

bonjour Paritec , merci pour votre réponse .