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
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" a écrit dans le message de groupe de discussion : 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..
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" <Cyr73@discussions.microsoft.com> a écrit dans le message de groupe de discussion
: B649395F-44C0-42DC-89CB-DEF19F1C4098@microsoft.com...
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.
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" a écrit dans le message de groupe de discussion : 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
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" a écrit dans le message de groupe de discussion : 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..
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" <Cyr73@discussions.microsoft.com> a écrit dans le message de groupe de discussion
: B649395F-44C0-42DC-89CB-DEF19F1C4098@microsoft.com...
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.
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" a écrit dans le message de groupe de discussion : 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.