Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Un truc tout bête mais je cherche un idée

5 réponses
Avatar
GuyCarca
Bonjour

Dans mes macro j'ai deux variables Mois et an;

Je les récupère dans le nom du fichier actif mais
comme un âne les longueurs de mois changent et patatras.

Comment faire un Imput box ou un Userform ?

Surtout que ce que je veux est basique( il me semble)
Il me faut la liste des mois et 2 ou 3 années (2006-2007 et 2008)

La liste peut donc être interne à l'outil.

Une sélection et se serait mis dans la variable.

--
Cordialement
Guy

5 réponses

Avatar
FxM
Bonsoir Guy,

Tu nous donne un exemple de nom d'onglet ?
Jette également un oeil à un message du 18/09 18h29 (heure de Paris)
dans lequel j'indiquais une fonction de transformation de format de date.

@+
FxM


Bonjour

Dans mes macro j'ai deux variables Mois et an;

Je les récupère dans le nom du fichier actif mais
comme un âne les longueurs de mois changent et patatras.

Comment faire un Imput box ou un Userform ?

Surtout que ce que je veux est basique( il me semble)
Il me faut la liste des mois et 2 ou 3 années (2006-2007 et 2008)

La liste peut donc être interne à l'outil.

Une sélection et se serait mis dans la variable.



Avatar
GuyCarca
Bonjour FxM

En fait je suis en train de rattraper une bévue dans mes macro.

'==================================================== ' Mise a jour mois et An dans les feuilles 2 et 3-4-5
'==================================================== Dim fichier As String
Dim mois
Dim an
fichier = ActiveWorkbook.Name
mois = Mid(fichier, 14, 4)
an = Mid(fichier, 18, 4)Sheets("Récap").Select
Range("B1").Select
ActiveCell.FormulaR1C1 = mois & an ' c'est collé mais tant pis
==================================================== A la place je veux appeler un Userform (que je suis en train de fabriquer)
2 listes Mois et An
Un bouton Valider
Il faut que j'interdise de fermer cet Userform
autrement que par la Validation

Mes listes fonctionnent comme celà :
Private Sub UserForm_Initialize()
LeMois.AddItem ("Janvier")
etc ...
Année.AddItem ("2006")
etc

Au Onchange je met le mois et l'année dans une variable dans l'userform
FrmMois = Me.LeMois.Value
FrmAnnée = Me.Année.Value
Un bouton valider doit me permettre de faire
passer ces variables dans la macro
mois = FrmMois
an = FrmAnnée
Comme celà la suite ne devrait pas changer.

Là je ne sais pas comment anguiller tout ça.
et il me faut le faire dans 4 Macro.

Voilà ce que je veux faire pour me rattraper.

Pour finir il me faut, et je ne sais pas comment
Insérer les dates des jours manquants

J'ai mis l'onglet en cause ici : http://cjoint.com/?jDsHED7Wwg

Merci encore de te pencher sur mes problèmes.

Amicalement
Guy

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

Bonsoir Guy,

Tu nous donne un exemple de nom d'onglet ?
Jette également un oeil à un message du 18/09 18h29 (heure de Paris) dans
lequel j'indiquais une fonction de transformation de format de date.

@+
FxM


Bonjour

Dans mes macro j'ai deux variables Mois et an;

Je les récupère dans le nom du fichier actif mais
comme un âne les longueurs de mois changent et patatras.

Comment faire un Imput box ou un Userform ?

Surtout que ce que je veux est basique( il me semble)
Il me faut la liste des mois et 2 ou 3 années (2006-2007 et 2008)

La liste peut donc être interne à l'outil.

Une sélection et se serait mis dans la variable.





Avatar
GuyCarca
Bonsoir


Je n'arrive pas à faire passer le variables
d'un userform dans ma macro??

J'avais essayé une précédente fois et la seule
solution que j'avais trouvé c'était de mettre
ces variables dans des cellules d'un tableau.

Y a t-il une soluce ?

Merci
Cordialement
Guy



"GuyCarca" a écrit dans le message de news:
O9kv5U%
Bonjour FxM

En fait je suis en train de rattraper une bévue dans mes macro.

