garder un premier choix par défaut

Bonjour DC,

Tu peux sauvegarder la dernière valeur saisie dans ton InputBox dans
une cellule de ton classeur (ou dans le registre avec SaveSetting et
GetSetting) :

DerMois = Range("A1").Value
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x &
Chr(10) & "Entrez le numéro de la feuille de destination", "Sélection",
DerMois))
If mois < 1 Or mois > i - 1 Then Exit Sub
Range("A1").Value = mois

Bonsoir à tous,

Dans un code gentiment offert par Patrick, il y à l'ouverture d'une fenêtre,
permettant un choix sur 12 mois,

Aussi après usage, il apparait que si le dernier choix pouvait revenir par
défaut, sans resélectionner, mais simplement avec un OK, ce serait pas mal
du tout,........Merci!.......
'----------------------------
Sub Récap()
'
For i = 1 To Workbooks("Récap.xls").Sheets.Count
x = x & i & "...." & Workbooks("Récap.xls").Sheets(i).Name & Chr(10)
Next
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x & Chr(10)
& "Entrez le numéro de la feuille de destination", "Sélection"))
If mois < 1 Or mois > i - 1 Then Exit Sub
'If mois = 0 Then Exit Sub
derlg = Workbooks("Récap.xls").Sheets(mois).Range("A65536").End(3).Row + 1
Workbooks("Récap.xls").Sheets(mois).Range("a" & derlg) =
Workbooks("facture.xls").Sheets("Feuil3").[Numéro].Value
Workbooks("Récap.xls").Sheets(mois).Range("c" & derlg) =
Workbooks("facture.xls").Sheets("Feuil3").[Sit.].Value
Workbooks("Récap.xls").Sheets(mois).Range("d" & derlg) =
Workbooks("facture.xls").Sheets("Feuil3").[Nom].Value
Workbooks("Récap.xls").Sheets(mois).Range("E" & derlg) =
Workbooks("facture.xls").Sheets("Feuil3").[HT].Value
Workbooks("Récap.xls").Sheets(mois).Range("h" & derlg) =
Workbooks("facture.xls").Sheets("Feuil3").[TTC].Value
End Sub
'----------------------

Salutations!........Merci d'avance........DC

--
Cordialement,

Jacques.

Bonsoir

Au dessus de la macro ou en début de module
Copie ceci:
'-------
Public mois
'--------
et modifie cette ligne:
'----------
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x & Chr(10)
& "Entrez le numéro de la feuille de destination", "Sélection", mois))
'-----------
Salutations
JJ

Bonjour à tous..................Bonjour Jacky,

Je pense avoir bien respecté tes consignes, mais il y à peut-être un petit
défaut de ma part,

Je vais donc te joindre le code modifier, tu verras par toi-même,

A l'éxécution de la macro, résultat :

Ouverture d'une fenêtre : Erreur de compilation

Attribut incorrect dans une procédure Sub ou fonction

et le mot " public " se met en surbrillance ( public mois )

j' ai beau insister, bien regarder, je ne vois pas l'impair que j'ai .....

'-------------------------
Sub Récap()
'
Public mois
For i = 1 To Workbooks("Récap.xls").Sheets.Count
x = x & i & "...." & Workbooks("Récap.xls").Sheets(i).Name & Chr(10)
Next
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x & Chr(10)
& "Entrez le numéro de la feuille de destination", "Sélection", mois))
If mois < 1 Or mois > i - 1 Then Exit Sub
derlg = Workbooks("Récap.xls").Sheets(mois).Range("A65536").End(3).Row + 1
Workbooks("Récap.xls").Sheets(mois).Range("a" & derlg) Workbooks("facture.xls").Sheets("Feuil3").[Numéro].Value
Workbooks("Récap.xls").Sheets(mois).Range("c" & derlg) Workbooks("facture.xls").Sheets("Feuil3").[Sit.].Value
Workbooks("Récap.xls").Sheets(mois).Range("d" & derlg) Workbooks("facture.xls").Sheets("Feuil3").[Nom].Value
Workbooks("Récap.xls").Sheets(mois).Range("E" & derlg) Workbooks("facture.xls").Sheets("Feuil3").[HT].Value
Workbooks("Récap.xls").Sheets(mois).Range("h" & derlg) Workbooks("facture.xls").Sheets("Feuil3").[TTC].Value
End Sub
'--------------------

Salutations!.........Merci d'avance.............DC

