Couleur pour une zone de liste modifiable dans un USF

[captainejack]

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🙂

 

[Macpoy]

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]

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]

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:

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]

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]

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

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

 

[captainejack]

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

 

[skoobi]

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

Re,

celui-ci:

.Range(.Cells(y, 1), .Cells(y, 4)).Interior.Color

 

[captainejack]

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]

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 !!!

 

[captainejack]

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