VB Formulaire de contact, code

Version imprimable

22/06/2015, 15h44
Esther08

2 pièce(s) jointe(s)

VB Formulaire de contact, code

Bonjour j'ai crée un formulaire de contact avec visual basic 2007 mais je rencontre un problème avec mon code. voici une capture de mon formulaire: Pièce jointe 181236

1ier problème: ma combo "civilité" ne se remplie pas. L'on doit pouvoir choisir M, Mme ou Melle.

2e problème: au moment ou je clique "nouveau contact" une fenêtre s'ouvre et me dit: "erreur d'éxécution '1004'; erreur définie par l'application ou par l'objet", et sur cette même fenêtre j'ai 3 choix "fin", "débogage" et "aide".

Quand je clique sur "aide", voici ce qui s'affiche: Pièce jointe 181238
Le commentaire complet en j'aune c'est : "pour placer le nouvel enregistrement à la première ligne de tableau non vide"

Quelqu'un a t-il une solution ?
c'est mon maître de stage qui m'a donné ce travail

Merci

Bonjour,

Pour la première ligne vide fait plutôt ceci :
Code:

1 2 L = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row + 1
et pour le ComboBox sur "Initialize" du formulaire (adapter le nom du ComboBox) :
Code:

1 2 3 4 5 6 7 8 Private Sub UserForm_Initialize() ComboBox1.AddItem "Mr" ComboBox1.AddItem "Mme" ComboBox1.AddItem "Melle" End Sub
Hervé.

22/06/2015, 16h36
Esther08

1 pièce(s) jointe(s)

oui, mais...

pour mon initialize j'ai noté ceci: Pièce jointe 181246

dois-je tout supprimer alors ?

Merci pour la première solution, sa fonctionne !!!!!
22/06/2015, 16h46
Theze
Re,

Cette ligne de code doit fonctionner, il n'y a pas de raison !
Code:

1 2 ComboBox2.List() = Array("", "Mr", "Mme", "Melle")
Par contre, au lieu de poster des images, poste directement le code, pour ça, tu clique sur le bouton # qui va ajouter les balises code et il ne te reste plus qu'à poser ton code entre ces balises.

Hervé.
22/06/2015, 16h52
Esther08

Merci

D'accord merci beaucoup. Je me suis inscrit il y a même pas 2 heures ici alors je sais pas trop comment ça marche.
Merci pour vos réponses

Esther
22/06/2015, 17h17
Theze

mais ce n'est pas un reproche, c'est juste que quand tu pose un code entre les balises, on peut le copier pour faire des tests plutôt que de tout le réécrire.
Tu as re-testé et le combobox ne se rempli toujours pas ?

Hervé.
22/06/2015, 19h23
Esther08

Non toujours pas

Ah non non m'a phrase n'était pas du tout dans le sens négatif :)
Non ma combo ne se rempli pas :(

Mais mon maitre de sttage m'a dit de regarder au niveau de ma cellule (du doc excel)... Il m'a parlé de variable.... c'était pas très claire
23/06/2015, 06h47
Theze

Bonjour,

Là, je ne comprends pas pourquoi ça ne fonctionne pas ?
Peux-tu poster ton fichier ?

Hervé.

heu

Bonjour

Code:

1
2
3
4
5
6
Dim tablo       'variable
ComboBox2.List = Array("Mr", "Mme", "Melle")
With Sheets("Feuil1")
tablo = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
Me.ComboBox1.List = tablo
End With

point barre;)

edit :
pour l'enregistrement du nouveau contact tu pourrais faire comme suit :

Code:

1
2
3
4
5
Private Sub Commandbutton1_Click()
Dim ligne
ligne = Array(ComboBox1, combobox2, TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7)
Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, UBound(ligne)) = ligne
End Sub

;)

23/06/2015, 14h57
Esther08

1 pièce(s) jointe(s)

voici mon fichier

Voici mon fichier
23/06/2015, 15h07
patricktoulon

re

déjà c'est pas étonnant tu n'a pas de sheets("Feuil1") la bonne blague !!!!
a la limite je mettrais

Code:

set ws=sheets(1)

le copier coller ca n'a pas que du bon hein!!!!
23/06/2015, 15h18
Esther08

Ah oui, mais

Oui c'est vrai en fait j'avais modifié le nom de ma feuille pour une manip que je voulais essayer mais j'ai oublié de remettre "Feuill1".
J'ai remis le nom initiale de ma feuille mais ça ne fonctionne toujours pas...
Toutes les colonnes se remplissent sauf celle de "Civilité" !
23/06/2015, 15h19
patricktoulon

re

et en plus ton fichier est corrompu tu a du changer le nom d'un des modules et ca a mal enregistré
résultat fichier inutilisable
je t'en fait un propre et je reviens
23/06/2015, 15h27
luddoo

Bonjour,

Je trouve que ce lien http://www.developpez.net/forums/d14...-d-formulaire/ est intéressant et peut répondre à tes besoins.
23/06/2015, 16h31
Theze

Effectivement, ton fichier a un problème (le formulaire) car le code de la proc "Initialize" n'est pas exécuté ! Si tu fait F8, la form s'affiche tout de suite ce qui n'est pas normal et dans ce cas, le combobox ne peut pas être rempli.
Dans ce cas, tu crée un autre formulaire que tu construis à l'identique, tu récupère le code du premier que tu supprime ensuite et ça devrait marcher !

Hervé.

1 pièce(s) jointe(s)

re code exemple de code et exemplaire fichier

bon voila un exemple
voila le code dans le userform

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub ComboBox1_Change()
    For i = 3 To 9
        Me.Controls("TextBox" & i - 2) = Sheets("Formulaire").Cells(ComboBox1.ListIndex + 2, i)
    Next
    Me.ComboBox2 = Cells(ComboBox1.ListIndex + 2, 2)
    Me.modifier.Enabled = True
End Sub
Private Sub CommandButton1_Click()
    Unload Me
End Sub
Private Sub modifier_Click()
    ligne = ComboBox1.ListIndex + 2
    enregistrement ligne
    modifier.Enabled = False
End Sub
Private Sub nouveau_Click()
    ligne = Sheets("Formulaire").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    enregistrement ligne, True
End Sub
 
Private Sub UserForm_Initialize()
    liste
End Sub
 
Sub enregistrement(ligne, Optional Lnew = False)
    first = IIf(Lnew, Cells(ligne, 1).Offset(-1, 0).Value + 1, ComboBox1.Value)
    Dim CONTct
    With Me
        CONTct = Array(first, .ComboBox2.Value, .TextBox1.Text, .TextBox2.Text, .TextBox3.Text, .TextBox4.Text, .TextBox5.Text, .TextBox6.Text, .TextBox7.Text)
    End With
    Sheets("Formulaire").Cells(ligne, 1).Resize(1, UBound(CONTct)) = CONTct
    liste
End Sub
Sub liste()
    Me.ComboBox2.List = Array("Mr", "Mme", "Melle")
    Me.ComboBox1.List() = Sheets("Formulaire").Range("A2:A" & Sheets("Formulaire").Cells(Rows.Count, 1).End(xlUp).Row).Value
End Sub

et comme je l'ai refait a partir de la prise de vue au cas ou les contrôles n'auraient pas le même nom voila un exemplaire du fichier