Probleme macro

bonjour a tous

j'ai rajouté de renseignement sur mon classeur et depuis que j'ai touché a la macro (au niveau "ajout client" plus rien ne marche !!!

Private Sub UserForm_Initialize() 'Liste des 231 pays de la feuille "Pays"

For i = 1 To 231

ComboBox_Pays.AddItem Sheets("Pays").Cells(i, 1)

Next

Private Sub UserForm_Initialize() 'Liste solution de la feuille "connu_par"

End Sub

For i = 1 To 15

ComboBox_connu_par.AddItem Sheets("connu_par").Cell(i, 1)

Next

Private Sub UserForm_Initialize() 'Liste solution de la feuille "vous_etes_la_en"

For i = 1 To 16

ComboBox_connu_par.AddItem Sheets("Vous_etes_la_en").Cell(i, 1)

Next

End Sub

es ce que vous voyez l'erreur ou je vous envoye tout

merci guigui

Bonjour,

L'initialisation d'un UserForm ne peut accepter qu'une seule procédure....

Essaie ainsi :

Private Sub UserForm_Initialize()
Dim I As Integer
For I = 1 To 231 'Liste des 231 pays de la feuille "Pays"
    ComboBox_Pays.AddItem Sheets("Pays").Cells(I, 1)
Next I
For I = 1 To 15 'Liste solution de la feuille "connu_par"
    ComboBox_connu_par.AddItem Sheets("connu_par").Cell(I, 1)
Next I
For I = 1 To 16 'Liste solution de la feuille "vous_etes_la_en"
    ComboBox_connu_par.AddItem Sheets("Vous_etes_la_en").Cell(I, 1)
Next
End Sub

PS, à l'avenir, pense à utiliser la balise Code

Bon W-E

merci mais ca n'a pas l'air de marcher

voici tout le fichier pour vous rendre compte

merci

guigui

ps: c'est quoi la balise Code

Re-,

La balise Code, c'est le 4ème bouton, en haut, qui te permet de mettre tes codes dans un fil, et facilement recopiable....

Dans l'initialisation de ton USF, je te conseille vivement de regarder le nom de tes onglets, et de comparer avec les noms inscrits dans tes codes....

Mais également, de vérifier les différents "Cell" (pour ma part, j'écrirai "Cells(I,1)) avec un "s", à la fin

Bon courage

merci beaucoup pour tous ces conseils

je vais essayé ...(en passent beaucoup de tps) a corriger les erreurs

je vous tient au courant

a bientot

guigui

Bonjour

Sur ce fichier, j'ai regroupé toutes tes listes sur une feuille Listes

J'ai ensuite nommé chaque liste (de l'ancien nom des feuilles), puis j'ai utilisé la propriète Rowsource de chaque Combo pour y mettre les noms correspondant.

Suite de quoi l'Useform fonctionne normalement.

Ah! J'oubliais. Le Code réduit à son expression mini

Private Sub UserForm_Initialize()
End Sub

Cordialement

je n'y arrive pas est je pense que ce n'ais pas de mon niveau ....

ce que j'ai fait je l'ai recopier !

si une personne peut me faire marcher ce tableau se serait parfait et mon week-end serait parfait

a bientot

guigui

Merci Amadéus

vous etes encore une fois venu finir mon travail ...

j'ai beaucoup a apprendre sur ce forum et je vous remercie tous de le faire vivre "jour et nuit" pour les personnes qu'il patinent.

je vais essayer mais ca doit etre bon

encore milles merci

guigui

re ;

encore une erreur vba

quand j'ajoute un client avec le bouton , la derniére ligne(Vous etes en) ne se copie pas sur l'onglet "base client"

et il me met en jaune la ligne dans la macro "Cells(no_ligne, 10) = ComboBox_vous_etes_la_en.Value"

merci d'avance

guigui

c'est bon j'ai trouvé ...le haut de la colone n'avait pas le bon nom

a bientot guigui

Bonjour

Sur cette ligne mise en jaune, enlèves donc le T

sur

"Cells(no_ligne, 10) = TComboBox_vous_etes_la_en.Value"

Cordialement

Bonjour

je vois que tu as cloturé le post.

Cependant, j'attire ton attention sur 2 ou 3 erreurs dans le Code du dernier fichier.

Ces erreurs ont pour effet de ne pas reporter correctement la saisie d'un nouveau client dans l'Userform

En effet, après la ligne

 Cells(no_ligne, 7) = TextBox_telephone.Value

Les numéros de colonnes sont erronès.

La correction est;

Cells(no_ligne, 8) = TextBox_adresse_mail.Value
        Cells(no_ligne, 9) = ComboBox_connu_par.Value
        Cells(no_ligne, 10) = ComboBox_vous_etes_la_en.Value

        'insertion de la formule de concaténation Nom et prénom
        Cells(no_ligne, 11).FormulaR1C1 = "=Clients&CHAR(160)&Prénoms"

Par ailleurs, tu peux supprimer toutes les formules de la colonne K de la feuille base lients qui renvoient #N/A puisque la dernière ligne de code ci-dessus inscrit la formule à chaque saisie.

Cordialement

Bonsoir,

Juste pour apporter une précision concernant l'alimentation des ComboBox.

En effet, il est préférable d'utiliser la méthode "AddItem", plutôt que la méthode RowSource, qui est en général "Source" d'ennui.

Ceci, de la part des plus grands Maîtres Excelliens....

RowSource fait référence à des cellules, et si on supprime la 1ère cellule d'une plage nommée, par exemple, le nom devient également erroné, d'où un problème à l'initialisation.

On peut également charger la liste dans un tableau ou Dictionnaire (Scripting.Dictionary), afin d'avoir la liste sans doublons, et alors d'utiliser la propriété "List" du Combobox.

Mais ceci, ce n'est qu'un avis.

Bonne soirée à tous, et bon W-E

merci a tous pour ces infos

je n'avais pas vu pour les numérotations dans la macro (merci Amadéus)

et pour cousinhub... c'est du chinois ce que tu m'expliques dans le dernier post je vais me pencher pour faire une formation pour travailler avec la macro

es ce que vous connaissez un bon support sur le site ?

merci bonne soirée a tous

guigui