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

Selection sous condition

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 !

karinette

XLDnaute Occasionnel
Bonjour à tous,
J'ai un soucis avec un copier/coller, et j'espère que quelqu'un aura une solution.
J'ai un fichier ou j'extrais des données d'un autre fichier en VBA.
Mon problème est le suivant :
Il me faut à chaque fois faire un copier/coller de la cellule nommée "HORAIRES" à la cellule nommée "TOTAL" ....
Mon soucis est que ces cellules ne sont jamais à la même place ..
Est ce qu'une macro avec des condition de selection pourrait exister ??
Merci d'avance ... Si quelqu'un peut m'aider .... 😕
 
Re : Selection sous condition

Bonjour karinette,

si tes cellules sont nommées, ça ne pose pas de soucis.
les noms Horaires et Total font partie de la même feuille ?
si c'est le cas :

Activesheet.Range("HORAIRES").copy Activesheet.Range("TOTAL")
 
Re : Selection sous condition

Les cellules sont toujours sur la même feuille.
"HORAIRES" et parfois en B1, parfois en B2 etc ...
"TOTAL" est parfois en V15, parfois en V16 etc ...
C'est la plage ("B1:V15") ou ("B2:V16") (Jamais au même endroit) ... qui m'interresse ...
J'ai testé la macro mais j'ai une erreur d'execution "1004"
🙁
 
Re : Selection sous condition

dis moi si c'est le texte "HoRAIRES" qui se trouve en B1 ou B2
ou bien si
la Cellule B1 ou B2 est Nommée Horaires (Menu Insertion-Nom-Définir)
ce qui ne signifie pas la même chose...
 
Re : Selection sous condition

Pour sélectionner la plage du mot Horaires au mot Total :

LigneHor = Application.worksheetFunction.match("Horaires",Activesheet.range("B1:B65536"),0)
LigneTot = Application.worksheetFunction.match("Total",Activesheet.range("V1:V65536"),0)
Activesheet.Range("B" & LigneHor & ":V" & LigneTot).select
 
- 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

Réponses
7
Affichages
288
Réponses
18
Affichages
611
Réponses
10
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…