Si + Interior.ColorIndex
Résolu/Fermé2 réponses
f894009
Messages postés
17189
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 mai 2024
1 705
24 mai 2017 à 17:29
24 mai 2017 à 17:29
Bonjour,
c'est ici que ca coince
Vous declarez ces deux variables en Range, donc pour les affecter
Mais la suite ne va pas du tout
Deux facons de faire:
A dispo pour plus d'explications
c'est ici que ca coince
CodeFourn = Range("CodeFournisseur") CodeFournLVD = Range("CodeFournisseurLVD")
Vous declarez ces deux variables en Range, donc pour les affecter
Set CodeFourn = Range("CodeFournisseur") Set CodeFournLVD = Range("CodeFournisseurLVD")
Mais la suite ne va pas du tout
Deux facons de faire:
Sub FournLVD() Dim CodeFourn As Range Dim CodeFournLVD As Range Set CodeFourn = Range("CodeFournisseur") Set CodeFournLVD = Range("CodeFournisseurLVD") Nb = CodeFourn.Rows.Count For n = 1 To Nb If Not IsEmpty(CodeFourn(n, 1)) And CodeFournLVD(n, 1) <> CodeFourn(n, 1) Then CodeFournLVD(n, 1).Interior.ColorIndex = 6 Else CodeFournLVD(n, 1).Interior.Pattern = xlNone End If Next n End Sub Sub FournLVD_1() With Worksheets("feuil1") Nb = .Range("CodeFournisseur").Rows.Count For n = 1 To Nb If Not IsEmpty(.Range("CodeFournisseur").Cells(n, 1)) And .Range("CodeFournisseurLVD").Cells(n, 1) <> .Range("CodeFournisseur").Cells(n, 1) Then .Range("CodeFournisseurLVD").Cells(n, 1).Interior.ColorIndex = 6 'jaune Else .Range("CodeFournisseurLVD").Cells(n, 1).Interior.Pattern = xlNone 'pas de couleur End If Next n End With End Sub
A dispo pour plus d'explications
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
24 mai 2017 à 17:31
24 mai 2017 à 17:31
Bonjour
essaies
CodeFourn = set Range("CodeFournisseur")
CodeFournLVD = set Range("CodeFournisseurLVD")
a l"avenir lorsque tu post des codes, merci de la mette entre balises
essaies
CodeFourn = set Range("CodeFournisseur")
CodeFournLVD = set Range("CodeFournisseurLVD")
a l"avenir lorsque tu post des codes, merci de la mette entre balises
f894009
Messages postés
17189
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 mai 2024
1 705
24 mai 2017 à 17:34
24 mai 2017 à 17:34
Bonjour,
T'es sur de ton code?
T'es sur de ton code?
NHenry
Messages postés
15114
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
4 mai 2024
331
Modifié le 24 mai 2017 à 17:37
Modifié le 24 mai 2017 à 17:37
Sauf erreur de ma part, le set se trouve en début de ligne, pas après le =, en VBA/VB6.
Et j'ai ajouté la coloration du code dans la question :
Et j'ai ajouté la coloration du code dans la question :
EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages. |
26 mai 2017 à 08:24
Ca marche, c'est super merci beaucoup!!!