recuperer contenu cellule colorer

Le
Cyr73
Bonjour,

j'ai une petite question qui me viens a l'esprit.

est il possible de récuperer le contenu (du texte) d'une cellule colorer en
jaune claire dans la colonne A:1 à A:10.

--
Cordialement

et avec tous mes remerciements..
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
ChristianM
Le #20569961
Bonjour,
en VBA : je ne suis pas un champion, donc le code n'est pas forcément
optimisé :

Sub CelluleJaune()
For n = 1 To 10
If Cells(n, 1).Interior.COLOR = 10092543 Then
Exit For
End If
Next n
[c1].Value = Cells(n, 1).Value
End Sub

10092543 correspond à la couleur jaune clair disponible dans excel en
format de cellule
on suppose qu'il n'y a qu'une cellule jaune

ChristianM

Cyr73 a écrit :
Bonjour,

j'ai une petite question qui me viens a l'esprit.

est il possible de récuperer le contenu (du texte) d'une cellule colorer en
jaune claire dans la colonne A:1 à A:10.



michdenis
Le #20571411
Bonjour Cyr73,

Il est possible de rechercher un format de cellule comme il
est possible de rechercher une chaîne de caractères. Voici
un exemple de code :

'----------------------------------------
Sub TrouverFormat()

Dim Rg As Range
Dim LeCellFormat As CellFormat

Set LeCellFormat = Application.FindFormat
'Détermine les caractéristiques
'du format de cellule recherché.
With LeCellFormat
.Clear 'S'assurer d'effacer les critères
'des anciennes recherches
.Font.ColorIndex = 36
'La liste pourrait être plus longue ...
End With

'Détermine la plage de cellules où s'effectue
'la recherche
With Worksheets("Feuil1")
Set Rg = .Range("A:A")
End With

'Trouve la cellule ayant le bon format pour
'y effectuer une ou des opérations quelconques...
With Rg
Set c = .Find(What:="", SearchFormat:=True)
If Not c Is Nothing Then
adr = c.Address
Do
'Le code que tu veux exécuter avec la cellule trouvée
'Affiche le contenu des cellules ayant le format désiré
MsgBox c.Value
'pour passer à la cellule suivante ...
Set c = .Find(What:="", after:=c, SearchFormat:=True)
Loop Until c.Address = adr
End If
End With

End Sub
'----------------------------------------



"Cyr73" :
Bonjour,

j'ai une petite question qui me viens a l'esprit.

est il possible de récuperer le contenu (du texte) d'une cellule colorer en
jaune claire dans la colonne A:1 à A:10.

--
Cordialement

et avec tous mes remerciements..
Cyr73
Le #20574851
Bonjour à vous,

et merci pour vos réponses je vais les tester.
--
Cordialement

et avec tous mes remerciements..


"michdenis" wrote:

Bonjour Cyr73,

Il est possible de rechercher un format de cellule comme il
est possible de rechercher une chaîne de caractères. Voici
un exemple de code :

'----------------------------------------
Sub TrouverFormat()

Dim Rg As Range
Dim LeCellFormat As CellFormat

Set LeCellFormat = Application.FindFormat
'Détermine les caractéristiques
'du format de cellule recherché.
With LeCellFormat
.Clear 'S'assurer d'effacer les critères
'des anciennes recherches
.Font.ColorIndex = 36
'La liste pourrait être plus longue ...
End With

'Détermine la plage de cellules où s'effectue
'la recherche
With Worksheets("Feuil1")
Set Rg = .Range("A:A")
End With

'Trouve la cellule ayant le bon format pour
'y effectuer une ou des opérations quelconques...
With Rg
Set c = .Find(What:="", SearchFormat:=True)
If Not c Is Nothing Then
adr = c.Address
Do
'Le code que tu veux exécuter avec la cellule trouvée
'Affiche le contenu des cellules ayant le format désiré
MsgBox c.Value
'pour passer à la cellule suivante ...
Set c = .Find(What:="", after:=c, SearchFormat:=True)
Loop Until c.Address = adr
End If
End With

End Sub
'----------------------------------------



"Cyr73" :
Bonjour,

j'ai une petite question qui me viens a l'esprit.

est il possible de récuperer le contenu (du texte) d'une cellule colorer en
jaune claire dans la colonne A:1 à A:10.

--
Cordialement

et avec tous mes remerciements..



Publicité
Poster une réponse
Anonyme