Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel sélectionner les modifications à partir de la couleur de cellule

sélectionner les modifications à partir de la couleur de cellule

4 réponses
Avatar
christb23
Bonsoir,

J'ai un tableau où les modifications depuis la version antérieure de ce
tableau apparaissent en couleur.

Je ne voudrais sélectionner que les lignes qui comportent une modification.

Le problème est que sur une même ligne toutes les cellules ne sont pas
colorées.

Je n'arrive pas à faire ce que je veux ...

J'ai envisagé de détruire toutes les lignes qui ne seraient pas jaunes mais
il m'en reste toujours de trop.

J'ai aussi pensé à faire une colonne supplémentaire avec un test sur la
couleur de chaque cellule de la ligne
et ensuite un tri mais je n'y arrive pas non plus.

Auriez vous des idées.

D'avance merci.

Christian
Signaler un problème avec ce contenu

4 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
Avatar
Daniel
Bonsoir.
essaie :

Sub Test()
Dim Couleur, Ligne As Integer
Range("A1").Select
Ligne = Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Rows.Count
ActiveCell.EntireRow.Select
For i = 1 To Ligne
Couleur = Selection.Interior.ColorIndex
If Couleur <> 6 And Not IsNull(Couleur) Then
Selection.Delete
i = i + 1
Else
ActiveCell.Offset(1, 0).EntireRow.Select
End If
Next i
End Sub

Cordialement.
Daniel
"christb23" a écrit dans le message de news:

Bonsoir,

J'ai un tableau où les modifications depuis la version antérieure de ce
tableau apparaissent en couleur.

Je ne voudrais sélectionner que les lignes qui comportent une
modification.

Le problème est que sur une même ligne toutes les cellules ne sont pas
colorées.

Je n'arrive pas à faire ce que je veux ...

J'ai envisagé de détruire toutes les lignes qui ne seraient pas jaunes
mais
il m'en reste toujours de trop.

J'ai aussi pensé à faire une colonne supplémentaire avec un test sur la
couleur de chaque cellule de la ligne
et ensuite un tri mais je n'y arrive pas non plus.

Auriez vous des idées.

D'avance merci.

Christian





Avatar
Daniel
Bonjour.
Pas bien éveillé, hier soir. J'ai supposé que la couleur du fond des
cellules était soit jaune, soit normal. J'aurai dû le préciser.
Cordialement.
Daniel
"Daniel" a écrit dans le message de news:
OwIqT%
Bonsoir.
essaie :

Sub Test()
Dim Couleur, Ligne As Integer
Range("A1").Select
Ligne = Range(Selection,
ActiveCell.SpecialCells(xlLastCell)).Rows.Count
ActiveCell.EntireRow.Select
For i = 1 To Ligne
Couleur = Selection.Interior.ColorIndex
If Couleur <> 6 And Not IsNull(Couleur) Then
Selection.Delete
i = i + 1
Else
ActiveCell.Offset(1, 0).EntireRow.Select
End If
Next i
End Sub

Cordialement.
Daniel
"christb23" a écrit dans le message de news:

Bonsoir,

J'ai un tableau où les modifications depuis la version antérieure de ce
tableau apparaissent en couleur.

Je ne voudrais sélectionner que les lignes qui comportent une
modification.

Le problème est que sur une même ligne toutes les cellules ne sont pas
colorées.

Je n'arrive pas à faire ce que je veux ...

J'ai envisagé de détruire toutes les lignes qui ne seraient pas jaunes
mais
il m'en reste toujours de trop.

J'ai aussi pensé à faire une colonne supplémentaire avec un test sur la
couleur de chaque cellule de la ligne
et ensuite un tri mais je n'y arrive pas non plus.

Auriez vous des idées.

D'avance merci.

Christian









Avatar
christb23
Bonjour,

Je n'arrive pas à faire fonctionner cette macro.

Puis-je vous joindre un petit exemple de fichier ?

Christian

