Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copie cellule sous condition de couleur

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion creolia
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

creolia

XLDnaute Impliqué
Bonsoir a tous

je viens solliciter votre aide

j'ai fais une condition si la cellule valeur est inferieur a 10 il deviens rouge mais
maintenant je souhaiterais copier des cellules sous condition si ils sont à fond rouge copier la cellule dans la feuil 2 et si entre temps il redevienne dans ce blanc il s'enlève de la feuil 2

es ce possible svp

j'ai mis un fichier joins pour situer mon souhait merci de votre aide
 

Pièces jointes

Trier par date Trier par votes
Re : copie cellule sous condition de couleur

Bonsoir creolia, Roger 🙂

Une solution par formule matricielle en Feuil2!A2 :

Code: 
=SI(LIGNES(A$2:A2)>NB.SI(Feuil1!$D$2:$D$16;"<10");"";INDEX(Feuil1!A:A;PETITE.VALEUR(SI(Feuil1!$D$2:$D$16<10;LIGNE(INDIRECT("2:16")));LIGNES(A$2:A2))))

A valider par Ctrl+Maj+Entrée, et à tirer à droite et vers le bas.

Mettre la colonne C au format Date.

Bonne nuit.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : copie cellule sous condition de couleur

merci pour vos 2 réponse mais celle de ROGER2327 est mieux adapter a mon problème le seul soucis que d'essais de résoudre depuis ce matin c'est que j'arrive bien a copier la cellule nom prénom et date selon si le fond de la cellule soit rouge mais le soucis c'est quand elle est plus rouge elle s'enlève pas automatique dans le tableau de la feuil2 avez vous une idées svp
 

Pièces jointes

Vote positif 0 Vote négatif
Re : copie cellule sous condition de couleur

Bonjour creolia, salut Roger,

Vous préférez VBA, alors voici une autre solution.

La macro entre la formule matricielle dans les cellules, puis ne garde que leurs valeurs :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:D]) Is Nothing Then Exit Sub
Dim plage As Range, ad1$, ad2$, formule$, cel As Range
Set plage = Range("D1:D" & Range("A65536").End(xlUp).Row)
ad1 = "Feuil1!C"
ad2 = "Feuil1!" & plage.Address(ReferenceStyle:=xlR1C1)
formule = "=INDEX(" & ad1 & ",SMALL(IF(" & ad2 & "<10,ROW(" & ad2 & ")),ROWS(R2C:RC)))"
With Sheets("Feuil2")
  .Range("A2:C65536").ClearContents
  For Each cel In .Range("A2:C" & plage.Count)
    cel.FormulaArray = formule 'formule matricielle
    If IsError(cel) Then cel = "" Else cel = cel.Value
  Next
End With
End Sub

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : copie cellule sous condition de couleur

MERCI a toi JOB75 pour ta réponse j'ai crue un moment que sa fonctionnais pas vues que jetais partis sur si la cellule rouge copie dans feuil2 mais ce que tu ma proposer est baser directement sur la valeur ce qui résous mon problème


mais par curiosité es ce que ont peut se basé sur le changement de couleur d'une cellule c'est vraiment par curiosité vue je m'étais basé la dessus merci si tu répond et merci même si tu répond pas lol

🙂
 
Vote positif 0 Vote négatif
Re : copie cellule sous condition de couleur

Re,

En VBA il est possible de récupérer les couleur produites par une MFC mais c'est très compliqué et nécessite la construction de fonctions spéciales.

La meilleur solution est d'utiliser la ou les conditions de la MFC.

A+
 
Vote positif 0 Vote négatif
Re : copie cellule sous condition de couleur

OUI je me doute mais j'avais trouver une solution de ce type sauf qu'il fallait que je relance le classeur pour pouvoir le mette a jour tu saurais si il existe une fonction pour initialiser tout un classeur pour simuler un redémarrage stp
 
Vote positif 0 Vote négatif
Re : copie cellule sous condition de couleur

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:D]) Is Nothing Then Exit Sub
Dim plage As Range, ad1$, ad2$, formule$, cel As Range
Set plage = Range("D1:D" & Range("A65536").End(xlUp).Row)
ad1 = "Feuil1!C"
ad2 = "Feuil1!" & plage.Address(ReferenceStyle:=xlR1C1)
formule = "=INDEX(" & ad1 & ",SMALL(IF(" & ad2 & "<10,ROW(" & ad2 & ")),ROWS(R2C:RC)))"
With Sheets("Feuil2")
  .Range("A2:C65536").ClearContents
  For Each cel In .Range("A2:C" & plage.Count)
    cel.FormulaArray = formule 'formule matricielle
    If IsError(cel) Then cel = "" Else cel = cel.Value
  Next
End With
End Sub


RE bonjour job75 je voulais savoir si il était possible avec le nom et prénom copier également la cellule valeur sans copier la cellule date merci pour ton aide
 
Vote positif 0 Vote négatif
Re : copie cellule sous condition de couleur

Bonjour creolia,

