Probleme combo et selection

[azerty67]

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

 

[JCGL]

Re : Probleme combo et selection

Re,

Jean-Marc : ne monte pas une usine à gaz....

Si je puis me permettre : XL est un tableur, demande lui ce qu'il est capable de faire (bien qu'il soit surement possible de le faire)

A+

 

[azerty67]

Re : Probleme combo et selection

Re,

Jean-Marc : ne monte pas une usine à gaz....

Si je puis me permettre : XL est un tableur, demande lui ce qu'il est capable de faire (bien qu'il soit surement possible de le faire)

A+

Merci JC,

Tu sais dans la lancée parfois on voudrait des choses sans penser comme tu le dis que ce n'est qu'un tableur. Mais quel puissance alors ça insite à aller plus loin....

Amicalement,

 

[skoobi]

Re : Probleme combo et selection

Oui quand je crée un nouvelle fiche:
Je rentre un nouveau nom de client, tout se passe bien pour la nouvelle fiche, la feuille s'appelle bien par le nom que je lui ai donné, par contre le titre en wordart dans la feuille n'est pas le bon

Vient du fait que j'ai ce code dan l'usf "ajouter" mais unique??

Sheets("Natzwiller").Select
Sheets("Natzwiller").Copy before:=Sheets(1)
DERLIG = Range("a65536").End(xlUp).Row
Rows("3:" & DERLIG).Select
Selection.ClearContents
ActiveSheet.Shapes("WordArt 6").Select
Selection.ShapeRange.TextEffect.Text = UCase(ComboBox2.Value)
ActiveSheet.Name = ComboBox2.Value
Range("a1").Select
End If
Application.ScreenUpdating = False

Comment reproduire le nom du nouveau client ?

Merci

Tu fais référence à un Shape qui n'a pas le même nom d'une feuille à une autre.....
remplace:

     ActiveSheet.Shapes("WordArt 6").Select
    Selection.ShapeRange.TextEffect.Text = UCase(ComboBox2.Value)

par:

For n = 1 To ActiveSheet.Shapes.Count
    If ActiveSheet.Shapes(n).TopLeftCell.Address = "$A$1" Then
        ActiveSheet.Shapes(n).TextEffect.Text = ComboBox2.Value
    End If
Next

Edit: je confirme JC, c'est possible

 

[azerty67]

Re : Probleme combo et selection

Tu fais référence à un Shape qui n'a pas le même nom d'une feuille à une autre.....
remplace:

     ActiveSheet.Shapes("WordArt 6").Select
    Selection.ShapeRange.TextEffect.Text = UCase(ComboBox2.Value)

par:

For n = 1 To ActiveSheet.Shapes.Count
    If ActiveSheet.Shapes(n).TopLeftCell.Address = "$A$1" Then
        ActiveSheet.Shapes(n).TextEffect.Text = ComboBox2.Value
    End If
Next

Edit: je confirme JC, c'est possible

Et bien chapeau Skoobi !!

Je n'ai plus qu'à déchiffrer

Et encore tous mes remerciements ....

Jmarc

 

[JCGL]

Re : Probleme combo et selection

Re,

Skooby : Tu ne devrais pas encourager notre ami à monter une usine à gaz arf. Je n'ai pas testé ton code mais j'ai pleinement confiance

Bonne nuit à tous

PS : Si vous mettez votre réveil pour demain matin : changement d'heure

 

[skoobi]

Re : Probleme combo et selection

Je n'ai plus qu'à déchiffrer

pour n = 1 à nombre de shapes
Si l'addresse du shape (n) est en A1 alors....

 

[skoobi]

Re : Probleme combo et selection

Re,

Skooby : Tu ne devrais pas encourager notre ami à monter une usine à gaz arf. Je n'ai pas testé ton code mais j'ai pleinement confiance

Bonne nuit à tous

PS : Si vous mettez votre réveil pour demain matin : changement d'heure

Je pense que lorsqu'il en sera au stade de la centrale nucléaire, j'arrêterai

 

[azerty67]