----- Original Message -----
From: "Jacky" <delaenlevezjusqueiciJacky.jaeg@w......o.fr>
Newsgroups: microsoft.public.fr.excel
Sent: Sunday, October 02, 2005 8:39 PM
Subject: Re: garder un premier choix par défaut

Bonsoir

Au dessus de la macro ou en début de module
Copie ceci:
'-------
Public mois
'--------
et modifie cette ligne:
'----------
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x &
Chr(10)
& "Entrez le numéro de la feuille de destination", "Sélection", mois))
'-----------
Salutations
JJ

"Jacky" <delaenlevezjusqueiciJacky.jaeg@w......o.fr> a écrit dans le message
de news: u1TROA4xFHA.2008@TK2MSFTNGP10.phx.gbl...

Bonsoir

Au dessus de la macro ou en début de module
Copie ceci:
'-------
Public mois
'--------
et modifie cette ligne:
'----------
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x &
Chr(10)
& "Entrez le numéro de la feuille de destination", "Sélection", mois))
'-----------
Salutations
JJ

Re...
Il faut suivre les instructions données.......

Au dessus de la macro ou en début de module
Pas à l'intérieur de la macro.

Non ..mais ;-))
'--------
Public mois
Sub Récap()
--
--
End Sub
'---------
JJ

"DC" <da.campion@hotmail.fr> a écrit dans le message de
news:4340efd3$0$7850$8fcfb975@news.wanadoo.fr...

Bonjour à tous..................Bonjour Jacky,

Je pense avoir bien respecté tes consignes, mais il y à peut-être un petit
défaut de ma part,

Je vais donc te joindre le code modifier, tu verras par toi-même,

A l'éxécution de la macro, résultat :

Ouverture d'une fenêtre : Erreur de compilation

Attribut incorrect dans une procédure Sub ou fonction

et le mot " public " se met en surbrillance ( public mois )

j' ai beau insister, bien regarder, je ne vois pas l'impair que j'ai .....

'-------------------------
Sub Récap()
'
Public mois
For i = 1 To Workbooks("Récap.xls").Sheets.Count
x = x & i & "...." & Workbooks("Récap.xls").Sheets(i).Name & Chr(10)
Next
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x &
Chr(10)

& "Entrez le numéro de la feuille de destination", "Sélection", mois))
If mois < 1 Or mois > i - 1 Then Exit Sub
derlg = Workbooks("Récap.xls").Sheets(mois).Range("A65536").End(3).Row + 1
Workbooks("Récap.xls").Sheets(mois).Range("a" & derlg) > Workbooks("facture.xls").Sheets("Feuil3").[Numéro].Value
Workbooks("Récap.xls").Sheets(mois).Range("c" & derlg) > Workbooks("facture.xls").Sheets("Feuil3").[Sit.].Value
Workbooks("Récap.xls").Sheets(mois).Range("d" & derlg) > Workbooks("facture.xls").Sheets("Feuil3").[Nom].Value
Workbooks("Récap.xls").Sheets(mois).Range("E" & derlg) > Workbooks("facture.xls").Sheets("Feuil3").[HT].Value
Workbooks("Récap.xls").Sheets(mois).Range("h" & derlg) > Workbooks("facture.xls").Sheets("Feuil3").[TTC].Value
End Sub
'--------------------

Salutations!.........Merci d'avance.............DC

----- Original Message -----
From: "Jacky" <delaenlevezjusqueiciJacky.jaeg@w......o.fr>
Newsgroups: microsoft.public.fr.excel
Sent: Sunday, October 02, 2005 8:39 PM
Subject: Re: garder un premier choix par défaut

Bonsoir

Au dessus de la macro ou en début de module
Copie ceci:
'-------
Public mois
'--------
et modifie cette ligne:
'----------
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x &
Chr(10)
& "Entrez le numéro de la feuille de destination", "Sélection", mois))
'-----------
Salutations
JJ

"Jacky" <delaenlevezjusqueiciJacky.jaeg@w......o.fr> a écrit dans le
message

de news: u1TROA4xFHA.2008@TK2MSFTNGP10.phx.gbl...

Bonsoir

Au dessus de la macro ou en début de module
Copie ceci:
'-------
Public mois
'--------
et modifie cette ligne:
'----------
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x &
Chr(10)
& "Entrez le numéro de la feuille de destination", "Sélection", mois))
'-----------
Salutations
JJ

Bonjour à tous................Bonjour Jacky,

Toutes mes excuses Jacky,

En effet maintenant çà fonctionne,