"Daniel" a écrit dans le message de
news:%
Bonjour.
Pas bien éveillé, hier soir. J'ai supposé que la couleur du fond des
cellules était soit jaune, soit normal. J'aurai dû le préciser.
Cordialement.
Daniel
"Daniel" a écrit dans le message de news:
OwIqT%
Bonsoir.
essaie :

Sub Test()
Dim Couleur, Ligne As Integer
Range("A1").Select
Ligne = Range(Selection,
ActiveCell.SpecialCells(xlLastCell)).Rows.Count
ActiveCell.EntireRow.Select
For i = 1 To Ligne
Couleur = Selection.Interior.ColorIndex
If Couleur <> 6 And Not IsNull(Couleur) Then
Selection.Delete
i = i + 1
Else
ActiveCell.Offset(1, 0).EntireRow.Select
End If
Next i
End Sub

Cordialement.
Daniel
"christb23" a écrit dans le message de news:

Bonsoir,

J'ai un tableau où les modifications depuis la version antérieure de ce
tableau apparaissent en couleur.

Je ne voudrais sélectionner que les lignes qui comportent une
modification.

Le problème est que sur une même ligne toutes les cellules ne sont pas
colorées.

Je n'arrive pas à faire ce que je veux ...

J'ai envisagé de détruire toutes les lignes qui ne seraient pas jaunes
mais
il m'en reste toujours de trop.

J'ai aussi pensé à faire une colonne supplémentaire avec un test sur la
couleur de chaque cellule de la ligne
et ensuite un tri mais je n'y arrive pas non plus.

Auriez vous des idées.

D'avance merci.

Christian













Avatar
Daniel
Excuse-moi pour ce code erronné, je devrais aller me coucher après 22:00.
Voici la macro corrigée. Le code est valable pour des données dans les
colonnes da A à F.

Sub Test()
Dim Couleur, Ligne As Integer
Range("A1").Select
Ligne = Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Rows.Count
Range(ActiveCell, ActiveCell.Offset(0, 5)).Select
For i = 1 To Ligne
Couleur = Selection.Interior.ColorIndex
If Couleur <> 6 And Not IsNull(Couleur) Then
Selection.Delete
Else
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(1, 5)).Select
End If
Next i
End Sub

Cordialement.
Daniel
"christb23" a écrit dans le message de news:

Bonjour,

Je n'arrive pas à faire fonctionner cette macro.

Puis-je vous joindre un petit exemple de fichier ?

Christian

"Daniel" a écrit dans le message de
news:%
Bonjour.
Pas bien éveillé, hier soir. J'ai supposé que la couleur du fond des
cellules était soit jaune, soit normal. J'aurai dû le préciser.
Cordialement.
Daniel
"Daniel" a écrit dans le message de news:
OwIqT%
Bonsoir.
essaie :

Sub Test()
Dim Couleur, Ligne As Integer
Range("A1").Select
Ligne = Range(Selection,
ActiveCell.SpecialCells(xlLastCell)).Rows.Count
ActiveCell.EntireRow.Select
For i = 1 To Ligne
Couleur = Selection.Interior.ColorIndex
If Couleur <> 6 And Not IsNull(Couleur) Then
Selection.Delete
i = i + 1
Else
ActiveCell.Offset(1, 0).EntireRow.Select
End If
Next i
End Sub

Cordialement.
Daniel
"christb23" a écrit dans le message de news:

Bonsoir,

J'ai un tableau où les modifications depuis la version antérieure de
ce
tableau apparaissent en couleur.

Je ne voudrais sélectionner que les lignes qui comportent une
modification.

Le problème est que sur une même ligne toutes les cellules ne sont pas
colorées.

Je n'arrive pas à faire ce que je veux ...

J'ai envisagé de détruire toutes les lignes qui ne seraient pas jaunes
mais
il m'en reste toujours de trop.

J'ai aussi pensé à faire une colonne supplémentaire avec un test sur
la
couleur de chaque cellule de la ligne
et ensuite un tri mais je n'y arrive pas non plus.

Auriez vous des idées.

D'avance merci.

Christian