Bonjour à tous ,
j'utilise VBA XLS2000 sous Xp Pro.
dans un fichier .xls j'ai des cellules qui contiennent des "boules" qui
peuvent prendre différentes couleurs( vert, rouge, gris)en fonction des
évènements , à votre avis est il possible de relever ces couleurs?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
| dans un fichier .xls j'ai des cellules qui contiennent des "boules" qui | peuvent prendre différentes couleurs( vert, rouge, gris)en fonction des | évènements , à votre avis est il possible de relever ces couleurs?
C'est quoi tes "boules"? ....si je puis me permettre ...
AV
| dans un fichier .xls j'ai des cellules qui contiennent des "boules" qui
| peuvent prendre différentes couleurs( vert, rouge, gris)en fonction des
| évènements , à votre avis est il possible de relever ces couleurs?
C'est quoi tes "boules"? ....si je puis me permettre ...
| dans un fichier .xls j'ai des cellules qui contiennent des "boules" qui | peuvent prendre différentes couleurs( vert, rouge, gris)en fonction des | évènements , à votre avis est il possible de relever ces couleurs?
C'est quoi tes "boules"? ....si je puis me permettre ...
AV
lematou
Bonjour AV
ce que moi je désigne comme "boules" c'est un point ou un dessin (cela ressemble à une boule ou un ballon) ? ! je ne sais pas trop mais quand je veux prendre la valeur par: result = ActiveCell.Value la valeur de result est "vide" A+ Merci
| dans un fichier .xls j'ai des cellules qui contiennent des "boules" qui | peuvent prendre différentes couleurs( vert, rouge, gris)en fonction des | évènements , à votre avis est il possible de relever ces couleurs?
C'est quoi tes "boules"? ....si je puis me permettre ...
AV
Bonjour AV
ce que moi je désigne comme "boules" c'est un point ou un dessin (cela
ressemble à une boule ou un ballon) ? ! je ne sais pas trop mais quand je
veux prendre la valeur par:
result = ActiveCell.Value
la valeur de result est "vide"
A+
Merci
| dans un fichier .xls j'ai des cellules qui contiennent des "boules" qui
| peuvent prendre différentes couleurs( vert, rouge, gris)en fonction des
| évènements , à votre avis est il possible de relever ces couleurs?
C'est quoi tes "boules"? ....si je puis me permettre ...
ce que moi je désigne comme "boules" c'est un point ou un dessin (cela ressemble à une boule ou un ballon) ? ! je ne sais pas trop mais quand je veux prendre la valeur par: result = ActiveCell.Value la valeur de result est "vide" A+ Merci
| dans un fichier .xls j'ai des cellules qui contiennent des "boules" qui | peuvent prendre différentes couleurs( vert, rouge, gris)en fonction des | évènements , à votre avis est il possible de relever ces couleurs?
C'est quoi tes "boules"? ....si je puis me permettre ...
AV
lematou
AV, ce serait peut être un .gif Merci
| dans un fichier .xls j'ai des cellules qui contiennent des "boules" qui | peuvent prendre différentes couleurs( vert, rouge, gris)en fonction des | évènements , à votre avis est il possible de relever ces couleurs?
C'est quoi tes "boules"? ....si je puis me permettre ...
AV
AV,
ce serait peut être un .gif
Merci
| dans un fichier .xls j'ai des cellules qui contiennent des "boules" qui
| peuvent prendre différentes couleurs( vert, rouge, gris)en fonction des
| évènements , à votre avis est il possible de relever ces couleurs?
C'est quoi tes "boules"? ....si je puis me permettre ...
| dans un fichier .xls j'ai des cellules qui contiennent des "boules" qui | peuvent prendre différentes couleurs( vert, rouge, gris)en fonction des | évènements , à votre avis est il possible de relever ces couleurs?
C'est quoi tes "boules"? ....si je puis me permettre ...
AV
michdenis
Bonjour LeMatou,
Si tu veux dénombrer le nombre d'objets touchant à la colonne A:A tout en t'assurant qu'ils sont d'une certaine couleur, essaie ceci :
Évidemment, tu dois adapter la valeur de SchemeColor
'---------------------------------------- Sub test()
On Error Resume Next Dim Sh As Shape, S As Object, Nb As Integer For Each Sh In Shapes Set S = Sh.OLEFormat.Object With S If Not Intersect(Columns(1), .TopLeftCell) Is Nothing Then If Sh.Fill.ForeColor.SchemeColor = 10 Then If Err = 0 Then Nb = Nb + 1 Else Err = 0 End If End If End If End With Next MsgBox Nb
End Sub '----------------------------------------
Salutations!
"lematou" a écrit dans le message de news: Bonjour à tous , j'utilise VBA XLS2000 sous Xp Pro.
dans un fichier .xls j'ai des cellules qui contiennent des "boules" qui peuvent prendre différentes couleurs( vert, rouge, gris)en fonction des évènements , à votre avis est il possible de relever ces couleurs?
merci beaucoup Jacks
Bonjour LeMatou,
Si tu veux dénombrer le nombre d'objets touchant
à la colonne A:A tout en t'assurant qu'ils sont d'une
certaine couleur, essaie ceci :
Évidemment, tu dois adapter la valeur de SchemeColor
'----------------------------------------
Sub test()
On Error Resume Next
Dim Sh As Shape, S As Object, Nb As Integer
For Each Sh In Shapes
Set S = Sh.OLEFormat.Object
With S
If Not Intersect(Columns(1), .TopLeftCell) Is Nothing Then
If Sh.Fill.ForeColor.SchemeColor = 10 Then
If Err = 0 Then
Nb = Nb + 1
Else
Err = 0
End If
End If
End If
End With
Next
MsgBox Nb
End Sub
'----------------------------------------
Salutations!
"lematou" <lematou@discussions.microsoft.com> a écrit dans le message de news: 2B9E6ADA-22D5-40BB-9AC5-CF70C800169F@microsoft.com...
Bonjour à tous ,
j'utilise VBA XLS2000 sous Xp Pro.
dans un fichier .xls j'ai des cellules qui contiennent des "boules" qui
peuvent prendre différentes couleurs( vert, rouge, gris)en fonction des
évènements , à votre avis est il possible de relever ces couleurs?
Si tu veux dénombrer le nombre d'objets touchant à la colonne A:A tout en t'assurant qu'ils sont d'une certaine couleur, essaie ceci :
Évidemment, tu dois adapter la valeur de SchemeColor
'---------------------------------------- Sub test()
On Error Resume Next Dim Sh As Shape, S As Object, Nb As Integer For Each Sh In Shapes Set S = Sh.OLEFormat.Object With S If Not Intersect(Columns(1), .TopLeftCell) Is Nothing Then If Sh.Fill.ForeColor.SchemeColor = 10 Then If Err = 0 Then Nb = Nb + 1 Else Err = 0 End If End If End If End With Next MsgBox Nb
End Sub '----------------------------------------
Salutations!
"lematou" a écrit dans le message de news: Bonjour à tous , j'utilise VBA XLS2000 sous Xp Pro.
dans un fichier .xls j'ai des cellules qui contiennent des "boules" qui peuvent prendre différentes couleurs( vert, rouge, gris)en fonction des évènements , à votre avis est il possible de relever ces couleurs?
merci beaucoup Jacks
Spectre
Bonjour à tous , j'utilise VBA XLS2000 sous Xp Pro.
dans un fichier .xls j'ai des cellules qui contiennent des "boules" qui peuvent prendre différentes couleurs( vert, rouge, gris)en fonction des évènements , à votre avis est il possible de relever ces couleurs?
merci beaucoup Jacks
et je dirais même plus, qu'est ce que c'est que "relever ces couleurs". Je connaissais l'expression "lever les couleurs" mais pas "relever ces couleurs"
Bonjour à tous ,
j'utilise VBA XLS2000 sous Xp Pro.
dans un fichier .xls j'ai des cellules qui contiennent des "boules" qui
peuvent prendre différentes couleurs( vert, rouge, gris)en fonction des
évènements , à votre avis est il possible de relever ces couleurs?
merci beaucoup
Jacks
et je dirais même plus, qu'est ce que c'est que "relever ces couleurs".
Je connaissais l'expression "lever les couleurs" mais pas "relever ces
couleurs"
Bonjour à tous , j'utilise VBA XLS2000 sous Xp Pro.
dans un fichier .xls j'ai des cellules qui contiennent des "boules" qui peuvent prendre différentes couleurs( vert, rouge, gris)en fonction des évènements , à votre avis est il possible de relever ces couleurs?
merci beaucoup Jacks
et je dirais même plus, qu'est ce que c'est que "relever ces couleurs". Je connaissais l'expression "lever les couleurs" mais pas "relever ces couleurs"
lematou
bonsoir, pas cool les mecs , je fais de mon mieux à mon age, je ne suis pas né dans l'aire informatique alors je fais ce que je peux mais merci tout de meme pour votre aide meme si de temps en temps vous me titillez bonsoir
Bonjour à tous , j'utilise VBA XLS2000 sous Xp Pro.
dans un fichier .xls j'ai des cellules qui contiennent des "boules" qui peuvent prendre différentes couleurs( vert, rouge, gris)en fonction des évènements , à votre avis est il possible de relever ces couleurs?
merci beaucoup Jacks
et je dirais même plus, qu'est ce que c'est que "relever ces couleurs". Je connaissais l'expression "lever les couleurs" mais pas "relever ces couleurs"
bonsoir,
pas cool les mecs , je fais de mon mieux à mon age, je ne suis pas né dans
l'aire informatique alors je fais ce que je peux
mais merci tout de meme pour votre aide meme si de temps en temps vous me
titillez
bonsoir
Bonjour à tous ,
j'utilise VBA XLS2000 sous Xp Pro.
dans un fichier .xls j'ai des cellules qui contiennent des "boules" qui
peuvent prendre différentes couleurs( vert, rouge, gris)en fonction des
évènements , à votre avis est il possible de relever ces couleurs?
merci beaucoup
Jacks
et je dirais même plus, qu'est ce que c'est que "relever ces couleurs".
Je connaissais l'expression "lever les couleurs" mais pas "relever ces
couleurs"
bonsoir, pas cool les mecs , je fais de mon mieux à mon age, je ne suis pas né dans l'aire informatique alors je fais ce que je peux mais merci tout de meme pour votre aide meme si de temps en temps vous me titillez bonsoir
Bonjour à tous , j'utilise VBA XLS2000 sous Xp Pro.
dans un fichier .xls j'ai des cellules qui contiennent des "boules" qui peuvent prendre différentes couleurs( vert, rouge, gris)en fonction des évènements , à votre avis est il possible de relever ces couleurs?
merci beaucoup Jacks
et je dirais même plus, qu'est ce que c'est que "relever ces couleurs". Je connaissais l'expression "lever les couleurs" mais pas "relever ces couleurs"
michdenis
Cette macro doit être placé dans le module feuille où l'action se déroule. Si tu places cette macro dans un module standard, il faut préciser le nom de la feuille où se retrouvent les objets.
For Each Sh In Shapes devient For Each Sh In Worksheets("Feuil1").Shapes
'---------------------------------------- Sub test()
On Error Resume Next Dim Sh As Shape, S As Object, Nb As Integer For Each Sh In Shapes Set S = Sh.OLEFormat.Object With S If Not Intersect(Columns(1), .TopLeftCell) Is Nothing Then If Sh.Fill.ForeColor.SchemeColor = 10 Then If Err = 0 Then Nb = Nb + 1 Else Err = 0 End If End If End If End With Next MsgBox Nb
End Sub '----------------------------------------
Salutations!
"lematou" a écrit dans le message de news: Bonjour à tous , j'utilise VBA XLS2000 sous Xp Pro.
dans un fichier .xls j'ai des cellules qui contiennent des "boules" qui peuvent prendre différentes couleurs( vert, rouge, gris)en fonction des évènements , à votre avis est il possible de relever ces couleurs?
merci beaucoup Jacks
Cette macro doit être placé dans le module feuille où l'action se déroule.
Si tu places cette macro dans un module standard, il faut préciser
le nom de la feuille où se retrouvent les objets.
For Each Sh In Shapes
devient
For Each Sh In Worksheets("Feuil1").Shapes
'----------------------------------------
Sub test()
On Error Resume Next
Dim Sh As Shape, S As Object, Nb As Integer
For Each Sh In Shapes
Set S = Sh.OLEFormat.Object
With S
If Not Intersect(Columns(1), .TopLeftCell) Is Nothing Then
If Sh.Fill.ForeColor.SchemeColor = 10 Then
If Err = 0 Then
Nb = Nb + 1
Else
Err = 0
End If
End If
End If
End With
Next
MsgBox Nb
End Sub
'----------------------------------------
Salutations!
"lematou" <lematou@discussions.microsoft.com> a écrit dans le message de news: 2B9E6ADA-22D5-40BB-9AC5-CF70C800169F@microsoft.com...
Bonjour à tous ,
j'utilise VBA XLS2000 sous Xp Pro.
dans un fichier .xls j'ai des cellules qui contiennent des "boules" qui
peuvent prendre différentes couleurs( vert, rouge, gris)en fonction des
évènements , à votre avis est il possible de relever ces couleurs?
Cette macro doit être placé dans le module feuille où l'action se déroule. Si tu places cette macro dans un module standard, il faut préciser le nom de la feuille où se retrouvent les objets.
For Each Sh In Shapes devient For Each Sh In Worksheets("Feuil1").Shapes
'---------------------------------------- Sub test()
On Error Resume Next Dim Sh As Shape, S As Object, Nb As Integer For Each Sh In Shapes Set S = Sh.OLEFormat.Object With S If Not Intersect(Columns(1), .TopLeftCell) Is Nothing Then If Sh.Fill.ForeColor.SchemeColor = 10 Then If Err = 0 Then Nb = Nb + 1 Else Err = 0 End If End If End If End With Next MsgBox Nb
End Sub '----------------------------------------
Salutations!
"lematou" a écrit dans le message de news: Bonjour à tous , j'utilise VBA XLS2000 sous Xp Pro.
dans un fichier .xls j'ai des cellules qui contiennent des "boules" qui peuvent prendre différentes couleurs( vert, rouge, gris)en fonction des évènements , à votre avis est il possible de relever ces couleurs?