Re : Probleme combo et selection

Re,

Skooby : Tu ne devrais pas encourager notre ami à monter une usine à gaz arf. Je n'ai pas testé ton code mais j'ai pleinement confiance

Bonne nuit à tous

PS : Si vous mettez votre réveil pour demain matin : changement d'heure

JC, ce n'est pasune usine à gaz tu sais...

Amicalement,
Jmarc

 

[azerty67]

Re : Probleme combo et selection

Je pense que lorsqu'il en sera au stade de la centrale nucléaire, j'arrêterai

Au moins j'apprend c'est déjà ça

 

[azerty67]

Petit souci

Au moins j'apprend c'est déjà ça

Bonjour à tous,

Je reviens avec mon classeur de gestion. J'ai une petite modif à faire mais je ne sais si cela est possible.

Voilà, je voudrais lorsque je saisis des commandes par l'intermédiare du formulaire que les n° de commandes se recopient dans le tableau situé plus en bas dans la cellule correspondante "N° de commande".

Par contre j'ai une condition je voudrais que seules les "N° commandes" affectées de couts productifs soient recopiées et pas les autres.

En somme, les n° commandes affectées de "Frais de régie" ne doivent pas être recopiées dans le tableau récapitulatif des Frais productifs mensuels.

Mais je ne sais si cela est possible... Merci pour vos conseils

Jmarc

 

[skoobi]

Re : Probleme combo et selection

Bonjour,

J'ai également modifié le code du bouton "valider" (regarde les commentaires).
Plus une petite correction, les nouvelles commandes allaient se mettre directement dans les coûts productifs.
Pense à supprimer les liens (ex.: en A85: =A3) dans toutes les feuilles.

 

[azerty67]

Re : Probleme combo et selection

Bonjour,

J'ai également modifié le code du bouton "valider" (regarde les commentaires).
Plus une petite correction, les nouvelles commandes allaient se mettre directement dans les coûts productifs.
Pense à supprimer les liens (ex.: en A85: =A3) dans toutes les feuilles.

J'ai retiré les liens du tableau du bas mais je reçois différentes erreurs lors de saisie de nlles commande ou modification de commandes déjà existantes.

Les erreurs renvoie à ces lignes de code:

Sheets("Natzwiller").Select

If TextBox9 = "" Then [A85].End(xlDown).Offset(1, 0).Value = ComboBox4.Value

Cells(l, 2).Value = ComboBox2.Value

Tous le numéros de commande doivent être recopiés dans le tableau du bas sauf ceux qui possèdent des "Frais de régie"

J'ai laissé un commentaire sur les feuilles

Merci encore,
Jmarc

 

[skoobi]

Re : Probleme combo et selection

Pour Sheets("Natzwiller").Select, cela provient du fait que la feuille "Natzwiller" n'existe tout simplement pas dans ce fichier test.
Remplace:
If TextBox9 = "" Then [A85].End(xlDown).Offset(1, 0).Value = ComboBox4.Value
par:
If TextBox9 = "" Then [A65536].End(xlUp).Offset(1, 0).Value = ComboBox4.Value

 

[azerty67]

Re : Probleme combo et selection

Pour Sheets("Natzwiller").Select, cela provient du fait que la feuille "Natzwiller" n'existe tout simplement pas dans ce fichier test.
Remplace:
If TextBox9 = "" Then [A85].End(xlDown).Offset(1, 0).Value = ComboBox4.Value
par:
If TextBox9 = "" Then [A65536].End(xlUp).Offset(1, 0).Value = ComboBox4.Value

BONJOUR Skoobi et à tous

ERREUR SUR LIGNE:

Cells(l, 2).Value = ComboBox2.Value

Lorsque je cree une commande en imputant des "frais de regie"..,

Merci encore
Jmarc

 

[skoobi]

Re : Probleme combo et selection

Bonsoir,

ERREUR SUR LIGNE:

Cells(l, 2).Value = ComboBox2.Value

Lorsque je cree une commande en imputant des "frais de regie"..,

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