probleme vba

Pierrot93

XLDnaute Barbatruc

• 22 Juillet 2015

• #2

Re : probleme vba

Bonjour,

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

bonne journée
@+

 

Vote positif 0 Vote négatif

G

Guismo33

XLDnaute Occasionnel

• 22 Juillet 2015

• #3

Re : probleme vba

Bonjour,

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

Cdlmnt 😉

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 22 Juillet 2015

• #4

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Juillet 2015

• #5

Re : probleme vba

Re, bonjour Bertrand🙂

en précisant la feuille :

Code:

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
@+

 

Vote positif 0 Vote négatif

G

Guismo33

XLDnaute Occasionnel

• 22 Juillet 2015

• #6

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Juillet 2015

• #7

Re : probleme vba

Re,

If Range("f3") = r Then

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

G

Guismo33

XLDnaute Occasionnel

• 22 Juillet 2015

• #8

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Juillet 2015

• #9

Re : probleme vba

Re,

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

 

Vote positif 0 Vote négatif

G

Guismo33

XLDnaute Occasionnel

• 22 Juillet 2015

• #10

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 🙂

 

Vote positif 0 Vote négatif

G

Guismo33

XLDnaute Occasionnel

• 22 Juillet 2015

• #11

Re : probleme vba

re ,

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

merci encore


Cdlmnt

 

Pièces jointes

• Synthese exemple macro.xlsm

  106 KB · Affichages: 12

Vote positif 0 Vote négatif

G

Guismo33

XLDnaute Occasionnel

• 22 Juillet 2015

• #12

Re : probleme vba

re,

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

merci encore a toi



Cdlmnt

 

Pièces jointes

• Synthese exemple (2).xlsm

  69.8 KB · Affichages: 24

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Juillet 2015

• #13

Re : probleme vba

Bonjour,

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

bonne journée
@+

 

Vote positif 0 Vote négatif