Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un format à
A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer le
format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un format à
A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer le
format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un format à
A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer le
format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste d'actualité.
à+twinley
twinley wrote:Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un format
à A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer le
format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste d'actualité.
à+twinley
twinley wrote:
Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un format
à A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer le
format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste d'actualité.
à+twinley
twinley wrote:Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un format
à A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer le
format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste d'actualité.
à+twinley
twinley wrote:Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un format à
A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer le
format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste d'actualité.
à+twinley
twinley wrote:
Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un format à
A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer le
format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste d'actualité.
à+twinley
twinley wrote:Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un format à
A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer le
format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste d'actualité.
à+twinley
twinley wrote:Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un format
à A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer le
format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste d'actualité.
à+twinley
twinley wrote:
Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un format
à A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer le
format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste d'actualité.
à+twinley
twinley wrote:Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un format
à A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer le
format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
bonjour,
Sheets(1).Range("A1") = Format(m, "mmmm")
A+C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste
d'actualité.
à+twinley
twinley wrote:Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un
format à A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer
le format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
bonjour,
Sheets(1).Range("A1") = Format(m, "mmmm")
A+
C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste
d'actualité.
à+twinley
twinley wrote:
Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un
format à A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer
le format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
bonjour,
Sheets(1).Range("A1") = Format(m, "mmmm")
A+C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste
d'actualité.
à+twinley
twinley wrote:Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un
format à A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer
le format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
ohlàlà ça se corse
j'ai tenté :
Sheets(f).[A1].Formula = "=TEXTE(A1;""mmmm"")"
et la formule simple
=TEXTE(A1;"mmmm")
c'est la Bérézina
Comment traduire une cell qui contient 1 en janvier, 2 en février, 3 en
mars etc.
Merci pour l'éclairage.
à+twinley
twinley wrote:C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste
d'actualité.
à+twinley
twinley wrote:Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un
format à A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer
le format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
ohlàlà ça se corse
j'ai tenté :
Sheets(f).[A1].Formula = "=TEXTE(A1;""mmmm"")"
et la formule simple
=TEXTE(A1;"mmmm")
c'est la Bérézina
Comment traduire une cell qui contient 1 en janvier, 2 en février, 3 en
mars etc.
Merci pour l'éclairage.
à+twinley
twinley wrote:
C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste
d'actualité.
à+twinley
twinley wrote:
Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un
format à A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer
le format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
ohlàlà ça se corse
j'ai tenté :
Sheets(f).[A1].Formula = "=TEXTE(A1;""mmmm"")"
et la formule simple
=TEXTE(A1;"mmmm")
c'est la Bérézina
Comment traduire une cell qui contient 1 en janvier, 2 en février, 3 en
mars etc.
Merci pour l'éclairage.
à+twinley
twinley wrote:C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste
d'actualité.
à+twinley
twinley wrote:Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un
format à A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer
le format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
mes excuses pour formule foireuse
celle-ci marche sous réserve d'avoir Excel 2000. Un peu compliqué mais y
ai été sans trop de réflexiopn préalabme
Sheets(1).Range("A" & m) = Split(FormatDateTime("01/" & m & "/01",
vbLongDate), " ")(2)
A+bonjour,
Sheets(1).Range("A1") = Format(m, "mmmm")
A+C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste
d'actualité.
à+twinley
twinley wrote:Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un
format à A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer
le format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
mes excuses pour formule foireuse
celle-ci marche sous réserve d'avoir Excel 2000. Un peu compliqué mais y
ai été sans trop de réflexiopn préalabme
Sheets(1).Range("A" & m) = Split(FormatDateTime("01/" & m & "/01",
vbLongDate), " ")(2)
A+
bonjour,
Sheets(1).Range("A1") = Format(m, "mmmm")
A+
C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste
d'actualité.
à+twinley
twinley wrote:
Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un
format à A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer
le format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
mes excuses pour formule foireuse
celle-ci marche sous réserve d'avoir Excel 2000. Un peu compliqué mais y
ai été sans trop de réflexiopn préalabme
Sheets(1).Range("A" & m) = Split(FormatDateTime("01/" & m & "/01",
vbLongDate), " ")(2)
A+bonjour,
Sheets(1).Range("A1") = Format(m, "mmmm")
A+C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste
d'actualité.
à+twinley
twinley wrote:Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un
format à A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer
le format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
bonjour twinley,
x = Format(Evaluate("DATE(2005,A1,1)"), "mmmm")
isabelleohlàlà ça se corse
j'ai tenté :
Sheets(f).[A1].Formula = "=TEXTE(A1;""mmmm"")"
et la formule simple
=TEXTE(A1;"mmmm")
c'est la Bérézina
Comment traduire une cell qui contient 1 en janvier, 2 en février, 3
en mars etc.
Merci pour l'éclairage.
à+twinley
twinley wrote:C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste
d'actualité.
à+twinley
twinley wrote:Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un
format à A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer
le format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
bonjour twinley,
x = Format(Evaluate("DATE(2005,A1,1)"), "mmmm")
isabelle
ohlàlà ça se corse
j'ai tenté :
Sheets(f).[A1].Formula = "=TEXTE(A1;""mmmm"")"
et la formule simple
=TEXTE(A1;"mmmm")
c'est la Bérézina
Comment traduire une cell qui contient 1 en janvier, 2 en février, 3
en mars etc.
Merci pour l'éclairage.
à+twinley
twinley wrote:
C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste
d'actualité.
à+twinley
twinley wrote:
Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un
format à A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer
le format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
bonjour twinley,
x = Format(Evaluate("DATE(2005,A1,1)"), "mmmm")
isabelleohlàlà ça se corse
j'ai tenté :
Sheets(f).[A1].Formula = "=TEXTE(A1;""mmmm"")"
et la formule simple
=TEXTE(A1;"mmmm")
c'est la Bérézina
Comment traduire une cell qui contient 1 en janvier, 2 en février, 3
en mars etc.
Merci pour l'éclairage.
à+twinley
twinley wrote:C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste
d'actualité.
à+twinley
twinley wrote:Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un
format à A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer
le format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
mes excuses pour formule foireuse
celle-ci marche sous réserve d'avoir Excel 2000. Un peu compliqué mais y
ai été sans trop de réflexiopn préalabme
Sheets(1).Range("A" & m) = Split(FormatDateTime("01/" & m & "/01",
vbLongDate), " ")(2)
A+bonjour,
Sheets(1).Range("A1") = Format(m, "mmmm")
A+C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste
d'actualité.
à+twinley
twinley wrote:Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un
format à A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer
le format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
mes excuses pour formule foireuse
celle-ci marche sous réserve d'avoir Excel 2000. Un peu compliqué mais y
ai été sans trop de réflexiopn préalabme
Sheets(1).Range("A" & m) = Split(FormatDateTime("01/" & m & "/01",
vbLongDate), " ")(2)
A+
bonjour,
Sheets(1).Range("A1") = Format(m, "mmmm")
A+
C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste
d'actualité.
à+twinley
twinley wrote:
Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un
format à A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer
le format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
mes excuses pour formule foireuse
celle-ci marche sous réserve d'avoir Excel 2000. Un peu compliqué mais y
ai été sans trop de réflexiopn préalabme
Sheets(1).Range("A" & m) = Split(FormatDateTime("01/" & m & "/01",
vbLongDate), " ")(2)
A+bonjour,
Sheets(1).Range("A1") = Format(m, "mmmm")
A+C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste
d'actualité.
à+twinley
twinley wrote:Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un
format à A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer
le format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
Bonjour.
C'est normal puisque 2 veut dire 02/01/1900 ou 02/01/1904. Que veux-tu
saisir exactement ? 01/01/2005 formatée janvier ? ou directement "janvier" ?
Cordialement.
Daniel
"twinley" a écrit dans le message de news:C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste d'actualité.
à+twinley
twinley wrote:Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un format à
A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer le
format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
Bonjour.
C'est normal puisque 2 veut dire 02/01/1900 ou 02/01/1904. Que veux-tu
saisir exactement ? 01/01/2005 formatée janvier ? ou directement "janvier" ?
Cordialement.
Daniel
"twinley" <twinleymax@hotmail.com> a écrit dans le message de news:
uTk4eT1eFHA.3160@TK2MSFTNGP09.phx.gbl...
C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste d'actualité.
à+twinley
twinley wrote:
Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un format à
A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer le
format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.
Bonjour.
C'est normal puisque 2 veut dire 02/01/1900 ou 02/01/1904. Que veux-tu
saisir exactement ? 01/01/2005 formatée janvier ? ou directement "janvier" ?
Cordialement.
Daniel
"twinley" a écrit dans le message de news:C'est un peu plus complexe car le deux est pris pour le deux janvier.
Il faut que j'améliore mais la contraction en une ligne reste d'actualité.
à+twinley
twinley wrote:Bonsoir,
Dans une petite boucle, je veux écrire en A1 de chaque feuille 7 à 18
le chiffre 1 ou 2 ou 3 etc. 11 et enfin 12.
Dans le foulée du formatage de colonne, je voulais appliquer un format à
A1 pour modifier le 1 en janvier, le 2 en Février etc.
J'ai mis m en variant, en integer ça passe pas mieux.
Dim f As Integer
Dim m As Integer
For f = 7 To 18
Sheets(1).Select
Sheets(1).Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(f).Range("A1")
Sheets(f).Select
Sheets(f).Range("1:1").EntireColumn.AutoFit
m = f - 6
Sheets(f).Range("A1") = m
Sheets(f).Range("A1").NumberFormat = "mmmm"
Next f
Cette boucle fait le boulot.
Mais je voulais faire attribuer la valeur à la cellule et appliquer le
format en un seul coup de cuillere à pot
Sheets(f).Range("A1") = m.Format("mmmm")
Mais j'ai une erreur objet requis.
Comment appliquer le format texte sur ce nombre que je veux faire
reconnaitre comme mois ? Si c'est posssible en une ligne...
merci pour l'aide.