'==================================================== > ' Mise a jour mois et An dans les feuilles 2 et 3-4-5
'==================================================== > Dim fichier As String
Dim mois
Dim an
fichier = ActiveWorkbook.Name
mois = Mid(fichier, 14, 4)
an = Mid(fichier, 18, 4)Sheets("Récap").Select
Range("B1").Select
ActiveCell.FormulaR1C1 = mois & an ' c'est collé mais tant pis
==================================================== > A la place je veux appeler un Userform (que je suis en train de fabriquer)
2 listes Mois et An
Un bouton Valider
Il faut que j'interdise de fermer cet Userform
autrement que par la Validation

Mes listes fonctionnent comme celà :
Private Sub UserForm_Initialize()
LeMois.AddItem ("Janvier")
etc ...
Année.AddItem ("2006")
etc

Au Onchange je met le mois et l'année dans une variable dans l'userform
FrmMois = Me.LeMois.Value
FrmAnnée = Me.Année.Value
Un bouton valider doit me permettre de faire
passer ces variables dans la macro
mois = FrmMois
an = FrmAnnée
Comme celà la suite ne devrait pas changer.

Là je ne sais pas comment anguiller tout ça.
et il me faut le faire dans 4 Macro.

Voilà ce que je veux faire pour me rattraper.

Pour finir il me faut, et je ne sais pas comment
Insérer les dates des jours manquants

J'ai mis l'onglet en cause ici : http://cjoint.com/?jDsHED7Wwg

Merci encore de te pencher sur mes problèmes.

Amicalement
Guy

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

Bonsoir Guy,

Tu nous donne un exemple de nom d'onglet ?
Jette également un oeil à un message du 18/09 18h29 (heure de Paris) dans
lequel j'indiquais une fonction de transformation de format de date.

@+
FxM


Bonjour

Dans mes macro j'ai deux variables Mois et an;

Je les récupère dans le nom du fichier actif mais
comme un âne les longueurs de mois changent et patatras.

Comment faire un Imput box ou un Userform ?

Surtout que ce que je veux est basique( il me semble)
Il me faut la liste des mois et 2 ou 3 années (2006-2007 et 2008)

La liste peut donc être interne à l'outil.

Une sélection et se serait mis dans la variable.









Avatar
FxM
Bonjour Guy,

J'ai très peu joué avec les userforms :o( et n'y connais pas grand chose.

A vérifier si tu ne peux pas passer directement lors du clic sur valider par
Mois = Me.LeMois.Value
an = Me.Année.Value

Il me semble (à confirmer) que tu devrais déclarer les variables mois et
an comme 'global' en tête de module.

Enfin, personnellement, j'évite les accents et caractères bizarres dans
les variables, noms de feuille, ... Question d'éventuelle portabilité.

Désolé de ne pouvoir en faire plus.

@+
FxM





Bonjour FxM

En fait je suis en train de rattraper une bévue dans mes macro.

'==================================================== > ' Mise a jour mois et An dans les feuilles 2 et 3-4-5
'==================================================== > Dim fichier As String
Dim mois
Dim an
fichier = ActiveWorkbook.Name
mois = Mid(fichier, 14, 4)
an = Mid(fichier, 18, 4)Sheets("Récap").Select
Range("B1").Select
ActiveCell.FormulaR1C1 = mois & an ' c'est collé mais tant pis
==================================================== > A la place je veux appeler un Userform (que je suis en train de fabriquer)
2 listes Mois et An
Un bouton Valider
Il faut que j'interdise de fermer cet Userform
autrement que par la Validation

Mes listes fonctionnent comme celà :
Private Sub UserForm_Initialize()
LeMois.AddItem ("Janvier")
etc ...
Année.AddItem ("2006")
etc

Au Onchange je met le mois et l'année dans une variable dans l'userform
FrmMois = Me.LeMois.Value
FrmAnnée = Me.Année.Value
Un bouton valider doit me permettre de faire
passer ces variables dans la macro
mois = FrmMois
an = FrmAnnée
Comme celà la suite ne devrait pas changer.

Là je ne sais pas comment anguiller tout ça.
et il me faut le faire dans 4 Macro.

Voilà ce que je veux faire pour me rattraper.

Pour finir il me faut, et je ne sais pas comment
Insérer les dates des jours manquants

J'ai mis l'onglet en cause ici : http://cjoint.com/?jDsHED7Wwg

