un petit probleme...

[dame et roi]

🙂 Bonjour à tous,

J'ai un petit soucis à vous exposer. Je souhaiterai avoir deux renseignements:

1) modifier le code ci dessous afin de pouvoir utiliser cette userform depuis n'importe quelle feuille TOUT EN SPECIFIANT QUE LE RANGE C1 par exemple EST SITUEE SUR LA FEUILLE 'criteres' par exemple.

Private Sub TextBox1_Change()
Range("c1") = TextBox1
End Sub
Private Sub UserForm_Initialize()
TextBox1 = Range("c1")
End Sub

2) En utilisant la userform en mode non modal,(paramètre showmodal = false), est-il possible d'avoir une "textbox2" par exemple qui afficherait et se mettrait à jour automatiquement POUR AFFICHER LE CONTENU D'UNE CELLULE X2 par exemple.


Je possède excel 2000.
Pouvez vous svp modifier le(s) code(s). Merci par avance.

a bientôt

 

[Pierrot93]

Re : un petit probleme...

Bonjour Dame et Roi

1ère question, essaye comme ci dessous :

Sheets("NomdelaFeuille").Range("c1") = TextBox1

pour ta 2ème question, essaye le code ci dessous, à placer dans le module de la feuille concernée :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If UserForm1.Visible = True Then UserForm1.TextBox1 = Target.Value
End Sub

bonne journée
@+

 

[dame et roi]

Re : un petit probleme...

🙂 Salut Pierrot 93,

Ca fonctionne à merveille pour les 2.

Je te remercie.

A bientôt