XL 2016 User Form

Thibault2612 · 31 Mai 2017

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 · 31 Mai 2017

Bonjour Thibault , le Forum

C'est tout simple

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

Thibault2612 · 31 Mai 2017

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 · 31 Mai 2017

Bjr Thibault et Lone-Wolf

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

Cordialement, Gérard

phlaurent55 · 31 Mai 2017

Bonjour à tous,

peut-être comme ceci (voir fichier joint)

à+
Philippe

Thibault2612 · 31 Mai 2017

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 · 31 Mai 2017

Re,

Thibault2612 à dit:
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:

Code:

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 · 31 Mai 2017

Et comme ça ?

Cordialement, Gérard

Thibault2612 · 31 Mai 2017

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

A+

Cordialement, T.

Thibault2612 · 31 Mai 2017

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 · 31 Mai 2017

Re à tous

VB:

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

Thibault2612 · 31 Mai 2017

Je vous remercie.

XL 2016 User Form

Thibault2612

XLDnaute Junior

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Thibault2612

XLDnaute Junior

Pièces jointes

natorp

XLDnaute Barbatruc

Pièces jointes

phlaurent55

Nous a quittés en 2020

Pièces jointes

Thibault2612

XLDnaute Junior

phlaurent55

Nous a quittés en 2020

Pièces jointes

natorp

XLDnaute Barbatruc

Pièces jointes

Thibault2612

XLDnaute Junior

Thibault2612

XLDnaute Junior

Lone-wolf

XLDnaute Barbatruc

Thibault2612

XLDnaute Junior

Discussions similaires