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

Couleur pour une zone de liste modifiable dans un USF

captainejack

XLDnaute Occasionnel
Bonjour le Forum
Dans l'Usf joint, j'ai une zone de liste modifiable avec Entrée/Sortie. Comment leur attribuer une couleur pour l'enregistrement dans la base de Donnée?
J'ai utilisé le format de mise en forme conditionnelle de la base de donnée et je pense que ce n'est pas la bonne solution.
pouvez vous me donner un petit coup de pouce?
En vous remerciant de votre aide
Slts
Dan:)
 

Pièces jointes

  • GESTION1bis.zip
    20.8 KB · Affichages: 36
  • GESTION1bis.zip
    20.8 KB · Affichages: 37
  • GESTION1bis.zip
    20.8 KB · Affichages: 41

Macpoy

XLDnaute Impliqué
Re : Couleur pour une zone de liste modifiable dans un USF

bonjour le forum, captainejack
peut être en incorporant un truc du genre :

.cells(y,4).Interior.ColorIndex = 36 ' jaune pale
.cells(y,4).Pattern = xlSolid
 

captainejack

XLDnaute Occasionnel
Re : Couleur pour une zone de liste modifiable dans un USF

Bjr Macpoy
Merci pour pour ton aide
J'ai incorporé tes codes et j'ai un "débogage" à chaque fois
Ex: En choisissant"Entrée", dans la base de donnée je souhaiterai qu'il soit enregistré en vert, et en choisissant "Sortie" en rouge
Slts
Dan
 

skoobi

XLDnaute Barbatruc
Re : Couleur pour une zone de liste modifiable dans un USF

Bonjour Macpoy, captainejack,

en supposant que c'est bien la colonne quantité que tu veux colorier, en bleu les ajouts:

Code:
Private Sub B_Validation_Click()
Dim y As Long
y = SpinButton1


With Sheets("Feuil3")
  .Cells(y, 1) = EntréeSortie.Value
  .Cells(y, 2) = DateJour
  .Cells(y, 3) = DésignationArticle
  Select Case EntréeSortie.ListIndex
    Case 0
      .Cells(y, 4) = Quantité.Value
[COLOR=Blue][B]      .Cells(y, 4).Interior.Color = vbGreen[/B][/COLOR]
    Case 1
      .Cells(y, 4) = 0 '- Quantité.Value
[COLOR=Blue][B]      .Cells(y, 4).Interior.Color = vbRed[/B][/COLOR]
  End Select

End With

IniUsf '<---------

End Sub
 

Macpoy

XLDnaute Impliqué
Re : Couleur pour une zone de liste modifiable dans un USF

Re le forum, Skoobi ,captainejack,
ben voila, grâçe à skoobi la boucle est bouclée.
à part une autre question, l'intervention des amis d'Excel est finie.
bonne soirée.
 

Macpoy

XLDnaute Impliqué
Re : Couleur pour une zone de liste modifiable dans un USF

Re,
un petit bonus, un classeur listant le N° vba de chaque couleur.
 

Pièces jointes

  • Couleurs.xls
    38 KB · Affichages: 120
  • Couleurs.xls
    38 KB · Affichages: 128
  • Couleurs.xls
    38 KB · Affichages: 124

captainejack

XLDnaute Occasionnel
Re : Couleur pour une zone de liste modifiable dans un USF

Bsr Skoobi;Macpoy
J'ai remplacé (y, 4) par (y, 1) et ça marche impect
Par contre, si je veux que les cellules 1,2,3,4 soient en couleur, quel serait le code
En vous remerciant pour votre aide
Slts
Dan
PS:Encore merci pour les codes couleurs
 

captainejack

XLDnaute Occasionnel
Re : Couleur pour une zone de liste modifiable dans un USF

Skoobi
Merci pour ton aide. Juste encore une petite question
J'ai remarqué que tu indiquais le nom des couleurs
D'après le tableau que Macpoy a fait suivre, si je veux changer les couleurs, le code serait:
.Range(.Cells(y, 1), .Cells(y, 4)).Interior.Color.ColorIndex = 3(pour le rouge)
Dis moi si je me trompe, je ne suis qu'un débutant en VBA
Slts
Dan
 

Macpoy

XLDnaute Impliqué
Re : Couleur pour une zone de liste modifiable dans un USF

Re à tous,
cher captainejack, vous enlevez le point d'interrogation à votre question, et vous avez la réponse.
autodidacte et curieux sont les deux mamelles d'Excel.
bonne soirée.

un autre petit bonus pour s'amuser !!!
 

Pièces jointes

  • Indicateurs_visuelsV1.zip
    20.9 KB · Affichages: 50
  • Indicateurs_visuelsV1.zip
    20.9 KB · Affichages: 50
  • Indicateurs_visuelsV1.zip
    20.9 KB · Affichages: 45

captainejack

XLDnaute Occasionnel
Re : Couleur pour une zone de liste modifiable dans un USF

Bsr Macpoy & Skoobi
Un grand merci pour votre aide
En cherchant un peu , j'ai trouvé le code et installé
ça fonctionne
Merci pour les indicateurs

je profite aussi pour remercier tout le forum pour ce travail formidable...
Slts
Dan
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…