Code Vba pour sélect. cell. suivante

  • Initiateur de la discussion Initiateur de la discussion jepi67
  • Date de début Date de début

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 !

jepi67

XLDnaute Occasionnel
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
Code:
ActiveCell.Activate
    Range('C11').Select
    Selection.Copy
    Range('C10').Select
    Selection.PasteSpecial...
Il me faudrait :
Code:
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 🙁
 
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
 
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
 
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]
 

Pièces jointes

- 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
6
Affichages
305
Réponses
32
Affichages
1 K
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
862
Réponses
4
Affichages
244
Réponses
0
Affichages
463
Retour