Sujet Précédent Sujet Suivant

Macro excel

pascal83400 Messages postés 6 Date d'inscription mercredi 15 avril 2009 Statut Membre Dernière intervention 25 juillet 2014 - 21 avril 2009 à 15:03
pascal83400 Messages postés 6 Date d'inscription mercredi 15 avril 2009 Statut Membre Dernière intervention 25 juillet 2014 - 24 avril 2009 à 10:45

Bonjour,

J'ai besoin d'aide concernant un formulaire excel 2007.
Je suis arrivé à faire un formulaire de saisie, mais je ne connais pas les codes pour certains controles.

Je m'explique enfin je vais essayer.

J'ai un formulaire qui me permets de rentrer données dans une feuille excel.
Mais je voudrais :
1) que ces données arrivent directement dans la feuille du fournisseur par rapport à son N°
2) que à chaque saisie les données se mettent à la ligne suivante même si je laisse des cellules vides (aujourd'hui ma saisie comble toute les cellules vide qui se trouvent au dessus de la ligne en court ) ,
Bon déjà si j'arrive à cela dans un premier temps, je pourrai avancer pour la suite.

Merci pour votre aide, je suis novice et je découvre depuis 8 jours les pouvoirs d'excel.

ci-joint mon fichier
[file:///D:/PROPOSITIONS%20CLIENTS/Pascal/Formulaire%20saisie%20fournisseur/ file:///D:/PROPOSITIONS%20CLIENTS/Pascal/Formulaire%20saisie%20fournisseur/]
Salutations

Pascal

A voir également:

7 réponses

Réponse 1 / 7

CSIBern Messages postés 44 Date d'inscription dimanche 3 décembre 2000 Statut Membre Dernière intervention 21 mai 2014
21 avril 2009 à 15:39

Salut Pascal,

Je commence à avoir un peu d'expérience en matière de programmation VBA, je serais ravi de t'en faire profiter.

Cependant, je ne comprends pas vraiment ce que tu veux et je n'arrive pas à charger ton fichier joint. Pourrais-tu réessayer de le renvoyer.

Merci

CSIBern

Réponse 2 / 7

pascal83400 Messages postés 6 Date d'inscription mercredi 15 avril 2009 Statut Membre Dernière intervention 25 juillet 2014
21 avril 2009 à 16:10

Je te remercie pour ton aide, je suis plus que novice.
Le peu que j'ai créé c'est à travers les forums les bouquins, bon en bref je galère.
Mon fichier est sous excel 2007.
Je ne sais pas pourquoi il n'est pas valide.
Le plus simple donne moi ton mail je te le fait suivre avec des explications.

Bon je vais essayer de le remettre en lien.

A+

Salutations.

Pascal

[file:///D:/PROPOSITIONS%20CLIENTS/Pascal/Formulaire%20saisie%20fournisseur/Fiche%20de%20travail%20fournisseurs%202.xlsm file:///D:/PROPOSITIONS%20CLIENTS/Pascal/Formulaire%20saisie%20fournisseur/Fiche%20de%20travail%20fournisseurs%202.xlsm]

Réponse 3 / 7

pascal83400 Messages postés 6 Date d'inscription mercredi 15 avril 2009 Statut Membre Dernière intervention 25 juillet 2014
22 avril 2009 à 08:16

bonjour,

Je pense que je ne sais pas mettre en ligne mon fichier ??

Je te donne mon mail pour l'échange du fichier pascal.habault@wanadoo.fr.

Salutations

Pascal

Réponse 4 / 7

pascal83400 Messages postés 6 Date d'inscription mercredi 15 avril 2009 Statut Membre Dernière intervention 25 juillet 2014
22 avril 2009 à 16:35

Bonjour,

J'ai avancé un petit peu dans ma macro, mais dur dur !!!

Je cherche le code pour que la selection dans ma listbox sert à déclencher le chemin de la saisie de mes données.

J'explique ...

J'ai un formulaire qui dois se vider dans un onglet appelé fournisseur 1 ou fournisseur 2   ou fournisseur 3 ...
pour se faire j'ai fait un menu déroulant qui fait référence à ces onglets.
Et je voudrais sélectionner dans le menu déroulant l'onglet fournisseur dans le quel je veux les données.
Mais voila je ne connais pas le code de la macro.
j'ai commencé avec ces codes, mais je suis complètement perdu.

Merci pour votre aide.

Private Sub cmdQUITTER_Click()
Unload Me

End Sub

Private Sub cmdVALIDER_Click()

' Mise en place des valeurs saisies
'dans l'onglet fournisseur
'à l'aide de la selection du menu déroulant
'le nom selectionné dans la listbox sert à selectionner l'onglet des données

    Sheets("fournisseur 1").Range("A1048576").End(xlUp).Offset(1, 0).Value = Aconverti
    Sheets("fournisseur 1").Range("B1048576").End(xlUp).Offset(1, 0).Value = Bconverti
    Sheets("fournisseur 1").Range("C1048576").End(xlUp).Offset(1, 0).Value = Cconverti
    Sheets("fournisseur 1").Range("D1048576").End(xlUp).Offset(1, 0).Value = Dconverti
    Sheets("fournisseur 1").Range("E1048576").End(xlUp).Offset(1, 0).Value = Econverti
    Sheets("fournisseur 1").Range("G1048576").End(xlUp).Offset(1, 0).Value = Gconverti
    Sheets("fournisseur 1").Range("H1048576").End(xlUp).Offset(1, 0).Value = Hconverti
    Sheets("fournisseur 1").Range("I1048576").End(xlUp).Offset(1, 0).Value = Iconverti
    Sheets("fournisseur 1").Range("J1048576").End(xlUp).Offset(1, 0).Value = Jconverti
    Sheets("fournisseur 1").Range("K1048576").End(xlUp).Offset(1, 0).Value = Kconverti
    Sheets("fournisseur 1").Range("L1048576").End(xlUp).Offset(1, 0).Value = Lconverti
    Sheets("fournisseur 1").Range("M1048576").End(xlUp).Offset(1, 0).Value = Mconverti
    Sheets("fournisseur 1").Range("N1048576").End(xlUp).Offset(1, 0).Value = Nconverti
    Sheets("fournisseur 1").Range("P1048576").End(xlUp).Offset(1, 0).Value = Pconverti
    Sheets("fournisseur 1").Range("S1048576").End(xlUp).Offset(1, 0).Value = Sconverti
    Sheets("fournisseur 1").Range("T1048576").End(xlUp).Offset(1, 0).Value = Tconverti
    Sheets("fournisseur 1").Range("U1048576").End(xlUp).Offset(1, 0).Value = Uconverti
    Sheets("fournisseur 1").Range("V1048576").End(xlUp).Offset(1, 0).Value = Vconverti
    Sheets("fournisseur 1").Range("W1048576").End(xlUp).Offset(1, 0).Value = Wconverti
    Sheets("fournisseur 1").Range("X1048576").End(xlUp).Offset(1, 0).Value = Xconverti


    ' Conversion en NOMPROPRE'

    Bconverti = Application.WorksheetFunction.Proper(Me.TextBox2.Text)

    Gconverti = Application.WorksheetFunction.Proper(Me.TextBox6.Text)

    Lconverti = Application.WorksheetFunction.Proper(Me.TextBox11.Text)

' je voudrais que à chaque saisie je passe à la ligne suivante


    ' On décharge le formulaire
      Unload Me

    End Sub

' comment trier par ordre alphabetique les onglets car je vais en rajouter souvent

Public Sub UserForm_Initialize()

     For Each c In ActiveWorkbook.Sheets

          N°fournisseur.AddItem c.Name

     Next

End Sub

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

CSIBern Messages postés 44 Date d'inscription dimanche 3 décembre 2000 Statut Membre Dernière intervention 21 mai 2014
23 avril 2009 à 07:58

Salut Pascal,

Je ne peux pas de garantir que je trouverai une solution à ton problème, mais si tu arrives à m'envoyer ton fichier excel sur mon e-mail, je verrai certainement mieux comment t'aider.

Voici mon mail : [mailto:dcomment@gmail.com dcomment@gmail.com].

Réponse 6 / 7

CSIBern Messages postés 44 Date d'inscription dimanche 3 décembre 2000 Statut Membre Dernière intervention 21 mai 2014
23 avril 2009 à 22:06

Je me permets de remettre ton message pour que ma réponse ait un sens :
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><meta name="ProgId" content="Word.Document" /><meta name="Generator" content="Microsoft Word 12" /><meta name="Originator" content="Microsoft Word 12" /><link rel="File-List" href="file:///C:%5CDOCUME%7E1%5CAdmin%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_filelist.xml" /><link rel="themeData" href="file:///C:%5CDOCUME%7E1%5CAdmin%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_themedata.thmx" /><link rel="colorSchemeMapping" href="file:///C:%5CDOCUME%7E1%5CAdmin%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_colorschememapping.xml" /><style></style>

A)
Je voudrais créer cette macro

1)
Je pars de la saisie via mon
formulaire.

2)
 Dans la listbox (Nom fournisseur) je
