Problèmes macros

[Isa]

Bonjour,

Débutante en macro, je veux mettre en forme des titres grâce à cette macro :
If Range("C17").Value = 1 Then
Range("E17").Style = "niveau1"
End If
If Range("C18").Value = 1 Then
Range("E18").Style = "niveau1"
End If

Si je mets 1 dans la cellule c17, il me met le style "niveau 1" dans la cellule e17, ainsi de suite,.... Existe-t-il une formule qui me permet de faire en boucle jusque la fin de ma page sans que je sois obligée d'écrire c17, c18, c19, ... c500.

Merci de votre aide.

 

[Pascal76]

Bonjour

Par exemple

For x = 17 to range("C65536").end(xlup).row
If Range("C" & x).Value = 1 Then
Range("E" & x).Style = "niveau1"
End If
next

Bon courage

Pascal

 

[Isa]

Merci beaucoup, cela fonctionne du tonnerre.
Ce forum est génial...
Encore merci