Pour copier la colonne "valeur" la solution est d'insérer une colonne C temporaire qui est ensuite supprimée :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:D]) Is Nothing Then Exit Sub
Dim plage As Range, ad1$, ad2$, formule$, cel As Range
Set plage = Range("D1:D" & Range("A65536").End(xlUp).Row)
ad1 = "Feuil1!C"
ad2 = "Feuil1!" & plage.Address(ReferenceStyle:=xlR1C1)
formule = "=INDEX(" & ad1 & ",SMALL(IF(" & ad2 & "<10,ROW(" & ad2 & ")),ROWS(R2C:RC)))"
With Sheets("Feuil2")
  .Range("A2:C65536").ClearContents
[COLOR="Red"]  .Columns(3).Insert 'insertion colonne C[/COLOR]
  For Each cel In .Range("A2:[COLOR="red"]D[/COLOR]" & plage.Count)
    cel.FormulaArray = formule 'formule matricielle
    If IsError(cel) Then cel = "" Else cel = cel.Value
  Next
[COLOR="red"]  .Columns(3).Delete 'suppression colonne C[/COLOR]
End With
End Sub

Edit : pour faire gagner du temps à la macro, on évite de remplir la colonne temporaire C avec ce code :

Code: 
For Each cel In .Range("A2:B" & plage.Count & ",D2:D" & plage.Count)

Voir version (4).

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : copie cellule sous condition de couleur

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:C]) Is Nothing Then Exit Sub
Dim plage As Range, ad1$, ad2$, formule$, cel As Range
Set plage = Range("D1:D" & Range("A65536").End(xlUp).Row)
ad1 = "Feuil1!C"
ad2 = "Feuil1!" & plage.Address(ReferenceStyle:=xlR1C1)
formule = "=INDEX(" & ad1 & ",SMALL(IF(" & ad2 & "<10,ROW(" & ad2 & ")),ROWS(R2C:RC)))"
With Sheets("Feuil3")
  .Range("E2:G65536").ClearContents
  For Each cel In .Range("E2:G2" & plage.Count)
    cel.FormulaArray = formule 'formule matricielle
    If IsError(cel) Then cel = "" Else cel = cel.Value
  Next
End With
End Sub



bonjour je reviens vers vous pour un complément information pour essayer de comprendre le code je l'ai modifier pour au lieu qu'il copie dans la feuil2 et la colonne A2:C qu'il me le fasse dans la feuil3 dans la colonne F2:G mais rien ne se passe au mieux j'ai des zéro partout seriez vous pour quoi merci.
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Question Question
Microsoft 365 Ecrire un texte dans une cellule sous condition et changer couleur ligne
Réponses
4
Affichages
135
Rikko14
R
D
  • Résolu(e)
Microsoft 365 chercher une cellule de couleur rouge dans une colonne
Réponses
4
Affichages
316
sylvanu
B
  • Résolu(e)
Autres Changer la couleur de fond de cellules.
Réponses
4
Affichages
133
BIBIX
B
M
  • Question Question
XL 2021 Colorer avec condition de temps
2
Réponses
29
Affichages
1 K
matlatarte
M
F
  • Question Question
XL 2019 Demande aide de formule
Réponses
5
Affichages
137
Fidmo
F
T
  • Question Question
XL 2021 Additionner la couleur du fond et la police de plusieurs cellule en vba
Réponses
7
Affichages
529
Tophe2
T
F
  • Question Question
Microsoft 365 Macro copie colle si condition
Réponses
9
Affichages
209
Jacky67
  • Question Question
XL 2016 [Resolu]Fond de couleur de la cellule en fonction du texte choisi
Réponses
12
Affichages
264
job75
D
  • Résolu(e)
Microsoft 365 Validation de données sous condition
Réponses
8
Affichages
341
drop91
D
  • Résolu(e)
XL 2019 Fonction "Find" qui ne fonctionne pas selon le format de cellule
Réponses
12
Affichages
310
Titof06
A
  • Question Question
XL pour MAC Formatage de fichiers de coordonnées
Réponses
10
Affichages
182
agnesd
A
K
  • Question Question
XL 2016 VBA: Selection Date renvoie copier/coller
Réponses
8
Affichages
1 K
Krome36
K
R
  • Question Question
Microsoft 365 Colorier ligne si
Réponses
3
Affichages
372
sylvanu
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
325
Yogean
Y
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
799
Max
M
  • Question Question
Microsoft 365 Copie de couleur d'une cellule à une autre
Réponses
11
Affichages
779
Dranreb
  • Question Question
Microsoft 365 Compter le nombre de cellule mise en couleur avec MFC
2
Réponses
19
Affichages
1 K
job75
M
  • Question Question
XL 2016 Changement de couleur cellule
Réponses
1
Affichages
309
Gégé-45550
  • Question Question
XL 2016 copie de donnees horizontale en verticale
2
Réponses
25
Affichages
701
job75
R
  • Résolu(e)
XL 2010 vba excel : recherche concordance chaine texte dans cellule et données stockées dans un tablo (array)
Réponses
4
Affichages
253
Raynaud.JF
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…