Probleme combo et selection

azerty67 · 29 Mars 2008

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

azerty67 · 8 Avril 2008

Re : Probleme combo et selection

skoobi à dit:
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 · 8 Avril 2008

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 😕

Probleme combo et selection

azerty67

XLDnaute Occasionnel

Pièces jointes

azerty67

XLDnaute Occasionnel

skoobi

XLDnaute Barbatruc

Discussions similaires

Probleme combo et selection

azerty67

XLDnaute Occasionnel

Pièces jointes

azerty67

XLDnaute Occasionnel

skoobi

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency