Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 19/01/2012, 21h17   #1
Invité régulier
 
Inscription : mai 2011
Messages : 35
Détails du profil
Informations forums :
Inscription : mai 2011
Messages : 35
Points : 8
Points : 8
Par défaut Utilisation userform VBA

Bonsoir à tous!

Je souhaiterais avoir une astuce quant à l'utilisation de mon userform.

En gros, l'utilisateur va entrer les données dans mon userform et à la fin, le programme se sert de ces données pour en sortir un prix final indiqué dans case final à la fin de mon userform.

Ce que je souhaiterai c'est que ce prix figure aussi sur en celulle A1 d'une feuil excel quelquonque.
En outre, si l'utilisateur utilise plusieurs fois mon userform, j'aimerai que les résultats (soit les prix calculés) figurent en A1, A2, A3,A4,etc... autant de fois que l'utilisateur aura lancé le userform.


Merci pour votre aide!
cott333 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 19/01/2012, 21h28   #2
Expert Confirmé Sénior
 
Avatar de jfontaine
 
Homme Jérôme FONTAINE
Contrôleur de Gestion
Inscription : juin 2006
Messages : 3 920
Détails du profil
Informations personnelles :
Nom : Homme Jérôme FONTAINE
Âge : 38
Localisation : France, Sarthe (Pays de la Loire)

Informations professionnelles :
Activité : Contrôleur de Gestion

Informations forums :
Inscription : juin 2006
Messages : 3 920
Points : 7 237
Points : 7 237
Bonjour,

Ci dessous un code qui fait cela dans la feuil1
Code :
1
2
3
4
5
6
7
 
Dim sh As Worksheet
 
'Feuille de Destination
Set sh = Sheets("Feuil1")
 
sh.Range("A" & sh.Range("A" & Rows.Count).End(xlUp).Row + 1).Value = "résultats "
__________________
Jérôme

Citation:
"Ils ne savaient pas que c'était impossible, alors ils l'ont fait" - Marc Twain
Si la réponse répond à votre besoin, votre vote nous encouragera.
Dans le cas ou la réponse mérite, à vos yeux, un , nous faire partager la raison de ce vote, pourrait nous permettre de nous améliorer.
jfontaine est déconnecté   Envoyer un message privé Réponse avec citation 10
Vieux 19/01/2012, 22h09   #3
Invité régulier
 
Inscription : mai 2011
Messages : 35
Détails du profil
Informations forums :
Inscription : mai 2011
Messages : 35
Points : 8
Points : 8
Ca marche merci !
cott333 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 02h46.


 
 
 
 
Partenaires

Hébergement Web