Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problèmes macros

I

Isa

Guest
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.
 
P

Pascal76

Guest
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…