Discussion :

[kidone]

Bonjour,

voila mon petit problème :

j'ai réalisé un formulaire en VBA, dans les zones control sources j'ai mis des cellules et dans les rowsources d'autres cellules

Lorsque je valide ma saisie et que je n'ai rien changé dans certaines Listbox ou combobox par rapport à la valeur proposé par defaut, je ne retrouve rien dans les cellules de mon control source.

y a til une procedure pour mettre à jour les "zones de resultat"?
j'ai essayé userform1.repaint sans succés.



merci d'avance

[laetitia]

bonjour kidone le forum si tu veus que quelqu'un t'aide il faut en dire plus. comme cela pas simple sans code ou zip exemple.

[kidone]

bonjour,

voila le fichier, mais c'est pas encore terminé

clic dans feuille Pilotage sur bouton saisie visite
chercher un client dans la combobox par le nom
faire entrée rafraichit bien le resultat dans la liste box d'a coté

mais dans la feuille parametres sur la ligne 2
l'etab, le delegue, le nom du delegue, le code client et parfois le nom
ne se mettent pas à jour !...

je commence avec les formulaires, et c'est pas simple, si quelqu'un connait une doc sympa, n'hesitez pas

merci d'avance

[mercatog]

Tu sais ce que tu dois d'abord faire?
Refais tous tes codes en suivant la remarque suivante: ((c) Krovax
en virant toutes tes select

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Machin.Select
Selection.Faire

Directement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Machin.Faire

Déjà cela économise beaucoup en terme de lisibilité, performances et méthodologie.

Encore: le Formula est utilisé même quand c'est pas nécessaire! regardes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    .Range("N9").Formula = "Nom_cli "
    .Range("N10").Formula = "=IF(ISERROR(RC[1]),RC[2],IF(ISERROR(RC[2]),RC[1],""""))"

Alors que cela sera mieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    .Range("N9").value= "Nom_cli "
    .Range("N10").FormulaR1C1 = "=IF(ISERROR(RC[1]),RC[2],IF(ISERROR(RC[2]),RC[1],""""))"

Si tu veux écrire dans la cellule sulement une valeur, n'utilise pas de Formula!!
Quand une formule tenant compte des références relatives: utilise .FormulaR1C1
...

[LeForestier]

Bonjour tous,
Comme il met les noms de fonctions excel en anglais je me demande si ce ne serrai pas mieux d'employer FormulaLocal
Sais pas...
A+

[kidone]

Bonjour,
merci à tous pour ces conseils d'experts qui me sont d'une grande utilité pour le debutant que je suis. Je suis en train de corriger le code.....

mais le principal reste à trouver : pourquoi les cellules du control sources ne se mettent pas à jour si je ne selectionne pas la cellule du formulaire

encore un petit coup de :

merci d'avance