XL 2016 User Form

[Thibault2612]

Bonjour à tous,

Tout d'abord, le but de ma macro (que je souhaiterais faire...) est de faire afficher une fenêtre popup (UserForm) après l'appuie sur un bouton dans le but de modifier un numéro dans une cellule.

Le but est de modifier le numéro à partir de cette fenêtre car ma feuille doit être protégé.

Je sais pas si je suis claire donc j'ai mis un fichier mon illustré. (J'aimerais donc que le résultat écrit dans mon USER FORM se retrouve en "C2")

merci d'avance pour votre aide. cordialement, T.

 

[Lone-wolf]

Bonjour Thibault , le Forum

C'est tout simple

Private Sub CommandButton1_Click()
With Feuil1
.Range("c2") = TextBox1
End With
End Sub

 

[Thibault2612]

Merci je viens de comprendre....

En revanche, comment je peux faire si on décide de ne pas modifier et que je veux sortir de mon UserForm sans modifier une case ?
Parceque je veux ajouter d'autres numéros a paramétré dans mon UserForm mais je ne veux pas que les cases que je n'est pas modifier devienne vierge (mais qu'ils gardent leurs numéros qui été affiché) .

Merci

 

[natorp]

Bjr Thibault et Lone-Wolf

Il faut enlever le code dans la macro et créer un bouton "annuler"

Cordialement, Gérard

 

[phlaurent55]

Bonjour à tous,

peut-être comme ceci (voir fichier joint)

à+
Philippe

 

[Thibault2612]

Bonjour Natorp et Phlaurent55, et merci de votre aide.

Mais en revanche, je ne veux pas que cela soit obligatoire de remplir les deux, il se peut que je doit modifier un seul de deux paramètre.
Par conséquent si je modifie qu'un seul paramètre, je veux que le deuxième (que je n'est pas rempli) garde sa valeur qui été déjà rempli.


Cordialement.

 

[phlaurent55]

Re,

Mais en revanche, je ne veux pas que cela soit obligatoire de remplir les deux, il se peut que je doit modifier un seul de deux paramètre.
Par conséquent si je modifie qu'un seul paramètre, je veux que le deuxième (que je n'est pas rempli) garde sa valeur qui été déjà rempli.

Remplace le code par celui-ci:

Private Sub CommandButton1_Click()

    With Feuil1
    If TextBox1 <> "" Then .Range("c2") = TextBox1
   
    If TextBox2 <> "" Then .Range("c4") = TextBox2
   
    End With
Unload Me
End Sub

à+
Philippe

 

[natorp]

Et comme ça ?

Cordialement, Gérard

 

[Thibault2612]

Merci beaucoup c'est exactement ce que je voulais !!

A+

Cordialement, T.

 

[Thibault2612]

Re-bonjour, est-il possible de faire apparaître le contenu des cellule dans le UserForm ?
Au lieu des cases vide qui sont dans le UserForm ?

Merci d'avance. Cordialement, T.

 

[Lone-wolf]

Re à tous

Private Sub UserForm_Activate()
  With Feuil1
           TextBox1 = .Range("c2")
          TextBox2 = .Range("c4")
  End With
End Sub

 

[Thibault2612]

Je vous remercie.