Bonjour je vous soumet mon blème.  
qui se divise en 2 parties  
 
Dans une feuille Excel de ce genre :
 
       ColA        ColB ColC  ColD   ColF ColTst
lig1   1a           2b 3c 4d 5e 1  
lig2   1a           2b 3c 4d 5e  
lig3   8a           9b 10c 11d 12e 1
lig4   8a           9b 10c 11d 12e  
lig5   13a         14b 15c 16d 17e 1
lig6   13a         14b 15c 16d 17e  
 
 
Je voudrais faire une boucle qui positionne 1 dans la ColTst si (ColDLig1 <> blanc et ColdLig2 <> blanc et ColDLig1<>ColdLig2)
J'utilise la fomule Excel ou VB suivante mais comment faire pour la répeter sur l'ensemble des ligne de mon tableau      
 
[Code]
ActiveCell.FormulaR1C1 = _  
        "=IF(AND(RC[-5]>"" "",R[-1]C[-5]>"" "",RC[-5]<>R[-1]C[-5]),""1"","" "" )"  
[\Code]
 
2eme - Chose qui dépend de la première  
Une fois la ColTst inialisée, j'aimerai savoir comment sélectionner les cellule ColALig1 à ColdLig6 et les mettre à blanc quand la valeur de la Coltst Lig
est égale à blanc ?
 
Toute aide sera la bienvenue  
Au secour !!!!

Voila le code
 

i=2
while(not(range("f" & i) ="" ))
      range("g" & i)=    "=IF(AND(RC[-5]>"" "",R[-1]C[-5]>"" "",RC[-5]<>R[-1]C[-5]),""1"","" "" )"  
      i=i+1
wend
 
i=2
while(not(range("f" & i) ="" ))
      if(range("g" & i)= "" ) then
                 range("a" & i & "f" & i).clearcontents
      endif
      i=i+1
wend
 

 
 
Et le tour est joué
 
a++
 
Nico