Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

nommer des plages a la suite

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

auverland

XLDnaute Occasionnel
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
 
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
 
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
 
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"
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
Réponses
3
Affichages
1 K
Alex6942
A
T
Réponses
3
Affichages
2 K
F
Réponses
0
Affichages
849
fred2705
F
L
Réponses
5
Affichages
2 K
lumiexcel
L
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…