Destruction de formule dans une cellule

L

Leskwal

XLDnaute Occasionnel

• 22 Août 2008

• #16

Re : Destruction de formule dans une cellule

Bonjour

Tout marche comme je l'attendais, et comme je le disais précédemment reste plus qu'à décortiquer mais grâce à tes commentaires c'est nettement plus clair.

Vraiment encore MERCI;

Juste une petite chose quand je relance le form après l'avoir utilisé une première fois, les données précédemment rentrées n'apparaissent plus dans les texbox et Combobox ???

Comment faire pour ????

Re merci 😀

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 22 Août 2008

• #17

Re : Destruction de formule dans une cellule

Re Leskwal, le Forum

Ton Fichier modifié

Bonne Journée

 

Pièces jointes

• Leskwal.zip

  16.1 KB · Affichages: 16
• Leskwal.zip

  16.1 KB · Affichages: 20
• Leskwal.zip

  16.1 KB · Affichages: 35

Vote positif 0 Vote négatif

L

Leskwal

XLDnaute Occasionnel

• 22 Août 2008

• #18

Re : Destruction de formule dans une cellule

Euhhh

Ca marche du tonnerre, mais qu'a tu (vous) 😀 fais précisément ? La seule chose que j'ai vu de différent par rapport à l'ancien fichier c'est :

On Error Resume Next

C'est où que tu (vous) 😀😀 indiques le "rafraichissement" ?

Mon petit projet avance vraiment... Merci

Pascal

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 22 Août 2008

• #19

Re : Destruction de formule dans une cellule

Re Le Squale...Heu...le Leskwal 😀, Le Fil

Le Tutoiement est de rigueur ici 😛

Le

Code:

On Error Resume Next

n'est là que pour palier l'absence de Valeur en "A3"

Il faut regarder dans le

Code:

Private Sub UserForm_Initialize()
ComboBox1.Value = Feuil1.Range("A3")

Le On Error Resume Next dans

Code:

Private Sub ComboBox1_Change

inhibe l'erreur CAD ne déclenche pas d'errreur si la cellule est Vide ou ne contient pas ce qu'il devrais y avoir dans la ComboBox1 à l'ouverture de L'UserForm

Heu...mesuisjebienfaitcomprendre 😕

Bonne Journée

 

Dernière édition: 22 Août 2008

Vote positif 0 Vote négatif

L

Leskwal

XLDnaute Occasionnel

• 22 Août 2008

• #20

Re : Destruction de formule dans une cellule

Parfaitement clair

Code:

Private Sub UserForm_Initialize()
ComboBox1.Value = Feuil1.Range("A3")
ComboBox2.Value = Feuil1.Range("A5")

Là ça fonctionne pour 2 combobox, mais est il possible de faire une initialisation pour l'ensemble des combox et des textbox d'un seul coup.

En effet, mon fichier de travail en contient plus d'une centaine placés dans des multipages ou onglets inséré dans le form.

Une commande magique du type à l'initialisation du form "mettre à jour l'ensemble des éléments se trouvant dans le form". 😀😀

Sinon bah, je vais me "taper" la bonne petite centaine de relations à initialiser...😱

Pascal

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 23 Août 2008

• #21

Re : Destruction de formule dans une cellule

Salut Leskwal, le Forum

Effectivement pour que les Items soient dans tes ComboBox et autres TextBox à l'ouverture il faudrait savoir ou se trouvent ces valeurs.
avec une Boucle dans le Private Sub UserForm_Initialize() ca peut le faire mais sinon tu peut mettre dans la Propriété de tes ComboBox et TextBox à la Ligne ControleSource la feuille et la Cellule liés à la ComboBox

ex
ComboBox1-->ControleSource-->'Ppal'!A3
TextBox1-->ControleSource-->'Ppal'!B2

Etc...
A la Prochaire réouverture de ta Form tu Auras tes Items dans tes ComboBox et TextBox



Bonne Journée

 

Vote positif 0 Vote négatif

L

Leskwal

XLDnaute Occasionnel

• 23 Août 2008

• #22

Re : Destruction de formule dans une cellule

Bonjour

Mon projet avance à grand pas et je peux le dire, grâce à ton aide.

VRAIMENT ENCORE MERCI 🙂🙂

Pascal

Je vais ouvrir une autre discussion sur un problème de virgule et de point ...😀

 

Vote positif 0 Vote négatif