Formule excel, macro

Résolu/Fermé
Ttomax Messages postés 60 Date d'inscription vendredi 13 novembre 2009 Statut Membre Dernière intervention 26 juin 2012 - 18 mai 2011 à 17:22
Ttomax Messages postés 60 Date d'inscription vendredi 13 novembre 2009 Statut Membre Dernière intervention 26 juin 2012 - 18 mai 2011 à 19:19
Bonjour,
J'ai un problème, je suis fénéant ^^

Nan, j'ai effectué une petite macro sur mon fichier, elle fonctionne très bien, seulement, il me faudrait l'appliquer des lignes 3 à 178, et la c'est mon problème car je n'ai pas envie de recopier 175 fois ^^

Voici ma macro:

Private Sub CommandButton1_Click()


If Feuil1.Range("g3") = 1 Then
Range("a3:h3").Interior.ColorIndex = 27
ElseIf Feuil1.Range("g2") <> 1 Then
Range("a3:h3").Interior.ColorIndex = 2
End If

End Sub

D'avance merci de votre aide...


A voir également:

6 réponses

KantinT Messages postés 44 Date d'inscription mardi 19 avril 2011 Statut Membre Dernière intervention 1 juillet 2011 2
18 mai 2011 à 17:36
Salut.
Je suis pas un expert mais il me semble que tu peu faire:

Private Sub CommandButton1_Click()

For i=3 To 178
If Feuil1.Range("gi") = 1 Then
Range("ai:hi").Interior.ColorIndex = 27
ElseIf Feuil1.Range("gi") <> 1 Then
Range("ai:hi").Interior.ColorIndex = 2
End If

End Sub

Mais je suis pas sur et notament de la syntaxe
J'espère pas avoir raconté n'importe quoi.

Bonne continuation.
0
Mike009 Messages postés 130 Date d'inscription mardi 28 avril 2009 Statut Membre Dernière intervention 28 juin 2016 18
18 mai 2011 à 17:38
Clique en bas a droite de la première cellule puis par la suite, maintient le clique pour glisser la formule pour l'insérer dans les autres cellules.
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 18/05/2011 à 17:45
bonjour

conseil d'un fainéant aguerri:

une macro est ici + fatigante à faire qu'une mise en forme conditionnelle surtout que tu aurais pu faire une macro plus simple
tu vois, tu as beaucoup à faire pour rentrer dans l'ordre très convoité "des frères paresseux"
:o)
0
Ttomax Messages postés 60 Date d'inscription vendredi 13 novembre 2009 Statut Membre Dernière intervention 26 juin 2012 1
18 mai 2011 à 18:08
Merci KantinT, mais ca ne marche pas, il doit y avoir une erreur ^^

Sinon michel je suis ok avec toi seul la mise en forme conditionnel fonctionne pour une cellule hors j'ai 6 cellules à mettre en forme pour une condition....
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 18/05/2011 à 18:58
tu sélectionnes A3:H3 sur XL2003 ou A3:H158 sur Xl2007

dans Mise en forme conditionnelle - la formule est
=($G3=1) et tu demandes du jaune

comme 2<===> blanc: pas besoin de traiter à moins que les cellules soient coloriées au départ (rien dans les cellules)

sur XL2003
et tu sélectionnes ta plage tu fait copier -collage spécial-format
0
Ttomax Messages postés 60 Date d'inscription vendredi 13 novembre 2009 Statut Membre Dernière intervention 26 juin 2012 1
18 mai 2011 à 19:19
Ah bah oui comme ca, c'est bon!! merki bcp et bien plus simple ^^

Bonne soirée et merci à tous
0