XL 2019 Couleurs d'un rectangle

[crazyguismo]

Bonjour la communauté,

Voila je bute sur un sujet, je suis en train de réaliser une gestion de stock automatiséé.
Il ne me reste plus qu'à faire des remplacements de couleur sur la page congif (pour le moment je ne travail que sur cette feuille)
Je vous joins le fichier.

Mon but est de changer la couleur du rectangle nommé "nav" en cliquant sur la couleur souhaiter. (module couleurs_fond)
dans un deuxième temps j'aimerai faire un contour sur ces rectangle couleur. (module couleurs_page)

lors du débogage la ligne

For Page_menu = 1 To 8
Sheets(Page_menu).Shapes("nav").Fill.forcolor.RGB = RGB(0, 0, 0)
Next Page_menu

pouvez-vous m'aider?

merci

 

[patricktoulon]

re
mille excuse 😳 😳 😳

For i = 1 To 10
  If Sheets(2).Shapes("case" & i).TextFrame.Characters.Text = "" Then
  MsgBox "Attention il manque des informations à renseignées!!": Exit Sub
  end if
Next

 

[crazyguismo]

en attendant ta réponse j'ai fait cela mais cela ne fonctionne toujours pas, la Excel m'affiche
erreur de compilation 1004
erreur définie pas l'application ou par l'objet.

j'ai écrit Next i mais cela ne change rien.

 

[patricktoulon]

regarde sur le net ce que veux dire une erreur 1004 tu comprendra tout seul 😉

 

[crazyguismo]

Bonjour
Bon

 

[crazyguismo]

Je n'ai plus le problème, il à disparu tout seul, mais peux-tu me dire ce que cela signifie pour ma curiosité.

 

[crazyguismo]

Puis je me permettre de t'envoyer mon fichier, car je n'arrive pas à enregistrer sous PDF, pourtant ce code j l'ai déjà utilisé et il fonctionne correctement.

cela m'embête de te demander de l'aide mais la je coince vraiment.

 

[patricktoulon]

re
bonjour
mais bon sang de bonsoir
donne moi une seule raison valable d'utiliser des formes pour des textboxs
et de surcroit donne moi une raison valable pour ne pas utiliser les range eux même

non désolé sur ce coup la je te suis pas
c'est complètement ABSURDE !!!!
non mais t'a perdu la tète!!!???????? 😉 😀 😀 😀 😉

tu a compris que tu écrivais dans les cellules et non dans les shape au moins 😀 😀 😀 😛 😛 😛 🙄

 

[crazyguismo]

Ok je vois ce que tu veux dire, je modifie mon fichier et réessaie.
il me semblais ecrire dans les shape.

 

[patricktoulon]

il me semblais écrire dans les shape.

😛 😛 😛 😛 😛 😛 😀 😀 😀

fait moi plaisir VIRE MOI CES SHAPES "text" 1 A 10
au pire fusionne tes cellule si tu tiens a avoir des case comme ca met leur une bordure

a noun d'i dious!!!!!!😀😀😀

 

[xUpsilon]

Coucou le fil,

@crazyguismo Les shapes dans pas mal de cas c'est :
- lourd
- encombrant
- pas pratique à manipuler
- ça sert potentiellement à rien.

Bonne continuation !

PS : Bah alors patrick c'est pas moi qui m'excite cette fois ci 😛

 

[patricktoulon]

Bonjour xUpsillon
😀 😀 😀 😀 😀 😀 😀
c'est quand j'ai vu le fichier waouh!!! mékèkilafé
en plus il me dit "il me semblais écrire dans les shape. "
le pire c'est que ces shapes c'est même pas des textboxs 😀
celle la c'est la meilleure de toutes

crazyguismo tu va me faire 500 lignes
"je ne dois pas prendre des formes automatique pour des textboxs et une vessie n'est pas une lanterne "
500 j'ai dis 😉

 

[crazyguismo]

Ok j'ai compris ce que tu veux dire.
je pensais cela plus simple pour la programmation.
J'ai refait juste la feuille 2 et réecris le code juste pour la cellule B48 mais j'ai le même problème, l'enregistrement ne fonctionne.

j'a du mal a voir d'où cela puisse venir.
je te renvoi le fichier avec juste le feuille 2 de corrigé.

 

[patricktoulon]

re
alors.... enfin tu deviens raisonnable

pour le pdf la feuille détente.......
le bouton

Private Sub CommandButton1_Click()

For Each cel In Range("b4,b5,b6,c15,c17,c19,b23,b32,b38,b48,b53,b63,b74,h15,h16,h17")
    If cel = "" Then MsgBox "Attention il manque des informations à renseignées!!": Exit Sub
Next

'créer un PDF

Dim Ledossier As String, Leclient As String, lerep As String
Ledossier = Range("B4").Value
lerep = Environ("userprofile") & "\DeskTop\" 'enregistre sur le bureau   ' à adapter

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
     lerep & "_" & Ledossier & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
     OpenAfterPublish:=True



End Sub

tu peux supprimer les cellules qui sont facultatives au debut dans la boucle

c'est plus facile d'un coup sans toutes ces shapes

 

[crazyguismo]

Franchement merci, j'ai finalement réussi.

Mais dit moi je veux essayer d'envoyer un mail via un bouton, j'ai effectuer ce code

Dim fichier As Variant
fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
MsgBox fichier
Dim mamessagerie As Object
Dim monmessage As Object
Set mamessagerie = CreateObject("Outlook.Application")
Set monmessage = mamessagerie.createitem(0)
monmessage.To = "adresse1"
'monmessage.cc = "adresse1"
monmessage.attachments.Add fichier
monmessage.Subject = "Voici, une demande d'intervention"
contenu = "Bonjour,"
contenu = contenu & Chr(10) & Chr(13)
contenu = contenu & "Ci-joint votre document."
monmessage.body = contenu
Set mamessagerie = Nothing
MsgBox "Votre mail ? bien ?t? envoyer"

End Sub

le msgbox me dit bien votre mail est envoyé
mais je ne recois rien, du coup il doit y avoir une erreur, peux tu m'aiguiller.

 

[patricktoulon]

re
non mais sérieux ???
tu va poster a chaque ligne de code ?? 😳 🙄

et le send il est ou???????????
puré tu a des 100 aines d'exemples sur le forum sert toi du moteur de recherche