Discussion :

[kkc85]

Bonjour,

Je recherche à faire une macro qui sélection de A1 - A2 - A3... jusqu'à ce qu'il atteigne une cellule où il y a d'écrit "conso" dans le but ensuite de coller cette sélection.
Merci pour votre aide

[Menhir]

Tu trouves "conso" avec un Find et tu mets le résultat dans une variable de type Range.
Tu vérifies que cette variable ne contient pas Nothing.
Tu fais un Range allant de "A1" jusqu'à la référence contenue dans cette variable.
A lire : https://msdn.microsoft.com/fr-fr/lib.../ff839746.aspx

[kkc85]

j'ai essayé de faire un style comme ça mais je n'y suis pas arrivé
en commençant par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim a as Range
Dim DernierMot as string
DernierMot = "conso"
set a =.cells.find(A1;... ??

je plante !! pouvez vous m'aider d'avantage ?

[jeanmidudu]

Bonjour,

Commence par écrire un code entier, si tu as des erreurs ou qu'il ne fonctionne pas correctement, nous t'aiderons (mais nous ne ferons pas le travail à ta place).
Merci d'utiliser les balises [code] [ /code] également
Pour t'aider, consulte l'aide microsoft pour l'utilisation de "find"
Et petite information : pour utiliser " .cells...", il faut avoir défini l'objet avec lequel tu travailles auparavant avec "With tonObjet" (ici la feuille de ton classeur dans laquelle tu effectues la recherche)

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

set a =.cells.find(A1;... ??

je plante !! pouvez vous m'aider d'avantage ?

Déjà, commence par lire le contenu du lien que j'ai placé dans mon message précédent.

Autre conseil : écris ta macro dans l'éditeur VBA.
Parce que ce que tu as mis dans ton message n'est certainement pas issu de l'éditeur.