Salutations!..........et encore MERCI....!!.........DC


"Jacky" <delaenlevezjusqueiciJacky.jaeg@w......o.fr> a écrit dans le message
de news: Olv8mj$xFHA.1856@TK2MSFTNGP12.phx.gbl...

Re...
Il faut suivre les instructions données.......

Au dessus de la macro ou en début de module
Pas à l'intérieur de la macro.

Non ..mais ;-))
'--------
Public mois
Sub Récap()
--
--
End Sub
'---------
JJ

"DC" <da.campion@hotmail.fr> a écrit dans le message de
news:4340efd3$0$7850$8fcfb975@news.wanadoo.fr...

Bonjour à tous..................Bonjour Jacky,

Je pense avoir bien respecté tes consignes, mais il y à peut-être un
petit
défaut de ma part,

Je vais donc te joindre le code modifier, tu verras par toi-même,

A l'éxécution de la macro, résultat :

Ouverture d'une fenêtre : Erreur de compilation

Attribut incorrect dans une procédure Sub ou fonction

et le mot " public " se met en surbrillance ( public mois )

j' ai beau insister, bien regarder, je ne vois pas l'impair que j'ai
.....

'-------------------------
Sub Récap()
'
Public mois
For i = 1 To Workbooks("Récap.xls").Sheets.Count
x = x & i & "...." & Workbooks("Récap.xls").Sheets(i).Name & Chr(10)
Next
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x &
Chr(10)

& "Entrez le numéro de la feuille de destination", "Sélection", mois))
If mois < 1 Or mois > i - 1 Then Exit Sub
derlg = Workbooks("Récap.xls").Sheets(mois).Range("A65536").End(3).Row +
1
Workbooks("Récap.xls").Sheets(mois).Range("a" & derlg) >> Workbooks("facture.xls").Sheets("Feuil3").[Numéro].Value
Workbooks("Récap.xls").Sheets(mois).Range("c" & derlg) >> Workbooks("facture.xls").Sheets("Feuil3").[Sit.].Value
Workbooks("Récap.xls").Sheets(mois).Range("d" & derlg) >> Workbooks("facture.xls").Sheets("Feuil3").[Nom].Value
Workbooks("Récap.xls").Sheets(mois).Range("E" & derlg) >> Workbooks("facture.xls").Sheets("Feuil3").[HT].Value
Workbooks("Récap.xls").Sheets(mois).Range("h" & derlg) >> Workbooks("facture.xls").Sheets("Feuil3").[TTC].Value
End Sub
'--------------------

Salutations!.........Merci d'avance.............DC

----- Original Message -----
From: "Jacky" <delaenlevezjusqueiciJacky.jaeg@w......o.fr>
Newsgroups: microsoft.public.fr.excel
Sent: Sunday, October 02, 2005 8:39 PM
Subject: Re: garder un premier choix par défaut

Bonsoir

Au dessus de la macro ou en début de module
Copie ceci:
'-------
Public mois
'--------
et modifie cette ligne:
'----------
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x &
Chr(10)
& "Entrez le numéro de la feuille de destination", "Sélection", mois))
'-----------
Salutations
JJ

"Jacky" <delaenlevezjusqueiciJacky.jaeg@w......o.fr> a écrit dans le
message

de news: u1TROA4xFHA.2008@TK2MSFTNGP10.phx.gbl...

Bonsoir

Au dessus de la macro ou en début de module
Copie ceci:
'-------
Public mois
'--------
et modifie cette ligne:
'----------
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x &
Chr(10)
& "Entrez le numéro de la feuille de destination", "Sélection", mois))
'-----------
Salutations
JJ

Re.....
Punition:
Constrution d'une macro.
100 lignes avec une instruction unique.
En colonne A, le texte " Je dois suivre les instructions données sur le
forum"
Avec une ligne sur deux grisée par la MEFC (au choix pair ou impair)
Le tout pour demain
;-))
JJ

"DC" <da.campion@hotmail.fr> a écrit dans le message de
news:4341254d$0$7857$8fcfb975@news.wanadoo.fr...

Bonjour à tous................Bonjour Jacky,

Toutes mes excuses Jacky,

En effet maintenant çà fonctionne,

Salutations!..........et encore MERCI....!!.........DC


"Jacky" <delaenlevezjusqueiciJacky.jaeg@w......o.fr> a écrit dans le
message

de news: Olv8mj$xFHA.1856@TK2MSFTNGP12.phx.gbl...

Re...
Il faut suivre les instructions données.......

