Besoin d'aide bug userform

[alfazoulou]

Bonjour le forum.
j'ai passé l'après midi d'hier à me prendre la tête à cause de ce ....... d'userform qui fonctionne normalement sauf si une cellule de la feuille précédente contient la fonction "Aujourd'hui".
L'userfom contient des textbox qui me permettent de saisir les coordonnées de clients, de renseigner un devis ou une facture et de completer une liste clients et un listbox qui présente les clients existants dans la liste et permet sur simple clic de compléter les textbox suivant le client choisi.
le probleme c'est que le fait de cliquer sur le listbox n'agit pas de la meme facon suivant si une cellule de la feuille précédente contient la fonction "Aujourd'hui"????😕
Pouvez vous m'aider ??

 

[BOCARAMEL]

Re : Besoin d'aide bug userform

Bonjour alfazoulou

rajoute

Private Sub ListBox1_Click()
TextBox1 = ListBox1

[COLOR="Red"]Dim x[/COLOR]
Sheets("base clients").Activate

sinon cela fonctionne trés bien chez moi

bocaramel

 

[alfazoulou]

Re : Besoin d'aide bug userform

Bonjour alfazoulou

rajoute

Private Sub ListBox1_Click()
TextBox1 = ListBox1

[COLOR="Red"]Dim x[/COLOR]
Sheets("base clients").Activate

sinon cela fonctionne trés bien chez moi

bocaramel

merci bocaramel mais cela ne change rien chez moi.
Je précise que le fait de cliquer sur le list box change que l'affichage du deuxième textbox alors qu'il devrait agir sur les autres aussi.
Tu ne vois pas d'ou pourrait provenir l'erreur, sachant que cela ne doit pas venir du code même de l'userform mais plutôt d'un conflit quelconque entre son exécution et les données contenues dans le classeur, formules, fonctions, noms etc... qui sont d'ailleurs très peu nombreuses.

 

[alfazoulou]

Re : Besoin d'aide bug userform

Je continue à chercher...
et en changeant certains noms comme ci dessous:
Range("nom").Value = Selection.Value
Range("civilité").Value = x.Offset(0, -1).Value
Range("prenom").Value = x.Offset(0, 1).Value
Range("adresse").Value = x.Offset(0, 2).Value
Range("cp").Value = x.Offset(0, 3).Value
Range("ville").Value = x.Offset(0, 4).Value

TextBox5 = Range("civilité").Value
TextBox1 = Range("nom").Value
TextBox4 = Range("prenom").Value
TextBox3 = Range("adresse").Value
TextBox2 = Range("cp").Value
TextBox6 = Range("ville").Value

au lieu de:

Range("bcn").Value = Selection.Value
Range("bcc").Value = x.Offset(0, -1).Value
Range("bcp").Value = x.Offset(0, 1).Value
Range("bca").Value = x.Offset(0, 2).Value
Range("bccp").Value = x.Offset(0, 3).Value
Range("bcv").Value = x.Offset(0, 4).Value

TextBox5 = Range("bcc").Value
TextBox1 = Range("bcn").Value
TextBox4 = Range("bcp").Value
TextBox3 = Range("bca").Value
TextBox2 = Range("bccp").Value
TextBox6 = Range("bcv").Value
l
Le problème disparait, mes textbox sont mis à jour Mais...
si je clique sur le bouton "OK" ça provoque une erreur et le programme se ferme !!
Serai ce un problème de compatibilité entre excel 2003 et windows 7 que j'ai installé il y a peu ??
quelqu'un pourrait il m'éclairer SVP ??

 

[alfazoulou]

Re : Besoin d'aide bug userform

J'ai oublié de joindre le nouveau fichier...

 

[Bebere]

Re : Besoin d'aide bug userform

bonjour AlfaZoulou,Bocaramel
dans propriétés,supprimer controlsource des textbox et listbox
changer le code
dans insertion nom définir il y a des#ref
la ligne d'entêtes était en ligne 2,remis en ligne 1
pas d'erreur
à bientôt

 

[kjin]

Re : Besoin d'aide bug userform

Bonjour,
Et si tu nous expliquais clairement ce que tu cherches à faire !

Edit : salut Bebere 🙂

A+
kjin