Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Déplacement de cellules d'après leur couleur ?

Déplacement de cellules d'après leur couleur ?

2 réponses
Avatar
Help ME
Bonjour
Je cherche à déplacer certaines cellules dont le texte est en rouge,
sytématiquement de deux cellules a gauche et vers le bas
Y a-t-il un moyen d'automatiser cela (j'ai des milliers de ces cellules à
déplacer) ?
Merci d'avance

Sylvain
Signaler un problème avec ce contenu

2 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
Patrick Loury
Bonjour,
Solution Vba :

Pour les besoins de l'expérience, je suppose tes données en rouge
en colonne C, de c1 et vers le bas.
Pour ne pas boucler toute la colonne, je select de la plus basse
ligne dans c jusqu'à c1.
Je déplace de 2 cellules à gauche avec le -2 dans Offset, et tu
remplacera le 0 par le nombre positif de ton choix de nombre de
ligne de décalage.
3 est le code couleur de Rouge.



Sub decalred()
Dim celltest As Range
Range("C65536").Select
Selection.End(xlUp).Select
Range(Selection, "c1").Select
For Each celltest In Selection
If celltest.Font.ColorIndex = 3 Then
celltest.Cut
celltest.Offset(0, -2).Select
ActiveSheet.Paste
End If
Next celltest
End Sub

à+

Patrick

"Help ME" a écrit dans le message de news:
3f619e1f$0$660$
Bonjour
Je cherche à déplacer certaines cellules dont le texte est en
rouge,

sytématiquement de deux cellules a gauche et vers le bas
Y a-t-il un moyen d'automatiser cela (j'ai des milliers de ces
cellules à

déplacer) ?
Merci d'avance

Sylvain




Avatar
Patrick Loury
Re Sylvain,
pour les déterminer, tu démarres l'enregistreur de macro, tu
color a1 avec une couleur, a2 avec une autre,etc, et tu vas voir
le code dans la macro obtenue. ;-)
Pour les connaitre fonction de ta version, dans un classeur neuf,
colle le code suivant dans un module et lance :

Sub palette()
Dim I As Integer
For I = 1 To 56
Cells(I, 2).Interior.ColorIndex = I
Cells(I, 1).Value = I
Next I
End Sub

,à+
Pat

"Help ME" a écrit dans le message de news:
3f61c3fb$0$12340$
Woaw !
Un grand merci, Patrcick, cela marche parfaitement.
A tout hasard, comment déterminer ou connaître les
codes couleurs d'une couleur ?
Sylvain

"Patrick Loury" a écrit dans le
message de news:

bjsc5m$2kg$
Bonjour,
Solution Vba :

Pour les besoins de l'expérience, je suppose tes données en
rouge


en colonne C, de c1 et vers le bas.
Pour ne pas boucler toute la colonne, je select de la plus
basse


ligne dans c jusqu'à c1.
Je déplace de 2 cellules à gauche avec le -2 dans Offset, et
tu


remplacera le 0 par le nombre positif de ton choix de nombre
de


ligne de décalage.
3 est le code couleur de Rouge.



Sub decalred()
Dim celltest As Range
Range("C65536").Select
Selection.End(xlUp).Select
Range(Selection, "c1").Select
For Each celltest In Selection
If celltest.Font.ColorIndex = 3 Then
celltest.Cut
celltest.Offset(0, -2).Select
ActiveSheet.Paste
End If
Next celltest
End Sub

à+

Patrick

"Help ME" a écrit dans le message de
news:


3f619e1f$0$660$
Bonjour
Je cherche à déplacer certaines cellules dont le texte est
en



rouge,
sytématiquement de deux cellules a gauche et vers le bas
Y a-t-il un moyen d'automatiser cela (j'ai des milliers de
ces



cellules à
déplacer) ?
Merci d'avance

Sylvain