Discussion :

[speslurp]

Bonjour à tous,

Je dois faire une macro qui me permet de trouver un mot d'une cellule dans la colonne 6. une fois trouvé je dois copier la cellule juste au dessus et c'est la mon probleme.

La fonction de recherche :

Code :

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

1
2
3
4
5
6
Dim strChaine As String
 
'mot à trouver    
strChaine = "Cumul"
 
Set motTrouve = ActiveSheet.Columns(6).Cells.Find(what:=strChaine)

avec : motTrouve.Address
on récupere l'adresse de la cellule mais apres je bloque pour lui dire de selectionner et de copier la cellule juste au dessus..

Merci de votre aide!

[ouskel'n'or]

Code :

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

1
2
3
If not motTrouve is nothing then
     Cells(motTrouve.row -1, motTrouve.colum).value = motTrouve
endif

... si j'ai bien compris...

[speslurp]

Oki c'est ca! merci beaucoup

comme d'hab je cherché trop compliqué..

Mais dans :

Code :

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

Cells(motTrouve.Row - 1, motTrouve.colum).Value

le : motTrouve.colum ne passe pas, toute facon c'est la colonne 6 dans j'ai remplacé et ca passe sans problème!

Merci de la réponse rapide, c'est cool!

[ouskel'n'or]

Autant pour moi, c'est "motTrouve.column" et non "colum"