Probleme combo et selection

azerty67

XLDnaute Occasionnel
Bonjour à tous,:)

Après maintes recherches sur le forum je ne trouve pas la soluce

Je voudrais d'une part lors de la saisie par l'usf "ajouter" que le numéro de commande soit recopié sur la feuille Data correspondante
Ex: n° de commande Natzwiller sur feuille DataNatzwiller, commande Espagne sur feuille DataEspagne et ainsi de suite.

Ensuite je voudrais remplir toutes les feuilles "Data...X" par l' usf "gerer", afin de saisir les montants des coûts pour chaque mois et ceci en fonction du client (j'ai rajouté une combo) et du numéro de commande. C'est pour cela que je voudrais recopier le n° de commande dans ces feuilles

En somme un seul usf pour "gerer" toutes les feuilles "Datas.." selon le client et le n° de commande

Sinon je suis obligé de creer un usf pour chaque client :(

Modifier également l'option nouvelle fiche si possible

Un grand merci à qui pourras m'aiguiller

Jmarc
 

Pièces jointes

  • essai1.zip
    38.5 KB · Affichages: 36
  • essai1.zip
    38.5 KB · Affichages: 33
  • essai1.zip
    38.5 KB · Affichages: 32

azerty67

XLDnaute Occasionnel
Re : Probleme combo et selection

Bonsoir,

tu n'aurais pas oublié de cocher l'option "Nouvelle Fiche" par hasard car cela se produit quand elle n'est pas coché....

:)Skoobi,

Je ne crée pas un nouveau client tel que :"Espagne, Paris... etc.

je saisis seulement une nouvelle commande dans un client déjà existant
et c'est là que le prob intervient

J'utiliserais seulement la coche si un autre Pays se rajoute.
Quand tu utilises la coche tu crée automatiquement une nouvelle feuille

Merci,
Jmarc
 

skoobi

XLDnaute Barbatruc
Re : Probleme combo et selection

Il y a quelque chose que je n'arrive pas à comprendre.
Pour définir la variable "l", tu te sers des boutons d'options.
Cependant, que ce soit pour une nouvelle fiche ou une nouvelle commande, la "ligne" sera toujours la dernière:

Code:
  If IsNumeric(ajouter.Label26.Caption) Then l = CInt(ajouter.Label26.Caption)  'ligne pour modifier
   Else: l = .[A2].End(xlDown).Row [B]'ligne pour nouvelle commande et nouvelle fiche[/B]
   End If
Et ceci:
Code:
  If IsNumeric(ajouter.Label26.Caption) Then l = CInt(ajouter.Label26.Caption)  'ligne pour modifier
je vois pas :confused:
 
Dernière édition:

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
315 194
Messages
2 117 159
Membres
113 024
dernier inscrit
herembourg