OVH Cloud OVH Cloud

actions sur bouton OK

3 réponses
Avatar
Zolive
Bonjour à tous,

Je voulais savoir quel code mettre sur un bouton OK d'un useform pour que
sur ce bouton, la succession d'actions soit la suivante:

1- copier la valeur choisie ds la liste déroulante ds la cellule a4
2- faire entrée (valider la valeur dans la cellule)
3- faire F9 (recalculer les formules..)

j'espère avoir été clair...

Par avance merci...
Zolive

3 réponses

Avatar
AV
1- copier la valeur choisie ds la liste déroulante ds la cellule a4
2- faire entrée (valider la valeur dans la cellule)
3- faire F9 (recalculer les formules..)



With Sheets("Feuil1")
.[A4].Value = .[A10] '?? adresse de la cellule contenant la liste de Valid
.Calculate
End With

AV

Avatar
papou
Bonjour
1 - Worksheets("Feuil1").range("A4").Value = ListBox1.Value
2 - Inutile
3 - Worksheets("Feuil1").Calculate

Cordialement
Pascal

"Zolive" <http://cerbermail.com/?c29gaUh3kv> a écrit dans le message de
news:4188f358$0$27595$
Bonjour à tous,

Je voulais savoir quel code mettre sur un bouton OK d'un useform pour que
sur ce bouton, la succession d'actions soit la suivante:

1- copier la valeur choisie ds la liste déroulante ds la cellule a4
2- faire entrée (valider la valeur dans la cellule)
3- faire F9 (recalculer les formules..)

j'espère avoir été clair...

Par avance merci...
Zolive




Avatar
Zolive
Messieurs,

Merci beaucoup....

Zolive

"papou" a écrit dans le message de
news:
Bonjour
1 - Worksheets("Feuil1").range("A4").Value = ListBox1.Value
2 - Inutile
3 - Worksheets("Feuil1").Calculate

Cordialement
Pascal

"Zolive" <http://cerbermail.com/?c29gaUh3kv> a écrit dans le message de
news:4188f358$0$27595$
Bonjour à tous,

Je voulais savoir quel code mettre sur un bouton OK d'un useform pour
que


sur ce bouton, la succession d'actions soit la suivante:

1- copier la valeur choisie ds la liste déroulante ds la cellule a4
2- faire entrée (valider la valeur dans la cellule)
3- faire F9 (recalculer les formules..)

j'espère avoir été clair...

Par avance merci...
Zolive