Re : Aide sur macro
Bonjour le Forum,
J'utilise la macro suivante :
Sub Affichertarifs()
AlternerCellulesPlages Range("AM95:AM482")
AlternerCellulesPlages Range("AQ96:AQ482")
AlternerCellulesPlages Range("AX96:AX482")
AlternerCellulesPlages Range("BD96:BD482")
Range("BG554").Font.ColorIndex = 2
Range("AY539").Font.ColorIndex = 2
[BK543] = "A"
End Sub
Sub AlternerCellulesPlages(Plage As Range)
Dim i As Long
For i = 1 To Plage.Cells.Count Step 2
Plage.Cells(i).Font.ColorIndex = 0
Next i
End Sub
J'ai juste un souci dans l'exécution de celle-ci. Elle est très longue à s'exécuter (plus d'une minute). Est-il possible, toujours pour les mêmes plages, d'avoir le même fonctionnement mais uniquement en fonction des lignes remplies.
Autrement dit, car je ne suis pas sûr d'être clair (!), je souhaite que les cellules concernées (AM95, AQ96,AX96 et BD 96)se mettent en police de caractère noir que si A95 est rempli par exemple et ainsi de suite si je remplis A97, A99, ...
D'avance je vous remercie pour votre aide.
Riegel