Bonjour à tous
Dans Feuil1 j’ai les Range lig et col ( nous avons également la
remarquable
palette de GeeDee 1596 couleurs )
Dans la Feuil1 j’ai également un groupe de formes nommé groupe
Dans la Feuil2 nommée MosaiqueJPV j’ai un groupe de formes nommé Groupe
clair
Pourquoi ma macro se plante sur Groupe clair alors qu’elle fonctionne sur
groupe :
Sub Colorerclair()
Dim ligne As Long, colonne As Long
ligne = [lig]: colonne = [col]
Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.ColorIndex
> ligne 'fontionne !
Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.Pattern
= xlPatternGray50 'fontionne !
Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.PatternColorIndex
= colonne 'fontionne !
' Worksheets("Feuil2").Shapes("Groupe
clair").OLEFormat.Object.Interior.ColorIndex = ligne 'ne marche pas
' Worksheets("Feuil2").Shapes("Groupe
clair").OLEFormat.Object.Interior.Pattern = xlPatternGray50 'ne marche pas
' Worksheets("Feuil2").Shapes("Groupe
clair").OLEFormat.Object.Interior.PatternColorIndex = colonne 'ne marche
pas
Worksheets("MosaiqueJPV").Shapes("Groupe
clair").OLEFormat.Object.Interior.ColorIndex = ligne 'ne marche pas mieux
Worksheets("MosaiqueJPV").Shapes("Groupe
clair").OLEFormat.Object.Interior.Pattern = xlPatternGray50 'ne marche pas
Worksheets("MosaiqueJPV").Shapes("Groupe
clair").OLEFormat.Object.Interior.PatternColorIndex = colonne 'ne marche
pas
End Sub
Avec Feuil2…. j’ai le message d’erreur ‘’L’indice n’appartient pas à la
sélection’’
Avec MosaiqueJPV…’’Impossible de définir la propriété ColorIndex de la
classe Interior
http://cjoint.com/?ijipSvjUZY
@+ j’espère
--
Jean-Paul V
Bonjour à tous
Dans Feuil1 j’ai les Range lig et col ( nous avons également la
remarquable
palette de GeeDee 1596 couleurs )
Dans la Feuil1 j’ai également un groupe de formes nommé groupe
Dans la Feuil2 nommée MosaiqueJPV j’ai un groupe de formes nommé Groupe
clair
Pourquoi ma macro se plante sur Groupe clair alors qu’elle fonctionne sur
groupe :
Sub Colorerclair()
Dim ligne As Long, colonne As Long
ligne = [lig]: colonne = [col]
Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.ColorIndex
> ligne 'fontionne !
Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.Pattern
= xlPatternGray50 'fontionne !
Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.PatternColorIndex
= colonne 'fontionne !
' Worksheets("Feuil2").Shapes("Groupe
clair").OLEFormat.Object.Interior.ColorIndex = ligne 'ne marche pas
' Worksheets("Feuil2").Shapes("Groupe
clair").OLEFormat.Object.Interior.Pattern = xlPatternGray50 'ne marche pas
' Worksheets("Feuil2").Shapes("Groupe
clair").OLEFormat.Object.Interior.PatternColorIndex = colonne 'ne marche
pas
Worksheets("MosaiqueJPV").Shapes("Groupe
clair").OLEFormat.Object.Interior.ColorIndex = ligne 'ne marche pas mieux
Worksheets("MosaiqueJPV").Shapes("Groupe
clair").OLEFormat.Object.Interior.Pattern = xlPatternGray50 'ne marche pas
Worksheets("MosaiqueJPV").Shapes("Groupe
clair").OLEFormat.Object.Interior.PatternColorIndex = colonne 'ne marche
pas
End Sub
Avec Feuil2…. j’ai le message d’erreur ‘’L’indice n’appartient pas à la
sélection’’
Avec MosaiqueJPV…’’Impossible de définir la propriété ColorIndex de la
classe Interior
http://cjoint.com/?ijipSvjUZY
@+ j’espère
--
Jean-Paul V
Bonjour à tous
Dans Feuil1 j’ai les Range lig et col ( nous avons également la
remarquable
palette de GeeDee 1596 couleurs )
Dans la Feuil1 j’ai également un groupe de formes nommé groupe
Dans la Feuil2 nommée MosaiqueJPV j’ai un groupe de formes nommé Groupe
clair
Pourquoi ma macro se plante sur Groupe clair alors qu’elle fonctionne sur
groupe :
Sub Colorerclair()
Dim ligne As Long, colonne As Long
ligne = [lig]: colonne = [col]
Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.ColorIndex
> ligne 'fontionne !
Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.Pattern
= xlPatternGray50 'fontionne !
Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.PatternColorIndex
= colonne 'fontionne !
' Worksheets("Feuil2").Shapes("Groupe
clair").OLEFormat.Object.Interior.ColorIndex = ligne 'ne marche pas
' Worksheets("Feuil2").Shapes("Groupe
clair").OLEFormat.Object.Interior.Pattern = xlPatternGray50 'ne marche pas
' Worksheets("Feuil2").Shapes("Groupe
clair").OLEFormat.Object.Interior.PatternColorIndex = colonne 'ne marche
pas
Worksheets("MosaiqueJPV").Shapes("Groupe
clair").OLEFormat.Object.Interior.ColorIndex = ligne 'ne marche pas mieux
Worksheets("MosaiqueJPV").Shapes("Groupe
clair").OLEFormat.Object.Interior.Pattern = xlPatternGray50 'ne marche pas
Worksheets("MosaiqueJPV").Shapes("Groupe
clair").OLEFormat.Object.Interior.PatternColorIndex = colonne 'ne marche
pas
End Sub
Avec Feuil2…. j’ai le message d’erreur ‘’L’indice n’appartient pas à la
sélection’’
Avec MosaiqueJPV…’’Impossible de définir la propriété ColorIndex de la
classe Interior
http://cjoint.com/?ijipSvjUZY
@+ j’espère
--
Jean-Paul V
Dans Feuil1 jâai les Range lig et col ( nous avons également la
remarquable palette de GeeDee 1596 couleurs )
Pourquoi ma macro se plante sur Groupe clair alors quâelle fonctionne sur ../..
Dans Feuil1 jâai les Range lig et col ( nous avons également la
remarquable palette de GeeDee 1596 couleurs )
Pourquoi ma macro se plante sur Groupe clair alors quâelle fonctionne sur ../..
Dans Feuil1 jâai les Range lig et col ( nous avons également la
remarquable palette de GeeDee 1596 couleurs )
Pourquoi ma macro se plante sur Groupe clair alors quâelle fonctionne sur ../..
Si tu as formé un groupe avec des formes :
tu peux utiliser ceci :
Le nom du groupe de formes est : "Groupe 4"
Feuil1.Shapes("Groupe 4").OLEFormat.Object.Interior.ColorIndex = 5
Si tu as un groupe et que tu veuillles colorer seulement une forme
du groupe, tu peux utiliser ceci :
L'Index 3 représente la forme 3 dans le Groupe désigné.
Feuil1.Shapes("Groupe 4").GroupItems(3).Fill.ForeColor.RGB = RGB(200, 200,
200)
Si tu veux utiliser le nom de la shape dans un groupe, tu peux utiliser ceci
:
Exemple : Pour mettre de la couleur seulement dans la
shape "Rectangle 1" d'un "Groupe" de formes
'--------------------------------------
Sub test1()
Dim Sh As Shape, NbShapes As Integer
Dim A As Integer
Set Sh = Feuil1.Shapes("Groupe 4")
NbShapes = Sh.GroupItems.Count
For A = 1 To NbShapes
With Sh.GroupItems.Item(A)
If .Name = "Rectangle 1" Then
.Fill.ForeColor.RGB = RGB(200, 200, 200)
End If
End With
Next
End Sub
'--------------------------------------
"Jean-Paul V" a écrit dans le message
de news:
Bonjour à tous
Dans Feuil1 j’ai les Range lig et col ( nous avons également la remarquable
palette de GeeDee 1596 couleurs )
Dans la Feuil1 j’ai également un groupe de formes nommé groupe
Dans la Feuil2 nommée MosaiqueJPV j’ai un groupe de formes nommé Groupe
clair
Pourquoi ma macro se plante sur Groupe clair alors qu’elle fonctionne sur
groupe :
Sub Colorerclair()
Dim ligne As Long, colonne As Long
ligne = [lig]: colonne = [col]
Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.ColorIndex > ligne 'fontionne !
Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.Pattern
= xlPatternGray50 'fontionne !
Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.PatternColorIndex
= colonne 'fontionne !
' Worksheets("Feuil2").Shapes("Groupe
clair").OLEFormat.Object.Interior.ColorIndex = ligne 'ne marche pas
' Worksheets("Feuil2").Shapes("Groupe
clair").OLEFormat.Object.Interior.Pattern = xlPatternGray50 'ne marche pas
' Worksheets("Feuil2").Shapes("Groupe
clair").OLEFormat.Object.Interior.PatternColorIndex = colonne 'ne marche pas
Worksheets("MosaiqueJPV").Shapes("Groupe
clair").OLEFormat.Object.Interior.ColorIndex = ligne 'ne marche pas mieux
Worksheets("MosaiqueJPV").Shapes("Groupe
clair").OLEFormat.Object.Interior.Pattern = xlPatternGray50 'ne marche pas
Worksheets("MosaiqueJPV").Shapes("Groupe
clair").OLEFormat.Object.Interior.PatternColorIndex = colonne 'ne marche pas
End Sub
Avec Feuil2…. j’ai le message d’erreur ‘’L’indice n’appartient pas à la
sélection’’
Avec MosaiqueJPV…’’Impossible de définir la propriété ColorIndex de la
classe Interior
http://cjoint.com/?ijipSvjUZY
@+ j’espère
--
Jean-Paul V
Si tu as formé un groupe avec des formes :
tu peux utiliser ceci :
Le nom du groupe de formes est : "Groupe 4"
Feuil1.Shapes("Groupe 4").OLEFormat.Object.Interior.ColorIndex = 5
Si tu as un groupe et que tu veuillles colorer seulement une forme
du groupe, tu peux utiliser ceci :
L'Index 3 représente la forme 3 dans le Groupe désigné.
Feuil1.Shapes("Groupe 4").GroupItems(3).Fill.ForeColor.RGB = RGB(200, 200,
200)
Si tu veux utiliser le nom de la shape dans un groupe, tu peux utiliser ceci
:
Exemple : Pour mettre de la couleur seulement dans la
shape "Rectangle 1" d'un "Groupe" de formes
'--------------------------------------
Sub test1()
Dim Sh As Shape, NbShapes As Integer
Dim A As Integer
Set Sh = Feuil1.Shapes("Groupe 4")
NbShapes = Sh.GroupItems.Count
For A = 1 To NbShapes
With Sh.GroupItems.Item(A)
If .Name = "Rectangle 1" Then
.Fill.ForeColor.RGB = RGB(200, 200, 200)
End If
End With
Next
End Sub
'--------------------------------------
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message
de news: 39408582-88AD-4AA4-9B85-BA32A559CA78@microsoft.com...
Bonjour à tous
Dans Feuil1 j’ai les Range lig et col ( nous avons également la remarquable
palette de GeeDee 1596 couleurs )
Dans la Feuil1 j’ai également un groupe de formes nommé groupe
Dans la Feuil2 nommée MosaiqueJPV j’ai un groupe de formes nommé Groupe
clair
Pourquoi ma macro se plante sur Groupe clair alors qu’elle fonctionne sur
groupe :
Sub Colorerclair()
Dim ligne As Long, colonne As Long
ligne = [lig]: colonne = [col]
Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.ColorIndex > ligne 'fontionne !
Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.Pattern
= xlPatternGray50 'fontionne !
Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.PatternColorIndex
= colonne 'fontionne !
' Worksheets("Feuil2").Shapes("Groupe
clair").OLEFormat.Object.Interior.ColorIndex = ligne 'ne marche pas
' Worksheets("Feuil2").Shapes("Groupe
clair").OLEFormat.Object.Interior.Pattern = xlPatternGray50 'ne marche pas
' Worksheets("Feuil2").Shapes("Groupe
clair").OLEFormat.Object.Interior.PatternColorIndex = colonne 'ne marche pas
Worksheets("MosaiqueJPV").Shapes("Groupe
clair").OLEFormat.Object.Interior.ColorIndex = ligne 'ne marche pas mieux
Worksheets("MosaiqueJPV").Shapes("Groupe
clair").OLEFormat.Object.Interior.Pattern = xlPatternGray50 'ne marche pas
Worksheets("MosaiqueJPV").Shapes("Groupe
clair").OLEFormat.Object.Interior.PatternColorIndex = colonne 'ne marche pas
End Sub
Avec Feuil2…. j’ai le message d’erreur ‘’L’indice n’appartient pas à la
sélection’’
Avec MosaiqueJPV…’’Impossible de définir la propriété ColorIndex de la
classe Interior
http://cjoint.com/?ijipSvjUZY
@+ j’espère
--
Jean-Paul V
Si tu as formé un groupe avec des formes :
tu peux utiliser ceci :
Le nom du groupe de formes est : "Groupe 4"
Feuil1.Shapes("Groupe 4").OLEFormat.Object.Interior.ColorIndex = 5
Si tu as un groupe et que tu veuillles colorer seulement une forme
du groupe, tu peux utiliser ceci :
L'Index 3 représente la forme 3 dans le Groupe désigné.
Feuil1.Shapes("Groupe 4").GroupItems(3).Fill.ForeColor.RGB = RGB(200, 200,
200)
Si tu veux utiliser le nom de la shape dans un groupe, tu peux utiliser ceci
:
Exemple : Pour mettre de la couleur seulement dans la
shape "Rectangle 1" d'un "Groupe" de formes
'--------------------------------------
Sub test1()
Dim Sh As Shape, NbShapes As Integer
Dim A As Integer
Set Sh = Feuil1.Shapes("Groupe 4")
NbShapes = Sh.GroupItems.Count
For A = 1 To NbShapes
With Sh.GroupItems.Item(A)
If .Name = "Rectangle 1" Then
.Fill.ForeColor.RGB = RGB(200, 200, 200)
End If
End With
Next
End Sub
'--------------------------------------
"Jean-Paul V" a écrit dans le message
de news:
Bonjour à tous
Dans Feuil1 j’ai les Range lig et col ( nous avons également la remarquable
palette de GeeDee 1596 couleurs )
Dans la Feuil1 j’ai également un groupe de formes nommé groupe
Dans la Feuil2 nommée MosaiqueJPV j’ai un groupe de formes nommé Groupe
clair
Pourquoi ma macro se plante sur Groupe clair alors qu’elle fonctionne sur
groupe :
Sub Colorerclair()
Dim ligne As Long, colonne As Long
ligne = [lig]: colonne = [col]
Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.ColorIndex > ligne 'fontionne !
Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.Pattern
= xlPatternGray50 'fontionne !
Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.PatternColorIndex
= colonne 'fontionne !
' Worksheets("Feuil2").Shapes("Groupe
clair").OLEFormat.Object.Interior.ColorIndex = ligne 'ne marche pas
' Worksheets("Feuil2").Shapes("Groupe
clair").OLEFormat.Object.Interior.Pattern = xlPatternGray50 'ne marche pas
' Worksheets("Feuil2").Shapes("Groupe
clair").OLEFormat.Object.Interior.PatternColorIndex = colonne 'ne marche pas
Worksheets("MosaiqueJPV").Shapes("Groupe
clair").OLEFormat.Object.Interior.ColorIndex = ligne 'ne marche pas mieux
Worksheets("MosaiqueJPV").Shapes("Groupe
clair").OLEFormat.Object.Interior.Pattern = xlPatternGray50 'ne marche pas
Worksheets("MosaiqueJPV").Shapes("Groupe
clair").OLEFormat.Object.Interior.PatternColorIndex = colonne 'ne marche pas
End Sub
Avec Feuil2…. j’ai le message d’erreur ‘’L’indice n’appartient pas à la
sélection’’
Avec MosaiqueJPV…’’Impossible de définir la propriété ColorIndex de la
classe Interior
http://cjoint.com/?ijipSvjUZY
@+ j’espère
--
Jean-Paul V
Bonjour,
Et si tu supprimes l'espace dans le nom, ou le remplace par un "_" ?
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Jean-Paul V" a écrit dans le message
de news:
> Bonjour à tous
>
> Dans Feuil1 j’ai les Range lig et col ( nous avons également la
> remarquable
> palette de GeeDee 1596 couleurs )
> Dans la Feuil1 j’ai également un groupe de formes nommé groupe
> Dans la Feuil2 nommée MosaiqueJPV j’ai un groupe de formes nommé Groupe
> clair
>
> Pourquoi ma macro se plante sur Groupe clair alors qu’elle fonctionne sur
> groupe :
>
> Sub Colorerclair()
> Dim ligne As Long, colonne As Long
> ligne = [lig]: colonne = [col]
>
> Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.ColorIndex
> > > ligne 'fontionne !
> Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.Pattern
> = xlPatternGray50 'fontionne !
>
> Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.PatternColorIndex
> = colonne 'fontionne !
>
> ' Worksheets("Feuil2").Shapes("Groupe
> clair").OLEFormat.Object.Interior.ColorIndex = ligne 'ne marche pas
> ' Worksheets("Feuil2").Shapes("Groupe
> clair").OLEFormat.Object.Interior.Pattern = xlPatternGray50 'ne marche pas
> ' Worksheets("Feuil2").Shapes("Groupe
> clair").OLEFormat.Object.Interior.PatternColorIndex = colonne 'ne marche
> pas
>
> Worksheets("MosaiqueJPV").Shapes("Groupe
> clair").OLEFormat.Object.Interior.ColorIndex = ligne 'ne marche pas mieux
> Worksheets("MosaiqueJPV").Shapes("Groupe
> clair").OLEFormat.Object.Interior.Pattern = xlPatternGray50 'ne marche pas
> Worksheets("MosaiqueJPV").Shapes("Groupe
> clair").OLEFormat.Object.Interior.PatternColorIndex = colonne 'ne marche
> pas
> End Sub
>
> Avec Feuil2…. j’ai le message d’erreur ‘’L’indice n’appartient pas à la
> sélection’’
> Avec MosaiqueJPV…’’Impossible de définir la propriété ColorIndex de la
> classe Interior
>
> http://cjoint.com/?ijipSvjUZY
>
>
> @+ j’espère
>
> --
> Jean-Paul V
Bonjour,
Et si tu supprimes l'espace dans le nom, ou le remplace par un "_" ?
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message
de news:39408582-88AD-4AA4-9B85-BA32A559CA78@microsoft.com...
> Bonjour à tous
>
> Dans Feuil1 j’ai les Range lig et col ( nous avons également la
> remarquable
> palette de GeeDee 1596 couleurs )
> Dans la Feuil1 j’ai également un groupe de formes nommé groupe
> Dans la Feuil2 nommée MosaiqueJPV j’ai un groupe de formes nommé Groupe
> clair
>
> Pourquoi ma macro se plante sur Groupe clair alors qu’elle fonctionne sur
> groupe :
>
> Sub Colorerclair()
> Dim ligne As Long, colonne As Long
> ligne = [lig]: colonne = [col]
>
> Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.ColorIndex
> > > ligne 'fontionne !
> Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.Pattern
> = xlPatternGray50 'fontionne !
>
> Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.PatternColorIndex
> = colonne 'fontionne !
>
> ' Worksheets("Feuil2").Shapes("Groupe
> clair").OLEFormat.Object.Interior.ColorIndex = ligne 'ne marche pas
> ' Worksheets("Feuil2").Shapes("Groupe
> clair").OLEFormat.Object.Interior.Pattern = xlPatternGray50 'ne marche pas
> ' Worksheets("Feuil2").Shapes("Groupe
> clair").OLEFormat.Object.Interior.PatternColorIndex = colonne 'ne marche
> pas
>
> Worksheets("MosaiqueJPV").Shapes("Groupe
> clair").OLEFormat.Object.Interior.ColorIndex = ligne 'ne marche pas mieux
> Worksheets("MosaiqueJPV").Shapes("Groupe
> clair").OLEFormat.Object.Interior.Pattern = xlPatternGray50 'ne marche pas
> Worksheets("MosaiqueJPV").Shapes("Groupe
> clair").OLEFormat.Object.Interior.PatternColorIndex = colonne 'ne marche
> pas
> End Sub
>
> Avec Feuil2…. j’ai le message d’erreur ‘’L’indice n’appartient pas à la
> sélection’’
> Avec MosaiqueJPV…’’Impossible de définir la propriété ColorIndex de la
> classe Interior
>
> http://cjoint.com/?ijipSvjUZY
>
>
> @+ j’espère
>
> --
> Jean-Paul V
Bonjour,
Et si tu supprimes l'espace dans le nom, ou le remplace par un "_" ?
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Jean-Paul V" a écrit dans le message
de news:
> Bonjour à tous
>
> Dans Feuil1 j’ai les Range lig et col ( nous avons également la
> remarquable
> palette de GeeDee 1596 couleurs )
> Dans la Feuil1 j’ai également un groupe de formes nommé groupe
> Dans la Feuil2 nommée MosaiqueJPV j’ai un groupe de formes nommé Groupe
> clair
>
> Pourquoi ma macro se plante sur Groupe clair alors qu’elle fonctionne sur
> groupe :
>
> Sub Colorerclair()
> Dim ligne As Long, colonne As Long
> ligne = [lig]: colonne = [col]
>
> Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.ColorIndex
> > > ligne 'fontionne !
> Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.Pattern
> = xlPatternGray50 'fontionne !
>
> Worksheets("Feuil1").Shapes("groupe").OLEFormat.Object.Interior.PatternColorIndex
> = colonne 'fontionne !
>
> ' Worksheets("Feuil2").Shapes("Groupe
> clair").OLEFormat.Object.Interior.ColorIndex = ligne 'ne marche pas
> ' Worksheets("Feuil2").Shapes("Groupe
> clair").OLEFormat.Object.Interior.Pattern = xlPatternGray50 'ne marche pas
> ' Worksheets("Feuil2").Shapes("Groupe
> clair").OLEFormat.Object.Interior.PatternColorIndex = colonne 'ne marche
> pas
>
> Worksheets("MosaiqueJPV").Shapes("Groupe
> clair").OLEFormat.Object.Interior.ColorIndex = ligne 'ne marche pas mieux
> Worksheets("MosaiqueJPV").Shapes("Groupe
> clair").OLEFormat.Object.Interior.Pattern = xlPatternGray50 'ne marche pas
> Worksheets("MosaiqueJPV").Shapes("Groupe
> clair").OLEFormat.Object.Interior.PatternColorIndex = colonne 'ne marche
> pas
> End Sub
>
> Avec Feuil2…. j’ai le message d’erreur ‘’L’indice n’appartient pas à la
> sélection’’
> Avec MosaiqueJPV…’’Impossible de définir la propriété ColorIndex de la
> classe Interior
>
> http://cjoint.com/?ijipSvjUZY
>
>
> @+ j’espère
>
> --
> Jean-Paul V
Quelles sont les formes du groupe "clair".
Ce n'est pas toutes les formes qui ont la propriété
"Interior" .... en conséquence si une forme du groupe
n'a pas cette propriété, le code se plante ....et retourne
une erreur de type 5 : "Argument ou appel de procédure incorrect"
Exemple : les lignes , connecteurs ...
Quelles sont les formes du groupe "clair".
Ce n'est pas toutes les formes qui ont la propriété
"Interior" .... en conséquence si une forme du groupe
n'a pas cette propriété, le code se plante ....et retourne
une erreur de type 5 : "Argument ou appel de procédure incorrect"
Exemple : les lignes , connecteurs ...
Quelles sont les formes du groupe "clair".
Ce n'est pas toutes les formes qui ont la propriété
"Interior" .... en conséquence si une forme du groupe
n'a pas cette propriété, le code se plante ....et retourne
une erreur de type 5 : "Argument ou appel de procédure incorrect"
Exemple : les lignes , connecteurs ...
Quelles sont les formes du groupe "clair".
Ce n'est pas toutes les formes qui ont la propriété
"Interior" .... en conséquence si une forme du groupe
n'a pas cette propriété, le code se plante ....et retourne
une erreur de type 5 : "Argument ou appel de procédure incorrect"
Exemple : les lignes , connecteurs ...
Quelles sont les formes du groupe "clair".
Ce n'est pas toutes les formes qui ont la propriété
"Interior" .... en conséquence si une forme du groupe
n'a pas cette propriété, le code se plante ....et retourne
une erreur de type 5 : "Argument ou appel de procédure incorrect"
Exemple : les lignes , connecteurs ...
Quelles sont les formes du groupe "clair".
Ce n'est pas toutes les formes qui ont la propriété
"Interior" .... en conséquence si une forme du groupe
n'a pas cette propriété, le code se plante ....et retourne
une erreur de type 5 : "Argument ou appel de procédure incorrect"
Exemple : les lignes , connecteurs ...
Utilise ceci au lieu de tes 3 lignes de code :
With Worksheets("MosaiqueJPV")
.Shapes.Range("Groupe clair").Fill.ForeColor.SchemeColor = Ligne
.Shapes.Range("Groupe clair").Fill.BackColor.SchemeColor = Colonne
.Shapes.Range("Groupe clair").Fill.Patterned msoPattern50Percent
End With
Utilise ceci au lieu de tes 3 lignes de code :
With Worksheets("MosaiqueJPV")
.Shapes.Range("Groupe clair").Fill.ForeColor.SchemeColor = Ligne
.Shapes.Range("Groupe clair").Fill.BackColor.SchemeColor = Colonne
.Shapes.Range("Groupe clair").Fill.Patterned msoPattern50Percent
End With
Utilise ceci au lieu de tes 3 lignes de code :
With Worksheets("MosaiqueJPV")
.Shapes.Range("Groupe clair").Fill.ForeColor.SchemeColor = Ligne
.Shapes.Range("Groupe clair").Fill.BackColor.SchemeColor = Colonne
.Shapes.Range("Groupe clair").Fill.Patterned msoPattern50Percent
End With
Utilise ceci au lieu de tes 3 lignes de code :
With Worksheets("MosaiqueJPV")
.Shapes.Range("Groupe clair").Fill.ForeColor.SchemeColor = Ligne
.Shapes.Range("Groupe clair").Fill.BackColor.SchemeColor = Colonne
.Shapes.Range("Groupe clair").Fill.Patterned msoPattern50Percent
End With
Utilise ceci au lieu de tes 3 lignes de code :
With Worksheets("MosaiqueJPV")
.Shapes.Range("Groupe clair").Fill.ForeColor.SchemeColor = Ligne
.Shapes.Range("Groupe clair").Fill.BackColor.SchemeColor = Colonne
.Shapes.Range("Groupe clair").Fill.Patterned msoPattern50Percent
End With
Utilise ceci au lieu de tes 3 lignes de code :
With Worksheets("MosaiqueJPV")
.Shapes.Range("Groupe clair").Fill.ForeColor.SchemeColor = Ligne
.Shapes.Range("Groupe clair").Fill.BackColor.SchemeColor = Colonne
.Shapes.Range("Groupe clair").Fill.Patterned msoPattern50Percent
End With