couleur

ebe

XLDnaute Junior
bonsoir a tous
je voudrais savoir comment peut on importe des couleur d une cellule dansun menu deroulant
merci davance a tous
 

Feutrine

XLDnaute Occasionnel
Re : couleur

Bonsoir eBe,
Voici le code :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Column <> 2 Then Exit Sub
Set c = Sheets("Données").Range("Liste").Find(Target)
If Not c Is Nothing Then
Target.Interior.ColorIndex = c.Interior.ColorIndex
End If

End Sub
---------------------------
Avec "Donnée" le nom de ta feuille où se situe tes données
Avec "Liste" le nom de ta liste

Amicalement
feutrine
 

ebe

XLDnaute Junior
Re : couleur

bonsoir feutrine
j ai essayer de faire comme tu a dis mais je n et pas tres bien compris car debutant c dur je ny suis pas arriver
c le code apres il faut le placer ou je te joint la feuillle
je te remercie encore de m aider
mes salutation du soir ebe
 

Pièces jointes

  • Classeur1.xls
    20.5 KB · Affichages: 57
  • Classeur1.xls
    20.5 KB · Affichages: 47
  • Classeur1.xls
    20.5 KB · Affichages: 55

Statistiques des forums

Discussions
312 505
Messages
2 089 070
Membres
104 019
dernier inscrit
BenKmc