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

Mise en forme conditionnelle automatique après copier coller

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion lanoe
  • 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
L

lanoe

XLDnaute Occasionnel
Bonjour,

J’ai un macro qui copier/coller d’un ou plusieurs lignes (le nombre de ligne est variable). Les "coller" se réalisent les uns à la suite des autres. Pour mieux identifier chaque copier/coller je désire colorer alternativement en bleu et vert chaque coller.
Pièce jointe.

Merci d’avance
Lanoe
 

Pièces jointes

Trier par date Trier par votes
Re : Mise en forme conditionnelle automatique après copier coller

Bonjour Lanoe,

regarde la macro ci dessous, si j'ai bien compris :

Code: 
Sub test2()
Dim i As Byte
With Sheets("Feuil1")
    .Range("A2:B6").SpecialCells(xlCellTypeVisible).Copy
    i = (.Range("A2:B6").SpecialCells(xlCellTypeVisible).Count / 2) - 1
End With
With Sheets("Feuil2")
    If .Range("A65536").End(xlUp).Interior.ColorIndex = 34 Then
        .Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
        .Range(.Range("A65536").End(xlUp).Offset(-i, 0), .Range("A65536").End(xlUp) _
            .Offset(0, 1)).Interior.ColorIndex = 35
        ElseIf .Range("A65536").End(xlUp).Interior.ColorIndex = 35 Then
            .Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
            .Range(.Range("A65536").End(xlUp).Offset(-i, 0), .Range("A65536").End(xlUp) _
                .Offset(0, 1)).Interior.ColorIndex = 34
    Else
        MsgBox "couleur non répertoriée"
    End If
End With
End Sub

bon après midi
@+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Mise en forme conditionnelle automatique après copier coller

Bonjour,

Je n'arrive pas à adapter le macro j'ai la réponse "couleur non répertoriée".

Est-il possible de l'adapter à mon fichier en piece jointe sur le premier message.

Merci d'avance

Lanoe
 
Vote positif 0 Vote négatif
Re : Mise en forme conditionnelle automatique après copier coller

Re

attention, vérifies avec l'enregistreur de macro, que les numéros d'index renvoyés correspondent bien avec les numéros indiqués dans la macro...

@+
 
Vote positif 0 Vote négatif
Re : Mise en forme conditionnelle automatique après copier coller

Re Bonjour,

Je bloque pour adapter le macro, il fonctionne parfaitement dans le fichier d'origine, mais quand je le copie intégralement dans un autre fichier j’ai la mention "couleur non répertoriée". J’ai vérifié par l’enregistreur les couleurs :
Range("D14").Select
With Selection.Interior
.ColorIndex = 34
.Pattern = xlSolid
End With
Range("D19").Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With

Je dois faire une erreur mais ou ???

Lanoé
 
Vote positif 0 Vote négatif
Re : Mise en forme conditionnelle automatique après copier coller

Bonjour Lanoe

sur la feuille de destination, la dernière cellule de la colonne A, a bien une couleur ayant le numéro d'index 34 ou 35 ?

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : Mise en forme conditionnelle automatique après copier coller

Re
Effectivement le problème vient d'ici car quand je copie intégralement la feuille de réception sur mon nouveau fichier cela fonctionne. Pour ma culture perso comment faire car sur le fichier d’origine la dernière cell de la col A me semble pas avoir de particularité ? (pas de coloration 34 ou 35)

Lanoe
 
Vote positif 0 Vote négatif
Re : Mise en forme conditionnelle automatique après copier coller

Re

j'ai modifié un peu la macro, regarde si cela fonctionne mieux :

Code: 
Sub Macro1()
Dim i As Byte
With Sheets("Feuil1")
    .Range("A2:B6").SpecialCells(xlCellTypeVisible).Copy
    i = (.Range("A2:B6").SpecialCells(xlCellTypeVisible).Count / 2) - 1
End With
With Sheets("Feuil2")
    If .Range("A65536").End(xlUp).Interior.ColorIndex = 34 Then
        .Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
        .Range(.Range("A65536").End(xlUp).Offset(-i, 0), .Range("A65536").End(xlUp) _
            .Offset(0, 1)).Interior.ColorIndex = 35
    Else
        .Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
        .Range(.Range("A65536").End(xlUp).Offset(-i, 0), .Range("A65536").End(xlUp) _
            .Offset(0, 1)).Interior.ColorIndex = 34
    End If
End With
End Sub


@+

Edition : si il n'y a pas de couleur, dans la dernière cellule, celle ci fera mieux l'affaire...
 
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

E
  • Question Question
XL 2016 Mise en forme conditionnelle conservée après actualisation d'un TCD
Réponses
1
Affichages
321
chris
C
  • Résolu(e)
XL 2021 Mise en forme conditionnelle
Réponses
2
Affichages
302
chrislecycliste
C
A
  • Question Question
XL 2019 Mise en forme conditionnelle
Réponses
5
Affichages
665
wDog66
W
T
  • Question Question
Microsoft 365 Mise en forme conditionnelle
Réponses
5
Affichages
417
TooFatBoy
M
  • Question Question
Microsoft 365 Ajout de cas à cocher et mise en forme conditionnelle dans un tableau Excel
Réponses
9
Affichages
631
mimednejma
M
F
  • Question Question
XL pour MAC Mise en forme conditionnelle
Réponses
6
Affichages
342
flea
F
A
  • Résolu(e)
XL 2013 mise en forme conditionnelle celons 2 critères
Réponses
7
Affichages
417
Auriane
A
P
  • Résolu(e)
Microsoft 365 Mise en surbrillance de prix min et max (mise en forme conditionnelle)
Réponses
6
Affichages
491
Pepepichnette69
P
S
  • Question Question
Microsoft 365 Mise en forme conditionnelle selon date
Réponses
3
Affichages
565
JHA
J
D
  • Question Question
XL 2016 Future date la plus proche d'aujourd'hui + mise en forme conditionnelle
Réponses
8
Affichages
544
vgendron
A
  • Résolu(e)
XL 2010 date figee et mise en forme conditionnelle
Réponses
3
Affichages
624
Atlas85200
A
I
  • Résolu(e)
XL 2016 Formule pour mise en forme conditionnelle
Réponses
5
Affichages
874
Imte
I
  • Résolu(e)
XL 2010 Mise en forme conditionnelle sur toute la ligne ?
Réponses
4
Affichages
739
anthonygg
P
  • Question Question
XL 2019 Mise en forme conditionnelle sur plusieurs feuilles
Réponses
6
Affichages
1 K
JHA
J
C
Aide à la mise au point des Règles de Mise en Forme Conditionnelle (MFC)
Réponses
1
Affichages
469
crocrocro
C
B
  • Question Question
Microsoft 365 Mise en forme conditionnelle d'une colonne
Réponses
2
Affichages
701
Ben92290
B
B
  • Question Question
Microsoft 365 copier coller un tableau
Réponses
11
Affichages
1 K
BER6543
B
A
  • Question Question
XL 2019 Copier une plage dans un fichier fermé en VBA
2
Réponses
21
Affichages
3 K
Amilo
A
  • Question Question
XL 2016 Mise en forme conditionnelle / Comptage multicritères
Réponses
2
Affichages
576
Wayat
K
  • Question Question
Microsoft 365 Mise en forme conditionnelle [Texte ET Date]
Réponses
5
Affichages
1 K
Cousinhub
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…