nommer des plages a la suite

[auverland]

bonjour,

J'arrive pas à incrémenter une variable pour nommer des plages de cellules.
Je souhaites nommer les plages F6:H6, F7:H7 ect...
pour cela j'ai écris


Dim j As Integer

If FileDate.Created(recMyFiles(i).sPath & recMyFiles(i).sName) > 1 / 1 / 2009 Then
j = 5


classeur_data.Sheets("DT").Range("F" & j & ":H" & j).Name = "STOP"
classeur_data.Sheets("DT").Range("F" & j + 1 & ":H" & j + 1).Name = "LIg"
classeur_data.Sheets("DT").Range("F" & j + 1 & ":H" & j + 1).Name = "CCP"

Mais cela ne fonctionne pas
Pouvez-vous m'aider ?
Merci d'avance

 

[Dugenou]

Re : nommer des plages a la suite

Salut,
je suis pas bon en VBA mais à la lecture de ton code : je crois que le >1/1/2009 ne fonctionne pas : il faudrait plutôt > date(...)
et d'autre part la zone CCP a la même définition que la zone Lig non ?

Cordialement

 

[auverland]

Re : nommer des plages a la suite

Bonjour,

En effet >1/1/2009 fonctionne pas bien mais j'ai pas encore chercher de solution. certainement qu'avec Date cela fonctionnera
Mon soucis est que la variable j ne s'incrémente pas d'où ma demande d'aide
y a t il une solution VBA pour que J s'incrémente sur chaque ligne ?
Je souhaite nommer avec des noms différents des plages les unes sous les autres Range afin d'éviter d'écrire chaque zone une a une

classeur_data.Sheets("DT").Range("$F$10:$H$10").Name = "AZE"
classeur_data.Sheets("DT").Range("$F$11:$H$11").Name = "FGR"
classeur_data.Sheets("DT").Range("$F$12:$H$12").Name = "LOP"

Merci d'avance et bonne semaine

 

[Dugenou]

Re : nommer des plages a la suite

euh
N=J
classeur_data.Sheets("DT").Range("F" & N & ":H" & N).Name = "STOP"
N=N+1
classeur_data.Sheets("DT").Range("F" & N & ":H" &N).Name = "LIg"
N=N+1
classeur_data.Sheets("DT").Range("F" & N & ":H" & N).Name = "CCP"

 

[auverland]

Re : nommer des plages a la suite

je vais rester sur :
classeur_data.Sheets("DT").Range("$F$10:$H$10").Name = "AZE"
classeur_data.Sheets("DT").Range("$F$11:$H$11").Name = "FGR"
classeur_data.Sheets("DT").Range("$F$12:$H$12").Name = "LOP"
cela me fera moins de ligne

Pouvez-vous m'expliquer pourquoi cette commande fonctionne pas :

If FileDate.Created(recMyFiles(i).sPath & recMyFiles(i).sName) > 1 / 1 / 2009 Then

je souhaite déclencher ma macro uniquement pour les fichiers anterieur à 2009

 

[tototiti2008]

Re : nommer des plages a la suite

Bonjour à tous,

peut-être

If FileDate.Created(recMyFiles(i).sPath & recMyFiles(i).sName) > cdate("1/1/2009") Then