probleme vba

[Guismo33]

Bonjour a tous,

J'ai 31 feuilles et je voudrais faire fonctionner ma Vba que voici :

Sub Effacer_Couleurs()
Dim c As Range
For Each c In Range("presse")
c.Interior.ColorIndex = xlNone
Next
End Sub

est-il possible de la faire fonctionner sur toutes les feuilles ?

merci a tous

Cordialement 🙂

 

[Pierrot93]

Re : probleme vba

Bonjour,

et ta plage nommée est présente sur toutes les feuilles sous ce même nom ??

bonne journée
@+

 

[Guismo33]

Re : probleme vba

Bonjour,

oui ma plage donnée est bien la même sur toutes les feuilles.

Cdlmnt 😉

 

[mutzik]

Re : probleme vba

bonjour, je dirais

Sub Effacer_Couleurs()
Dim c As worksheet
For Each c In worksheets
Range("presse").Interior.ColorIndex = xlNone
Next
End Sub

 

[Pierrot93]

Re : probleme vba

Re, bonjour Bertrand🙂

en précisant la feuille :

Option Explicit
Sub Effacer_Couleurs()
Dim c As Range, ws As Worksheet
For Each ws In Worksheets
    ws.Range("presse").Interior.ColorIndex = xlNone
Next ws
End Sub

bon après midi
@+

 

[Guismo33]

Re : probleme vba

bonjour,

j'ai cette Vba aussi je l'ai mis a ma sauce mes je ne suis pas caller :
Sub Resultat_Presse()
Dim r As worksheet
For Each r In worksheet
range("presse")
If Range("f3") = r Then
r.Interior.ColorIndex = 3
ElseIf Range("g3") = r Then
r.Interior.ColorIndex = 47
ElseIf Range("h3") = r Then
r.Interior.ColorIndex = 6
ElseIf Range("i3") = r Then
r.Interior.ColorIndex = 43
ElseIf Range("j3") = r Then
r.Interior.ColorIndex = 44
End If
Next
End Sub

si possible sur plusieurs fichiers

merci a vous

 

[Pierrot93]

Re : probleme vba

Re,

If Range("f3") = r Then

comprends pas trop ta comparaison d'une cellule avec une feuille de calcul....

 

[Guismo33]

Re : probleme vba

bonjour,

j'ai cette Vba aussi je l'ai mis a ma sauce mes je ne suis pas caller :
Sub Resultat_Presse()
Dim r As worksheet
For Each r In worksheet
range("presse")
If Range("f3") = r Then
r.Interior.ColorIndex = 3
ElseIf Range("g3") = r Then
r.Interior.ColorIndex = 47
ElseIf Range("h3") = r Then
r.Interior.ColorIndex = 6
ElseIf Range("i3") = r Then
r.Interior.ColorIndex = 43
ElseIf Range("j3") = r Then
r.Interior.ColorIndex = 44
End If
Next
End Sub

si possible sur plusieurs fichiers

merci a vous

 

[Pierrot93]

Re : probleme vba

Re,

tu ne réponds pas à ma question... difficile de t'aider dans ces conditions....

 

[Guismo33]

Re : probleme vba

re,

en faite j'ai recuperer les infos sur un autre fichier, mais lui il a qu'une feuille et moi j'en veux plusieurs

cdlmnt 🙂

 

[Guismo33]

Re : probleme vba

re ,

je t'envois le fichier, cela pourra peut être d'aider

merci encore


Cdlmnt

 

[Guismo33]

Re : probleme vba

re,

oups je me suis tromper, regarde j'ai une troisième boite

merci encore a toi



Cdlmnt

 

[Pierrot93]

Re : probleme vba

Bonjour,

ouvert ton fichier mais rien compris de se que tu cherches à faire...

bonne journée
@+