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

10 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
JB
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


Avatar
guy boily
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






Avatar
JB
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 clas seur
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 -




Avatar
guy boily
Bonjour JB

Merci c'est le bonheur!



--
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 -








Avatar
guy boily
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 -








Avatar
JB
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 eff acer 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édent s -



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



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






Avatar
guy boily
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 -










Avatar
JB
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 e t il y
des données jusqu'à la colonne P. Alors je veux que si la première c ellule
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 co pie
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 ve rtes 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 text e des messages précédents -



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



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








Avatar
guy boily
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 -












Avatar
JB
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 i l 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 cellule s 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 text e des messages précédents -



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



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










1 2