Figer un code vba

[BIGOKOU]

BONJOUR

MA QUESTION EST LA SUIVANT J AI CE CODE

Range("F1").Value = Sheets(1).Name & "_" & "=Month(Now())-1 & " / " & Year(Now())"
Range("F1").Select
Selection.AutoFill Destination:=Range("F1:F" & NN + 1)

MAIS LORSQU IL Y A PLUSIEURS IL CHANGE SYSTEMATIQUEMET D ANNEE EX
08.2012
08.2013
08.2014
ETC QUELQUES A UNE SOLUTION

MERCI A VOUS

 

[Papou-net]

Re : Figer un code vba

Bonjour BIGOKOU,

Il n'est déjà pas toujours facile de comprendre l'énoncé d'un problème, alors si en plus tu t'exprimes en criant (écriture en majuscules), ça devient impossible de te répondre.

Peut-être en joignant un fichier exemple ?

Cordialement.

 

[phlaurent55]

Re : Figer un code vba

Bonjour à tous

alors si en plus tu t'exprimes en criant

Moi aussi je croyais que tu étais sourd Papou

Plus sérieusement:
lorsqu'on recopie une cellule vers le bas elle s'incrémente sauf si cette cellule est au format texte

il suffit de modifier la première ligne comme ceci:

Range("F1").Value =Cstr(.................

à+
Philippe

 

[BIGOKOU]

Re : Figer un code vba

désolé bon je vais essayer lorsque lance la macro comme j ai plusieurs ligne selectionne le code que j ai tappé me mets à chaque nouvelle ligne crée la suite logique des années à suivres ex
08.2012
08.2013

et c est que je veux pas

j espere que c est plus claire

 

[BIGOKOU]

Re : Figer un code vba

ca marche pas le Cstr???

a quel moment je dois l ecrire

 

[Compte Supprimé 979]

Re : Figer un code vba

Re,

Peut-être tout simplement comme ceci

Range("F1:F" & NN + 1).Value = Sheets(1).Name & "_" & Month(Now()) - 1 & " / " & Year(Now())

A+

 

[BIGOKOU]

Re : Figer un code vba

non ca ne marche pas les cellules s incremente automatiquement

 

[Compte Supprimé 979]

Re : Figer un code vba

Re,

NON, si tu supprimes la ligne AutoFill

Tu remplaces le code que tu nous as donné, par cette unique ligne

a+

 

[phlaurent55]

Re : Figer un code vba

Re,

essaie ceci:

Sub Macro1()
Range("F1").Value = Sheets(1).Name & "_" & Month(Now()) - 1 & " / " & Year(Now()) & "."
Range("F1").Select
Selection.AutoFill Destination:=Range("F1:F30"), Type:=xlFillDefault
End Sub

à+
Philippe