Code Vba pour sélect. cell. suivante

[jepi67]

Bonjour à toutes et à tous,

Je voudrais à partir d'une cellule quelconque, qui sera différente à chaque fois, copier le contenu (une valeur) de la cellule située juste en dessous et coller cette valeur seule (sans le format) dans la cellule de départ.
Exemple : cellule active C10, j'active ma macro, elle passe à C11, copie la cellule, repasse en C10 et colle (Collage spécial...) la valeur,FIN. La fois suivante ma cellule active peut se trouver n'importe ou dans la feuille.
Donc au lieu d'avoir

ActiveCell.Activate
    Range('C11').Select
    Selection.Copy
    Range('C10').Select
    Selection.PasteSpecial...

Il me faudrait :

Range([i]Cell en dessous[/i]).select
Selection.Copy
    Range([i]Cell au dessus[/i]).Select
    Selection.PasteSpecial...

Et si cela est possible, la même opération pour une sélection active de plusieurs cellules contigües sur une même ligne. Par ex. C10 à C15.

Merci d'avance pour votre aide à un autodidacte débutant en VbA

 

[G.David]

activecell.select
selectionne la cellule active
activecell.offset(1,0).value la valeur de la cellule au-dessous de la cellule active
activecell.value=activecell.offset(1,0).value
si tu colle ça dans une macros evenmetielle sur la feuille par exemple pour le double clic
tu rajoutes cancel=true
a un double clic sur une cellule tu copies le contenue de la cellule du dessous dans la cellule double cliquée
Cordialement
G.David

 

[jepi67]

Merci David et bonjour à tous,

J'ai collé tes codes dans mon module, mais quand je lance la macro par un clic sur le bouton il m'en voie un message : Erreur de compilation
Utilisation incorrecte de la propriété.

Je n'ai pas tout compris ...

a+
Jepi

 

[mutzik]

Bonjour jepi67, Gdavid, le forum

Voila qui devrait faire ton bonheur

à+
Bertrand [file name=copie.zip size=6295]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/copie.zip[/file]

 

[jepi67]

Bonjour mutzik, Gdavid, le forum,

Merci,

J'ai collé ton code dans la feuille et CA MARCHE, pardon je ne voulais pas crier si fort, mais je suis content et vous remercie de votre aide.

bon appétit,

Jepi

 

[Baside]

Bonjour jepi67 le fil le forum

Regarde le fichier joint et double clique sur une cellule au dessus d'une contenent un chiffre

Baside [file name=CopieCellule.zip size=8046]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CopieCellule.zip[/file]

 

[jepi67]

Merci Bastide,

mais la solution précédente me convient mieux car elle répond =ment à la seconde partie de ma question (selection plage sur même ligne)

Bonjour à tous
Jepi