Au dessus de la macro ou en début de module
Pas à l'intérieur de la macro.

Non ..mais ;-))
'--------
Public mois
Sub Récap()
--
--
End Sub
'---------
JJ

"DC" <da.campion@hotmail.fr> a écrit dans le message de
news:4340efd3$0$7850$8fcfb975@news.wanadoo.fr...

Bonjour à tous..................Bonjour Jacky,

Je pense avoir bien respecté tes consignes, mais il y à peut-être un
petit
défaut de ma part,

Je vais donc te joindre le code modifier, tu verras par toi-même,

A l'éxécution de la macro, résultat :

Ouverture d'une fenêtre : Erreur de compilation

Attribut incorrect dans une procédure Sub ou fonction

et le mot " public " se met en surbrillance ( public mois )

j' ai beau insister, bien regarder, je ne vois pas l'impair que j'ai
.....

'-------------------------
Sub Récap()
'
Public mois
For i = 1 To Workbooks("Récap.xls").Sheets.Count
x = x & i & "...." & Workbooks("Récap.xls").Sheets(i).Name & Chr(10)
Next
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x &
Chr(10)

& "Entrez le numéro de la feuille de destination", "Sélection", mois))
If mois < 1 Or mois > i - 1 Then Exit Sub
derlg = Workbooks("Récap.xls").Sheets(mois).Range("A65536").End(3).Row
+

1
Workbooks("Récap.xls").Sheets(mois).Range("a" & derlg) > >> Workbooks("facture.xls").Sheets("Feuil3").[Numéro].Value
Workbooks("Récap.xls").Sheets(mois).Range("c" & derlg) > >> Workbooks("facture.xls").Sheets("Feuil3").[Sit.].Value
Workbooks("Récap.xls").Sheets(mois).Range("d" & derlg) > >> Workbooks("facture.xls").Sheets("Feuil3").[Nom].Value
Workbooks("Récap.xls").Sheets(mois).Range("E" & derlg) > >> Workbooks("facture.xls").Sheets("Feuil3").[HT].Value
Workbooks("Récap.xls").Sheets(mois).Range("h" & derlg) > >> Workbooks("facture.xls").Sheets("Feuil3").[TTC].Value
End Sub
'--------------------

Salutations!.........Merci d'avance.............DC

----- Original Message -----
From: "Jacky" <delaenlevezjusqueiciJacky.jaeg@w......o.fr>
Newsgroups: microsoft.public.fr.excel
Sent: Sunday, October 02, 2005 8:39 PM
Subject: Re: garder un premier choix par défaut

Bonsoir

Au dessus de la macro ou en début de module
Copie ceci:
'-------
Public mois
'--------
et modifie cette ligne:
'----------
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x &
Chr(10)
& "Entrez le numéro de la feuille de destination", "Sélection",
mois))

'-----------
Salutations
JJ

"Jacky" <delaenlevezjusqueiciJacky.jaeg@w......o.fr> a écrit dans le
message

de news: u1TROA4xFHA.2008@TK2MSFTNGP10.phx.gbl...

Bonsoir

Au dessus de la macro ou en début de module
Copie ceci:
'-------
Public mois
'--------
et modifie cette ligne:
'----------
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x &
Chr(10)
& "Entrez le numéro de la feuille de destination", "Sélection",
mois))

'-----------
Salutations
JJ

Bonjour à tous..........................Bonjour Jacky,

Je suis navré Jacky, car je suis incapable d'écrire la macro que tu me
demandes,

Les seules macros que j'arrive à rendent opérationnelles, sont celles que
j'éxécute avec Excel par la procédure, " Nouvelle Macro "

Pas la peine de te dire a quel point je suis limité, et surtout il ne faut
pas de complications, sinon je perds les pédales,

Faut dire aussi que nous, les non initiés, nous avons la chance de
l'existance de ce super Forum,

Et pour te montrer ma bonne volonté, voici les 100 lignes demandées,

Je dois suivre les instructions données sur le forum.
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum.
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum.
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum.
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum.
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum.
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum.
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum.
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum
Je dois suivre les instructions données sur le forum

Salutations!........encore Merci.! pour tout..................DC

"Jacky" <delaenlevezjusqueiciJacky.jaeg@w......o.fr> a écrit dans le message
de news: %23M72aiEyFHA.2960@tk2msftngp13.phx.gbl...

