Selection sous condition

[karinette]

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 .... 😕

 

[tototiti2008]

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")

 

[karinette]

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"
🙁

 

[tototiti2008]

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...

 

[karinette]

Re : Selection sous condition

Sorry, c'est bien le texte "HORAIRES" qui se trouve en B1 ou B2 ....
La cellule n'est pas "nommée".

 

[tototiti2008]

Re : Selection sous condition

et donc, le mot Horaires se trouve-t-il toujours en colonne B ?
le mot TOTAL toujours en colonne V ?

 

[karinette]

Re : Selection sous condition

Oui, il sont toujours sur la même colonne, il n'y a que la position qui change, suivant le nombre de données placées avant ...

 

[tototiti2008]

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

 

[karinette]

Re : Selection sous condition

Alors là, merci !!
C'est exactement ça !!!
BRAVO