OVH Cloud OVH Cloud

Valeurs dans plusieurs feuilles!

4 réponses
Avatar
STEN83
Bonjour,
j'ai un usf avec des textbox les informations entrées dans les textbox
doivent aller dans des cellules bien définies sur plusieurs feuilles comment
faire pour ne pas répeter à chaque fois le nom de la feuille, voici le code
de mon bouton de validation des données:

Sub ValiderParametres()
'Les feuilles sont nommées de JANVIER à DECEMBRE
'j'ai aussi nommée les cellules qui doivent contenir les
'information de mes tectbox

Range("Type_Facture") = formParametres.TextTypeProduit
Range("Nom_Du_Site") = formParametres.TextNomSite
Range("Code_Site") = formParametres.TextDA
Range("Societe") = formParametres.TextSociete
Range("Exercice") = formParametres.TextAnnee

End Sub

--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous

4 réponses

Avatar
papou
Bonjour
Aucun besoin de référencer les noms de feuilles dès lors que tu utilises des
plages nommées.
D'ailleurs ton code tel quel le prouve !
Cordialement
Pascal

"STEN83" a écrit dans le message de news:

Bonjour,
j'ai un usf avec des textbox les informations entrées dans les textbox
doivent aller dans des cellules bien définies sur plusieurs feuilles
comment
faire pour ne pas répeter à chaque fois le nom de la feuille, voici le
code
de mon bouton de validation des données:

Sub ValiderParametres()
'Les feuilles sont nommées de JANVIER à DECEMBRE
'j'ai aussi nommée les cellules qui doivent contenir les
'information de mes tectbox

Range("Type_Facture") = formParametres.TextTypeProduit
Range("Nom_Du_Site") = formParametres.TextNomSite
Range("Code_Site") = formParametres.TextDA
Range("Societe") = formParametres.TextSociete
Range("Exercice") = formParametres.TextAnnee

End Sub

--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous


Avatar
STEN83
Bonjour papou,
désolé mais les information contenues dans mes textbox ne vont qure sur la
feuille janvier! rien dans les autres ?
peut tu me donner une piste?
merci


Bonjour
Aucun besoin de référencer les noms de feuilles dès lors que tu utilises des
plages nommées.
D'ailleurs ton code tel quel le prouve !
Cordialement
Pascal

"STEN83" a écrit dans le message de news:

Bonjour,
j'ai un usf avec des textbox les informations entrées dans les textbox
doivent aller dans des cellules bien définies sur plusieurs feuilles
comment
faire pour ne pas répeter à chaque fois le nom de la feuille, voici le
code
de mon bouton de validation des données:

Sub ValiderParametres()
'Les feuilles sont nommées de JANVIER à DECEMBRE
'j'ai aussi nommée les cellules qui doivent contenir les
'information de mes tectbox

Range("Type_Facture") = formParametres.TextTypeProduit
Range("Nom_Du_Site") = formParametres.TextNomSite
Range("Code_Site") = formParametres.TextDA
Range("Societe") = formParametres.TextSociete
Range("Exercice") = formParametres.TextAnnee

End Sub

--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous







Avatar
papou
Re
Aucune raison si tes noms sont définis convenablement.
Regarde le fichier exemple ici :
http://cjoint.com/data/czqjnbPhuv.htm
Cordialement
Pascal

"STEN83" a écrit dans le message de news:

Bonjour papou,
désolé mais les information contenues dans mes textbox ne vont qure sur la
feuille janvier! rien dans les autres ?
peut tu me donner une piste?
merci


Bonjour
Aucun besoin de référencer les noms de feuilles dès lors que tu utilises
des
plages nommées.
D'ailleurs ton code tel quel le prouve !
Cordialement
Pascal

"STEN83" a écrit dans le message de
news:

Bonjour,
j'ai un usf avec des textbox les informations entrées dans les textbox
doivent aller dans des cellules bien définies sur plusieurs feuilles
comment
faire pour ne pas répeter à chaque fois le nom de la feuille, voici le
code
de mon bouton de validation des données:

Sub ValiderParametres()
'Les feuilles sont nommées de JANVIER à DECEMBRE
'j'ai aussi nommée les cellules qui doivent contenir les
'information de mes tectbox

Range("Type_Facture") = formParametres.TextTypeProduit
Range("Nom_Du_Site") = formParametres.TextNomSite
Range("Code_Site") = formParametres.TextDA
Range("Societe") = formParametres.TextSociete
Range("Exercice") = formParametres.TextAnnee

End Sub

--
Le partage du savoir contribue à l'amélioration de la condition
humaine!
Merci à tous









Avatar
STEN83
Re bonjour papou,
merci pour l'exemple mais apparemment je n'ai peut être pas posé la question
comme il se devait:
j'ai commencé a créer une seule feuille "Janvier", avec tous les bouton s
qu'il faut et en nommant mes cellules j'ai créé mon usf, et j'ai fais des
copie de la feuille Janvier que j'ai renommée en février, mars etc... les
cellules de destinations ont donc toutes le même nom dan chaque feuille et
lorsque je rentre des informations dans mon usf seul la feuille janvier
recoit ces informations ???? si tu veux je peux t'envoyer le classeur afin
que tu puisse voir de toi même je travaille avec office 2003.
en core merci pour ton aide.


Re
Aucune raison si tes noms sont définis convenablement.
Regarde le fichier exemple ici :
http://cjoint.com/data/czqjnbPhuv.htm
Cordialement
Pascal

"STEN83" a écrit dans le message de news:

Bonjour papou,
désolé mais les information contenues dans mes textbox ne vont qure sur la
feuille janvier! rien dans les autres ?
peut tu me donner une piste?
merci


Bonjour
Aucun besoin de référencer les noms de feuilles dès lors que tu utilises
des
plages nommées.
D'ailleurs ton code tel quel le prouve !
Cordialement
Pascal

"STEN83" a écrit dans le message de
news:

Bonjour,
j'ai un usf avec des textbox les informations entrées dans les textbox
doivent aller dans des cellules bien définies sur plusieurs feuilles
comment
faire pour ne pas répeter à chaque fois le nom de la feuille, voici le
code
de mon bouton de validation des données:

Sub ValiderParametres()
'Les feuilles sont nommées de JANVIER à DECEMBRE
'j'ai aussi nommée les cellules qui doivent contenir les
'information de mes tectbox

Range("Type_Facture") = formParametres.TextTypeProduit
Range("Nom_Du_Site") = formParametres.TextNomSite
Range("Code_Site") = formParametres.TextDA
Range("Societe") = formParametres.TextSociete
Range("Exercice") = formParametres.TextAnnee

End Sub

--
Le partage du savoir contribue à l'amélioration de la condition
humaine!
Merci à tous