Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Code Vba pour sélect. cell. suivante

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
 

G.David

XLDnaute Impliqué
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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]
 

Pièces jointes

  • copie.zip
    6.1 KB · Affichages: 460
  • copie.zip
    6.1 KB · Affichages: 419
  • copie.zip
    6.1 KB · Affichages: 433

jepi67

XLDnaute Occasionnel
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

XLDnaute Impliqué
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

  • CopieCellule.zip
    7.9 KB · Affichages: 188
  • CopieCellule.zip
    7.9 KB · Affichages: 192
  • CopieCellule.zip
    7.9 KB · Affichages: 187

jepi67

XLDnaute Occasionnel
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
 

Discussions similaires

Réponses
0
Affichages
170
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…