sélectionne l’onglet correspondant au fournisseur A, B ou C … qui va permettre
d’envoyer les données dans sa fiche.

3)
Je remplie les textbox dont j’ai besoin, mais pas tous.

4)
Les données sont rangées
automatiquement à la ligne dans la fiche
fournisseur et automatiquement triées
par ordre alphabétique et que la première lettre soit en majuscule pour les
cellules au format texte.

B)
Je voudrais que les onglets se
classent automatiquement par ordre alphabétique quand je rajoute des feuilles.

Tes points A.1 et A.2 sont déjà correctes. En
tout cas, ils fonctionnent chez moi.

Pour les points A.3 et A.4, il faut tout
d’abord trouver quel est la prochaine ligne libre. Pour ça je t’ai mis 3 lignes
que j’ai l’habite d’utiliser pour ça. Pour l’ordre alphabétique, ne te fatigue
pas trop, les macros enregistrées t’aident bien, tu peux les adaptées et les
alléger après.

Je ne suis pas sûr de comprendre ton point B.
Si tu comptes faire que le programme ajoute une page si elle n’existe pas, il
va falloir utiliser une ComboBox à la place de la ListeBox. Dans cette
dernière, sauf erreur, tu ne peux pas insérer un élément qui n’y existe pas.
Ensuite, pour mettre dans l’ordre alphabétique, il va falloir, en théorie,
récupérer les noms des onglets, les passer dans une feuille de calcul (tu as
assez de cellules vides dans ta feuille formulaire pour les mettre), les trier
comme ci-dessus puis replacer les pages avec un truc du style sheets(nomdelafeuille).move
after:=sheets(nomdelafeuillequiprécède).

Bonne chance

David

P.S. Le fichier Excel je te l'ai envoyé par mail

Réponse 7 / 7

pascal83400 Messages postés 6 Date d'inscription mercredi 15 avril 2009 Statut Membre Dernière intervention 25 juillet 2014
24 avril 2009 à 10:45

Bonjour,

Un grand merci pour ton aide.
Je vais décortiquer tout cela afin de comprendre les codes.
Je te ferai suivre mes avancées.

Salutations.

Pascal

Discussions similaires

Tester si une macro est en cours d execution

supprimer un bouton d'une feuille excel

Supprimer un bouton après avoir cliqué dessus

Activer macros outlook

EXCEL, faire l'inverse tangente atan pour avoir une valeur en degré minute

Votre réponse

Discussions similaires