Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
Sub essai()
For Each c In Range("U2:U1000,X2:X1000")
Set k = [A2:A1000].Find(c, LookAt:=xlWhole)
If Not k Is Nothing Then c.Resize(, 3).Interior.ColorIndex = k.Interior.ColorIndex
Next c
End Sub
Merci Tibo, tu as très bien compris ce que je voulais dire, résultat excellent !!!
Merci JB, en fait ton module et très bien (je vais le retenir pour la suite) mais se ne sont pas les couleurs
qui m'intéresse c'est ce qui se trouve dans les cellules (voir PJ, j'ai rectifié pour comprendre ce que j'aimerai)
J'ai de 258586 numéros donc cela me facilite le travail avec vos formules.
C'est mon explication qui n'est pas bonne, pas facile d'expliquer
- 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