userform

E

Eric C

Guest

• 23 Septembre 2004

• #2

Bonjour le forum
Bonjour Chris 54

J'ai remplacé ta ListBox par un TextBox. Dans les cellules "a produire" tu mets un s entre les "croches" pour que que cela donne Voiture(s) ou camion(s) ou tu places une conditions avec si la valeur de la cellule B5 (par ex) est gale à 0 ou 1 alors voiture sinon voitures.

Bon le code :

Private Sub UserForm_activate()
TextBox1.Value = Sheets("chaine").Range("B5").Value & " " & Sheets("chaine").Range("C5").Value
End Sub

@ ++ Eric C

 

Vote positif 0 Vote négatif

H

Hervé

Guest

• 23 Septembre 2004

• #3

bonjour

en pièce jointe

salut
Hervé

 

Pièces jointes

• chainedeprod1.zip

  13.6 KB · Affichages: 22

Vote positif 0 Vote négatif

E

Eric C

Guest

• 23 Septembre 2004

• #4

Re bonjour le forum
Re bonjour Chris 54, bonjour Hervé

Rien à redire, j'avais survolé le post et pensais qu'il y avait plusieurs chaînes de production. Heureusement que des personnes attentives sont présentes sur le forum.
Bonne fin d'après midi.
@ ++Eric C

 

Vote positif 0 Vote négatif

H

Hervé

Guest

• 23 Septembre 2004

• #5

re

plein de chose a redire :

Comment déclarer en variable public le caption du shapes pour eviter le stockage en "e1". je n'ai pas su faire.

salut
hervé

 

Vote positif 0 Vote négatif

C

chris 54

Guest

• 23 Septembre 2004

• #6

bonjour Eric et Hervé
excellent travail c'est ce qu'il me fallait
merci à vous deux
bonne soirée...
chris

 

Vote positif 0 Vote négatif

C

chris 54

Guest

• 23 Septembre 2004

• #7

juste une dernière question peux tu me dire comment rajouter d'autres chaines ...
j'ai essayé mais ...
merci en attendant

 

Vote positif 0 Vote négatif

H

Hervé

Guest

• 23 Septembre 2004

• #8

re

si par chaines tu entends les données en feuille chaine tu rajoutes à la suite les chaine 1 et 2.

Si tu parles d'une chaine 3 ou 4 ou plus tu dessines ton sharpes (rectangle, cercle...) et tu lui affecte la macro :


Sub ellipse5_QuandClic() (a adapter suivant ton dessin)
ActiveSheet.Shapes(2).Select (le numero (ici 2) à changer suivant l'ordre de création des dessins.
Range("e1").Value = Selection.Caption
UserForm1.Show
End Sub


salut
Hervé

 

Vote positif 0 Vote négatif

E

Eric C

Guest

• 23 Septembre 2004

• #9

Re le forum
Re bonjour Chris54, Re bonjour Hervé

Ben j'ai cherché de mon côté et j'ai rien trouvé non plus pour le stockage.
Si c'est une question d'esthétique, dans la case E1 tu fais un click droit / Format Cellules / Personnalisée / Tu vires Standart et tu places 3 points virgule ;;; et tu valides (Sur un conseil d'Ândré que je salue au passage). La cellule sera transparente d'inscription.
@ ++ Eric C

 

Vote positif 0 Vote négatif

M

myDearFriend

Guest

• 23 Septembre 2004

• #10

Bonjour tout le monde,

Hervé, pour déclarer en variable publique le caption du shapes (pour eviter le stockage en "e1"), il suffit de mettre dans le Module1 :

Option Explicit
Public Memoire As String '---> niveau module

Sub Rectangle1_QuandClic()
ActiveSheet.Shapes(1).Select
Memoire = Selection.Caption
UserForm1.Show
End Sub

puis, dans le code du USF :

...
UserForm1.Caption = "a produire sur " & Memoire
...
If Sheets("chaine").Range("a" & i).Value = Memoire Then
...


Tu déclares la variable "Memoire" comme Public au début d'un module de code et ainsi sa portée s'étend sur toute l'application.


Cordialement,
Didier_mDF

 

Vote positif 0 Vote négatif

H

Hervé

Guest

• 23 Septembre 2004

• #11

bonsoir

merci eric c pour ta combine.
merci didier, j'ai enfin compris les variables public.


salut
Hervé

 

Vote positif 0 Vote négatif

C

chris 54

Guest

• 24 Septembre 2004

• #12

Bonjour à vous 3
merci pour tout cet excellent travail je vais adapter celà
à bientôt
chris

 

Vote positif 0 Vote négatif

E

Eric C

Guest

• 24 Septembre 2004

• #13

Bonjour le forum
Re bonjour Hervé & Chris54, bonjour Didier

Toujours égal à toi même. Merci pour ton EXCELlente contribution.
@ ++ Eric C

 

Vote positif 0 Vote négatif