Merci encore de te pencher sur mes problèmes.

Amicalement
Guy

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

Bonsoir Guy,

Tu nous donne un exemple de nom d'onglet ?
Jette également un oeil à un message du 18/09 18h29 (heure de Paris) dans
lequel j'indiquais une fonction de transformation de format de date.

@+
FxM


Bonjour

Dans mes macro j'ai deux variables Mois et an;

Je les récupère dans le nom du fichier actif mais
comme un âne les longueurs de mois changent et patatras.

Comment faire un Imput box ou un Userform ?

Surtout que ce que je veux est basique( il me semble)
Il me faut la liste des mois et 2 ou 3 années (2006-2007 et 2008)

La liste peut donc être interne à l'outil.

Une sélection et se serait mis dans la variable.









Avatar
GuyCarca
Bonsoir

J'ai résolu, je savais qu'il fallait mettre ces variables en Public
dans un Module.

Mais comme j'avais 3 Macro à corriger j'ai un peu galéré
et j'ai solutionné en faisant un Userform par
marcro. Ce n'est pas très élégant mais ça fonctionne.

Je l'ai fait fait et chez moi tout fonctionne(Office 2003)

Reste à trouver une solution pour les dates;
mais bon il faudra surement s'en contenter comme c'est.

En tous cas Merci pour ton aide qui m'a souvent
été précieuse.

Amicalement
Guy








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

Bonjour Guy,

J'ai très peu joué avec les userforms :o( et n'y connais pas grand chose.

A vérifier si tu ne peux pas passer directement lors du clic sur valider
par
Mois = Me.LeMois.Value
an = Me.Année.Value

Il me semble (à confirmer) que tu devrais déclarer les variables mois et
an comme 'global' en tête de module.

Enfin, personnellement, j'évite les accents et caractères bizarres dans
les variables, noms de feuille, ... Question d'éventuelle portabilité.

Désolé de ne pouvoir en faire plus.

@+
FxM





Bonjour FxM

En fait je suis en train de rattraper une bévue dans mes macro.

'==================================================== >> ' Mise a jour mois et An dans les feuilles 2 et 3-4-5
'==================================================== >> Dim fichier As String
Dim mois
Dim an
fichier = ActiveWorkbook.Name
mois = Mid(fichier, 14, 4)
an = Mid(fichier, 18, 4)Sheets("Récap").Select
Range("B1").Select
ActiveCell.FormulaR1C1 = mois & an ' c'est collé mais tant pis
==================================================== >> A la place je veux appeler un Userform (que je suis en train de
fabriquer)
2 listes Mois et An
Un bouton Valider
Il faut que j'interdise de fermer cet Userform
autrement que par la Validation

Mes listes fonctionnent comme celà :
Private Sub UserForm_Initialize()
LeMois.AddItem ("Janvier")
etc ...
Année.AddItem ("2006")
etc

Au Onchange je met le mois et l'année dans une variable dans l'userform
FrmMois = Me.LeMois.Value
FrmAnnée = Me.Année.Value
Un bouton valider doit me permettre de faire
passer ces variables dans la macro
mois = FrmMois
an = FrmAnnée
Comme celà la suite ne devrait pas changer.

Là je ne sais pas comment anguiller tout ça.
et il me faut le faire dans 4 Macro.

Voilà ce que je veux faire pour me rattraper.

Pour finir il me faut, et je ne sais pas comment
Insérer les dates des jours manquants

J'ai mis l'onglet en cause ici : http://cjoint.com/?jDsHED7Wwg

Merci encore de te pencher sur mes problèmes.

Amicalement
Guy

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

Bonsoir Guy,

Tu nous donne un exemple de nom d'onglet ?
Jette également un oeil à un message du 18/09 18h29 (heure de Paris)
dans lequel j'indiquais une fonction de transformation de format de
date.

@+
FxM


Bonjour

Dans mes macro j'ai deux variables Mois et an;

Je les récupère dans le nom du fichier actif mais
comme un âne les longueurs de mois changent et patatras.

Comment faire un Imput box ou un Userform ?

Surtout que ce que je veux est basique( il me semble)
Il me faut la liste des mois et 2 ou 3 années (2006-2007 et 2008)

La liste peut donc être interne à l'outil.

Une sélection et se serait mis dans la variable.