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

Copier la couleur d'une cellule dans une autre (du Style VlookUp)

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

Ssang

XLDnaute Nouveau
Bonjour le forum,

Je possède le code suivant qui copie la valeur d'une cellule dans une autre (et qui marche très bien):

Code: 
 .Range("B" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 11, False)

J'aimerai maintenant avoir une formule du même type qui copie la couleur de fond de la cellule, du genre:

Code: 
 .Range("B" & j).Interior.ColorIndex = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 11, False).Interior.ColorIndex

Evidemment ce code ne marche pas, pouvez vous m'aider ?

Merci beaucoup !
 
Trier par date Trier par votes
Re : Copier la couleur d'une cellule dans une autre (du Style VlookUp)

Bonjour,

regarde peut être du coté de la méthode "find", tout dépend de se que tu recherches... sans plus de détails difficile pour moi d'aller plus loin...

bon après midi
@+
 
Vote positif 0 Vote négatif
Re : Copier la couleur d'une cellule dans une autre (du Style VlookUp)

Salut pierrot,

Voici le code complet:

Code: 
Sub CopierComsDansMasque()
Dim j As Integer
Dim k As Integer


With Sheets("Masque_Commentaires")
.Range("B3:Z10000") = Clean
For j = 3 To .Range("A65536").End(xlUp).Row
    .Range("B" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 11, False)
    .Range("C" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 12, False)
    .Range("D" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 13, False)
    .Range("E" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 14, False)
    .Range("F" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 15, False)
    .Range("G" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 16, False)
    .Range("H" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 17, False)
    .Range("I" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 18, False)
    .Range("J" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 19, False)
    .Range("K" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 20, False)
    .Range("L" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 21, False)
    .Range("M" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 22, False)
  Next j
End With

End Sub

Il recherche un ID_Projet dans la feuille Etat 4, et copie les valeurs associées à ce code ID_Projet dans la feuille "Masque_Commentaires".

J'aimerai qu'en plus de copier les valeurs associées, il copie aussi la mise en frome de ces mêmes cellules (couleur de fond, police, bordures si possible)

Cdtl,
 
Vote positif 0 Vote négatif
Re : Copier la couleur d'une cellule dans une autre (du Style VlookUp)

Re,

regarde peut être ceci en espérant que cela puisse t'aider à avancer :
Code: 
Option Explicit
Sub test()
Dim x As Range, j As Long
With Sheets("Masque_Commentaires")
    For j = 3 To .Range("A65536").End(xlUp).Row
        Set x = Sheets("Etat_4").Range("$B$11:$Z$1000").Find(.Range("A" & j).Value, , xlValues, xlWhole, , , False)
        If Not x Is Nothing Then
            .Range("B" & j).Value = x.Offset(0, 10).Value
            .Range("B" & j).Interior.ColorIndex = x.Offset(0, 10).Interior.ColorIndex
        Next x
    Next j
End With
End Sub
 
Vote positif 0 Vote négatif
Re : Copier la couleur d'une cellule dans une autre (du Style VlookUp)

Merci pierrot, c'est dans le style de la formule que je cherche.

Malheureusement il y a une erreur sur le Next x (Pas de Next sans for)
 
Vote positif 0 Vote négatif
Re : Copier la couleur d'une cellule dans une autre (du Style VlookUp)

Bonjour,

Aarf, désolé, modifie comme suit :
Code: 
Option Explicit
Sub test()
Dim x As Range, j As Long
With Sheets("Masque_Commentaires")
    For j = 3 To .Range("A65536").End(xlUp).Row
        Set x = Sheets("Etat_4").Range("$B$11:$Z$1000").Find(.Range("A" & j).Value, , xlValues, xlWhole, , , False)
        If Not x Is Nothing Then
            .Range("B" & j).Value = x.Offset(0, 10).Value
            .Range("B" & j).Interior.ColorIndex = x.Offset(0, 10).Interior.ColorIndex
        End If
    Next j
End With
End Sub
bonne journée
@+
 
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

  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
3 K
Rheeem
R
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
304
juju91
J
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
885
Phil69970
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
512
Abi23
A
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
1 K
firecarl
F
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
727
Phil69970
D
  • Question Question
Microsoft 365 mise en forme conditionnelle : choisir la couleur d'une autre cellule
Réponses
11
Affichages
790
deuxnid
D
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
603
Phil69970
  • Question Question
Microsoft 365 Copier une plage vers une autre feuille depuis un USF
Réponses
4
Affichages
354
chris6999
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
818
GClaire
G
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
920
Compte Supprimé 979
C
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
600
AtTheOne
  • Résolu(e)
XL 2016 Appliquer sur une sélection la couleur d'une autre cellule
Réponses
4
Affichages
533
halecs93
  • Question Question
XL 2016 Aide pour maj auto de la date + selection multiple dans une liste déroulante
Réponses
5
Affichages
787
fanch55
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
777
crocrocro
C
F
  • Résolu(e)
Microsoft 365 Commentaire cellule dans TextBox dans UserForm
Réponses
4
Affichages
709
Francky79
F
P
  • Résolu(e)
XL 2019 ajouter lien fichier dans une colonne
Réponses
3
Affichages
511
sylvanu
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
928
Nel'
N
C
  • Question Question
XL 2019 Déplacer lignes selon contenu d'une cellule
Réponses
2
Affichages
1 K
ARMAEL
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…