Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel effacer le contenu des cellules dont la couleur de fond est verte

effacer le contenu des cellules dont la couleur de fond est verte

13 réponses
Avatar
didiersee
Bonjour =E0 tous, quelqu'un a-t-il une =E9bauche de macro pour effacer le
contenu des cellules dont la couleur de fond est verte et ceci sur
toutes les feuilles d'un m=EAme classeur.
Merci pour votre aide
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
1 2
Avatar
guy boily
Bonjour JB

C'est Extraordinaire....merci de ne pas avoir lâché un ENTÊTÉ..
ça marche au poil.
--
boily_SLSJ



http://cjoint.com/?lwtlvUV2sp

JB

On 22 nov, 19:01, guy boily
wrote:
BonjourJB

Ce n'est pas tout à fait cela:
Selon l'exemple de ton classeur voici ce que devrais contenir
"feuille_verte":
les lignes 1 et 8 de feuil1(puisque seulement ces lignes ont du vert dans la
colonne A et les lignes 1 et 5 de la feuil4 puisque seulement ces lignes ont
du vert en colonne A. Il s'agit d'avoir la copie intégrale de ces lignes dans
la "feuille_verte" sans mention de l'adresse de la cellule ni du nom de la
feuille.

Voilà je pense qu'avec ça ont devrait y arriver.

Merci pour ton courage de me supporter....
--
boily_SLSJ




http://cjoint.com/?lwrQIuSgSC

JB

On 22 nov, 17:24, guy boily
wrote:
Bonjour JB
C'est presque ça: mais je m'explique

dans une feuillle j'ai dix lignes dont deux ont toutes leurs cellules
vertes. Les données de chacune de ces lignes débute à la colonne A et il y
des données jusqu'à la colonne P. Alors je veux que si la première cellule
d'une ligne (colonne A) est de couleur verte alors la fonction copie
intégralement toute la ligne dans ma feuille " feuille_verte"

J'espère avoir été un peu plus clair...

Merci pour le temps que tu y mets

--
boily_SLSJ




Je ne suis pas sûr d'avoir compris la question.

http://cjoint.com/?lwp1rxAubA

JB

On 22 nov, 15:29, guy boily
wrote:
Re-bonjour JB
J'ose une autre demande.(une dernière pour la semaine)
Si la cellule A (de n'importe laquelle ligne ) est en vert alors il copie
toute la ligne dans la feuillle"feuille_verte"

Merci boucoup

boily_SLSJ






Sub CopieVert()
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Feuille_Verte").Delete
On Error GoTo 0
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Feuille_Verte"
ligne = 1
For Each s In ActiveWorkbook.Sheets
On Error Resume Next
Set champ = s.Cells.SpecialCells(xlCellTypeConstants, 23)
For Each c In champ
If c.Interior.ColorIndex = 4 And Err = 0 Then
'c.ClearContents
Sheets("Feuille_Verte").Cells(ligne, 1) = c.Address
Sheets("Feuille_Verte").Cells(ligne, 2) = c.Value
Sheets("Feuille_Verte").Cells(ligne, 3) = s.Name
ligne = ligne + 1
End If
Next c
Next s
End Sub

http://cjoint.com/?lwlRetvo7F

JB

On 22 nov, 10:34, guy boily
wrote:
bonjour JB

S.V.P pourrais-tu modifier la formule de sorte que les cellules vertes ne
soient pas effacées mais copiées dans une autre feuille du même classeur
disons 'feuil_verte"
If c.Interior.ColorIndex = 4 Then
copie dans "feuil_verte"

Ca me serait très utile ...

Merci

A +
--
boily_SLSJ








Bonjour,

On Error Resume Next
For Each s In ActiveWorkbook.Sheets
For Each c In s.Cells.SpecialCells(xlCellTypeConstants, 23)
If c.Interior.ColorIndex = 4 Then c.ClearContents
Next c
Next s

JB

On 22 nov, 08:36, didiersee wrote:
Bonjour à tous, quelqu'un a-t-il une ébauche de macro pour effacer le
contenu des cellules dont la couleur de fond est verte et ceci sur
toutes les feuilles d'un même classeur.
Merci pour votre aide- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -














Avatar
guy boily
Bonjour JB,
si je voulais qu'il me copie également toutes les lignes possédant le bleu(
code 33)
comment pourrais-je insérer cela dans le code.
Finalement il copierait les lignes possédant les couleur vertes ou bleu en
colonne A dans la feuille "feuille_verte".

Merci pour ce petit rajout.....
--
boily_SLSJ



http://cjoint.com/?lwtlvUV2sp

JB

On 22 nov, 19:01, guy boily
wrote:
BonjourJB

Ce n'est pas tout à fait cela:
Selon l'exemple de ton classeur voici ce que devrais contenir
"feuille_verte":
les lignes 1 et 8 de feuil1(puisque seulement ces lignes ont du vert dans la
colonne A et les lignes 1 et 5 de la feuil4 puisque seulement ces lignes ont
du vert en colonne A. Il s'agit d'avoir la copie intégrale de ces lignes dans
la "feuille_verte" sans mention de l'adresse de la cellule ni du nom de la
feuille.

Voilà je pense qu'avec ça ont devrait y arriver.

Merci pour ton courage de me supporter....
--
boily_SLSJ




http://cjoint.com/?lwrQIuSgSC

JB

On 22 nov, 17:24, guy boily
wrote:
Bonjour JB
C'est presque ça: mais je m'explique

dans une feuillle j'ai dix lignes dont deux ont toutes leurs cellules
vertes. Les données de chacune de ces lignes débute à la colonne A et il y
des données jusqu'à la colonne P. Alors je veux que si la première cellule
d'une ligne (colonne A) est de couleur verte alors la fonction copie
intégralement toute la ligne dans ma feuille " feuille_verte"

J'espère avoir été un peu plus clair...

Merci pour le temps que tu y mets

--
boily_SLSJ




Je ne suis pas sûr d'avoir compris la question.

http://cjoint.com/?lwp1rxAubA

JB

On 22 nov, 15:29, guy boily
wrote:
Re-bonjour JB
J'ose une autre demande.(une dernière pour la semaine)
Si la cellule A (de n'importe laquelle ligne ) est en vert alors il copie
toute la ligne dans la feuillle"feuille_verte"

Merci boucoup

boily_SLSJ






Sub CopieVert()
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Feuille_Verte").Delete
On Error GoTo 0
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Feuille_Verte"
ligne = 1
For Each s In ActiveWorkbook.Sheets
On Error Resume Next
Set champ = s.Cells.SpecialCells(xlCellTypeConstants, 23)
For Each c In champ
If c.Interior.ColorIndex = 4 And Err = 0 Then
'c.ClearContents
Sheets("Feuille_Verte").Cells(ligne, 1) = c.Address
Sheets("Feuille_Verte").Cells(ligne, 2) = c.Value
Sheets("Feuille_Verte").Cells(ligne, 3) = s.Name
ligne = ligne + 1
End If
Next c
Next s
End Sub

http://cjoint.com/?lwlRetvo7F

JB

On 22 nov, 10:34, guy boily
wrote:
bonjour JB

S.V.P pourrais-tu modifier la formule de sorte que les cellules vertes ne
soient pas effacées mais copiées dans une autre feuille du même classeur
disons 'feuil_verte"
If c.Interior.ColorIndex = 4 Then
copie dans "feuil_verte"

Ca me serait très utile ...

Merci

A +
--
boily_SLSJ








Bonjour,

On Error Resume Next
For Each s In ActiveWorkbook.Sheets
For Each c In s.Cells.SpecialCells(xlCellTypeConstants, 23)
If c.Interior.ColorIndex = 4 Then c.ClearContents
Next c
Next s

JB

On 22 nov, 08:36, didiersee wrote:
Bonjour à tous, quelqu'un a-t-il une ébauche de macro pour effacer le
contenu des cellules dont la couleur de fond est verte et ceci sur
toutes les feuilles d'un même classeur.
Merci pour votre aide- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -














Avatar
guy boily
bonjour JB

Merci mais j'ai trouvé la solution en incorporant un OR :
c.Interior.ColorIndex = 4 or c.interior.colorindex=5 and err=o then......
Merci encore.
--
boily_SLSJ



Bonjour JB,
si je voulais qu'il me copie également toutes les lignes possédant le bleu(
code 33)
comment pourrais-je insérer cela dans le code.
Finalement il copierait les lignes possédant les couleur vertes ou bleu en
colonne A dans la feuille "feuille_verte".

Merci pour ce petit rajout.....
--
boily_SLSJ



http://cjoint.com/?lwtlvUV2sp

JB

On 22 nov, 19:01, guy boily
wrote:
BonjourJB

Ce n'est pas tout à fait cela:
Selon l'exemple de ton classeur voici ce que devrais contenir
"feuille_verte":
les lignes 1 et 8 de feuil1(puisque seulement ces lignes ont du vert dans la
colonne A et les lignes 1 et 5 de la feuil4 puisque seulement ces lignes ont
du vert en colonne A. Il s'agit d'avoir la copie intégrale de ces lignes dans
la "feuille_verte" sans mention de l'adresse de la cellule ni du nom de la
feuille.

Voilà je pense qu'avec ça ont devrait y arriver.

Merci pour ton courage de me supporter....
--
boily_SLSJ




http://cjoint.com/?lwrQIuSgSC

JB

On 22 nov, 17:24, guy boily
wrote:
Bonjour JB
C'est presque ça: mais je m'explique

dans une feuillle j'ai dix lignes dont deux ont toutes leurs cellules
vertes. Les données de chacune de ces lignes débute à la colonne A et il y
des données jusqu'à la colonne P. Alors je veux que si la première cellule
d'une ligne (colonne A) est de couleur verte alors la fonction copie
intégralement toute la ligne dans ma feuille " feuille_verte"

J'espère avoir été un peu plus clair...

Merci pour le temps que tu y mets

--
boily_SLSJ




Je ne suis pas sûr d'avoir compris la question.

http://cjoint.com/?lwp1rxAubA

JB

On 22 nov, 15:29, guy boily
wrote:
Re-bonjour JB
J'ose une autre demande.(une dernière pour la semaine)
Si la cellule A (de n'importe laquelle ligne ) est en vert alors il copie
toute la ligne dans la feuillle"feuille_verte"

Merci boucoup

boily_SLSJ






Sub CopieVert()
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Feuille_Verte").Delete
On Error GoTo 0
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Feuille_Verte"
ligne = 1
For Each s In ActiveWorkbook.Sheets
On Error Resume Next
Set champ = s.Cells.SpecialCells(xlCellTypeConstants, 23)
For Each c In champ
If c.Interior.ColorIndex = 4 And Err = 0 Then
'c.ClearContents
Sheets("Feuille_Verte").Cells(ligne, 1) = c.Address
Sheets("Feuille_Verte").Cells(ligne, 2) = c.Value
Sheets("Feuille_Verte").Cells(ligne, 3) = s.Name
ligne = ligne + 1
End If
Next c
Next s
End Sub

http://cjoint.com/?lwlRetvo7F

JB

On 22 nov, 10:34, guy boily
wrote:
bonjour JB

S.V.P pourrais-tu modifier la formule de sorte que les cellules vertes ne
soient pas effacées mais copiées dans une autre feuille du même classeur
disons 'feuil_verte"
If c.Interior.ColorIndex = 4 Then
copie dans "feuil_verte"

Ca me serait très utile ...

Merci

A +
--
boily_SLSJ








Bonjour,

On Error Resume Next
For Each s In ActiveWorkbook.Sheets
For Each c In s.Cells.SpecialCells(xlCellTypeConstants, 23)
If c.Interior.ColorIndex = 4 Then c.ClearContents
Next c
Next s

JB

On 22 nov, 08:36, didiersee wrote:
Bonjour à tous, quelqu'un a-t-il une ébauche de macro pour effacer le
contenu des cellules dont la couleur de fond est verte et ceci sur
toutes les feuilles d'un même classeur.
Merci pour votre aide- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -
















1 2