Programmation Formule VBA Macro EXCEL

[laverdure_91]

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

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 !!!!

 

[nicodoudou]

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