Microsoft 365 fichier créer gestion de stock

[Zangief]

bonjour à tous,
voila j’ai un petit problème même deux je dirais.
j'ai une erreur sur ma page config pour mettre des couleurs.
Sub couleur_page1()

For page_color = 1 To 8

Sheets(page_color).Shapes("page" & page_color).Fill.ForeColor.RGB = RGB(0, 112, 198)

Next page_color
ActiveSheet.Shapes("color1").Line.ForeColor.RGB = RGB(192, 0, 0)
ActiveSheet.Shapes("color2").Line.ForeColor.RGB = RGB(255, 255, 255)
ActiveSheet.Shapes("color3").Line.ForeColor.RGB = RGB(255, 255, 255)
ActiveSheet.Shapes("color4").Line.ForeColor.RGB = RGB(255, 255, 255)
ActiveSheet.Shapes("color5").Line.ForeColor.RGB = RGB(255, 255, 255)

End Sub

et la seconde cet sur ma page booking, j'ai de nouveaux une erreur avec Additem.
ou François m'avait bien aider alias fanfan38.
merci de votre aide je joint le fichier.

 

[fanfan38]

Bonjour
Pour le premier problème le fait de grouper les shapes la macro les trouvent plus
si un shape s'appelle Page 1 tu ne dois pas appeler page1 il ne le trouvera pas
Pour le 2ème problème:
On t'a dit dans ton post précédent "On ne peut mettre un additem sur un textbox
Alors garde ton textbox et bon courage mais dans ce cas ne site pas nom merci
A+ François

 

[sylvanu]

Bonjour Zangief,
Concernant le premier problème, il manque simplement un espace après votre page, le nom est Page 1 et non Page1 :

Sheets(page_color).Shapes("page " & page_color).Fill.ForeColor.RGB = RGB(0, 112, 198)

pour le second ... Please, wait.

 

[sylvanu]

Concernant le second point, j'ai remplacé la TextBox par une ListBox avec 2 colonnes en propriétés et le code :

Private Sub CommandButton1_Click()
Dim n%
If Me.Txt_facture <> "" And Me.Txt_nombre <> "" And Me.Cbx_article.ListIndex >= 0 And Me.Cbx_type.ListIndex >= 0 Then
    With Me.list_order
      .AddItem
      n = .ListCount - 1
      .List(n, 0) = Me.Cbx_article
      .List(n, 1) = Me.Txt_nombre
    End With
    'vider l'article et le nombre
    memoire = memoire + 1
    Me.Cbx_article = ""
    Me.Txt_nombre = ""
End If
End Sub

 

[Zangief]

ok merci je vais regarder cela, je n'ai plus le code erreur additem mais rien ne s'ajoute a mon tableau.Pour la page color merci cela fonctionne.

 

[Zangief]

Bonjour
Pour le premier problème le fait de grouper les shapes la macro les trouvent plus
si un shape s'appelle Page 1 tu ne dois pas appeler page1 il ne le trouvera pas
Pour le 2ème problème:
On t'a dit dans ton post précédent "On ne peut mettre un additem sur un textbox
Alors garde ton textbox et bon courage mais dans ce cas ne site pas nom merci
A+ François

Je débute sur excel, je ne comprend pas tout. Donc je ne vois pas comment changer mon textbox comme tu dit. Je suis aller voir ce que tu a fait sur mon 1er poste et je vois pas trop. Mais merci je vais essayer de me débrouiller

 

[sylvanu]

Re le fil,
Regardez la différence entre TextBox et ListBox :

Utiliser les contrôles dans un UserForm, en VBA Excel

Utiliser les contrôles dans un UserForm, en VBA Excel

silkyroad.developpez.com

Utiliser les contrôles dans un UserForm, en VBA Excel

Utiliser les contrôles dans un UserForm, en VBA Excel

silkyroad.developpez.com

Donc vous supprimez votre TextBox et la remplacez par une ListBox. cf post #4.
Ensuite dans les propriétés de cette ListBox vous modifiez le nombre de colonnes désirées :

Et vous aurez moins de soucis.

 

[fanfan38]

Bonjour
Salut Sylvanu
Ci joint le fichier corrigé
A+ François

 

[Zangief]

Re le fil,
Regardez la différence entre TextBox et ListBox :

Utiliser les contrôles dans un UserForm, en VBA Excel

Utiliser les contrôles dans un UserForm, en VBA Excel

silkyroad.developpez.com

Utiliser les contrôles dans un UserForm, en VBA Excel

Utiliser les contrôles dans un UserForm, en VBA Excel

silkyroad.developpez.com

Regarde la pièce jointe 1092313
Donc vous supprimez votre TextBox et la remplacez par une ListBox. cf post #4.
Ensuite dans les propriétés de cette ListBox vous modifiez le nombre de colonnes désirées :
Regarde la pièce jointe 1092315
Et vous aurez moins de soucis.

je te remercie pour l'explications, je ferais attention a cela, merci beaucoup.

 

[Zangief]

Bonjour
Salut Sylvanu
Ci joint le fichier corrigé
A+ François

Merci infiniment François.