Re.....
Punition:
Constrution d'une macro.
100 lignes avec une instruction unique.
En colonne A, le texte " Je dois suivre les instructions données sur le
forum"
Avec une ligne sur deux grisée par la MEFC (au choix pair ou impair)
Le tout pour demain
;-))
JJ

"DC" <da.campion@hotmail.fr> a écrit dans le message de
news:4341254d$0$7857$8fcfb975@news.wanadoo.fr...

Bonjour à tous................Bonjour Jacky,

Toutes mes excuses Jacky,

En effet maintenant çà fonctionne,

Salutations!..........et encore MERCI....!!.........DC


"Jacky" <delaenlevezjusqueiciJacky.jaeg@w......o.fr> a écrit dans le
message

de news: Olv8mj$xFHA.1856@TK2MSFTNGP12.phx.gbl...

Re...
Il faut suivre les instructions données.......

Au dessus de la macro ou en début de module
Pas à l'intérieur de la macro.

Non ..mais ;-))
'--------
Public mois
Sub Récap()
--
--
End Sub
'---------
JJ

"DC" <da.campion@hotmail.fr> a écrit dans le message de
news:4340efd3$0$7850$8fcfb975@news.wanadoo.fr...

Bonjour à tous..................Bonjour Jacky,

Je pense avoir bien respecté tes consignes, mais il y à peut-être un
petit
défaut de ma part,

Je vais donc te joindre le code modifier, tu verras par toi-même,

A l'éxécution de la macro, résultat :

Ouverture d'une fenêtre : Erreur de compilation

Attribut incorrect dans une procédure Sub ou fonction

et le mot " public " se met en surbrillance ( public mois )

j' ai beau insister, bien regarder, je ne vois pas l'impair que j'ai
.....

'-------------------------
Sub Récap()
'
Public mois
For i = 1 To Workbooks("Récap.xls").Sheets.Count
x = x & i & "...." & Workbooks("Récap.xls").Sheets(i).Name & Chr(10)
Next
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x &
Chr(10)

& "Entrez le numéro de la feuille de destination", "Sélection", mois))
If mois < 1 Or mois > i - 1 Then Exit Sub
derlg = Workbooks("Récap.xls").Sheets(mois).Range("A65536").End(3).Row
+

1
Workbooks("Récap.xls").Sheets(mois).Range("a" & derlg) >> >> Workbooks("facture.xls").Sheets("Feuil3").[Numéro].Value
Workbooks("Récap.xls").Sheets(mois).Range("c" & derlg) >> >> Workbooks("facture.xls").Sheets("Feuil3").[Sit.].Value
Workbooks("Récap.xls").Sheets(mois).Range("d" & derlg) >> >> Workbooks("facture.xls").Sheets("Feuil3").[Nom].Value
Workbooks("Récap.xls").Sheets(mois).Range("E" & derlg) >> >> Workbooks("facture.xls").Sheets("Feuil3").[HT].Value
Workbooks("Récap.xls").Sheets(mois).Range("h" & derlg) >> >> Workbooks("facture.xls").Sheets("Feuil3").[TTC].Value
End Sub
'--------------------

Salutations!.........Merci d'avance.............DC

----- Original Message -----
From: "Jacky" <delaenlevezjusqueiciJacky.jaeg@w......o.fr>
Newsgroups: microsoft.public.fr.excel
Sent: Sunday, October 02, 2005 8:39 PM
Subject: Re: garder un premier choix par défaut

Bonsoir

Au dessus de la macro ou en début de module
Copie ceci:
'-------
Public mois
'--------
et modifie cette ligne:
'----------
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x &
Chr(10)
& "Entrez le numéro de la feuille de destination", "Sélection",
mois))

'-----------
Salutations
JJ

"Jacky" <delaenlevezjusqueiciJacky.jaeg@w......o.fr> a écrit dans le
message

de news: u1TROA4xFHA.2008@TK2MSFTNGP10.phx.gbl...

Bonsoir

Au dessus de la macro ou en début de module
Copie ceci:
'-------
Public mois
'--------
et modifie cette ligne:
'----------
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x &
Chr(10)
& "Entrez le numéro de la feuille de destination", "Sélection",
mois))

'-----------
Salutations
JJ

;-))))))))
Solution:
pour:
100 lignes avec une instruction unique.
[a1:a100] = "Je dois suivre les instructions données sur le forum"

pour la MEFC
Sélection de A1:A100
Puis Format/mise en forme cond..
Condition1, la formule est:
=MOD(LIGNE(A1);2)=0
Puis format etc......

Bonne journée
JJ