Bonjour DamNation, ric, le forum,
Heu....il ne manquerait pas une condition dans la formule
F3 =SI(ET(K3="Etat";G3="non");"Libre";SI(OU(K3=0;K3="PV";K3="EVI");"Non libre"))
??
=SI(ET(K3="Etat";G3="non");"Libre";SI(OU(K3=0;K3="PV";K3="EVI");"Non libre";""))
On peut écrire la formule en F3 et la tirer jusqu'à la dernière ligne ?
Sub test()
Dim derlig As Long
With Sheets("Feuil1")
derlig = .Range("E" & Rows.Count).End(xlUp).Row 'dernière ligne en colonne E
.Range("F3").Formula = "=IF(AND(K3=""Etat"",G3=""non""),""Libre"",IF(OR(K3=0,K3=""PV"",K3=""EVI""),""Non libre"",""""))"
.Range("F3:F" & derlig).FillDown
End With
End Sub
Mais peut-être suis-je hors sujet, ??
Cordialement,