XL 2010 VBA - Bouton copier les cellules de la colonne B

tchi456

XLDnaute Occasionnel
Bonjour,

Je souhaite créer un bouton pour pouvoir copier les cellules de la colonne B suivant la ligne ou la cellule sélectionnée:

Exemple 1: si la cellule A4 est sélectionnée, j'aimerai qu'en cliquant sur le bouton la cellule B4 soit copiée.
Exemple 2: si la cellule C8 est sélectionnée, j'aimerai qu'en cliquant sur le bouton la cellule B8 soit copiée.
Exemple 3: si la ligne 10 est sélectionnée, j'aimerai qu'en cliquant sur le bouton la cellule B10 soit copiée.

Etc..

Mes meilleures salutations,

Thierry
 

Phil69970

XLDnaute Barbatruc
Bonjour @tchi456

Plein de problème à ta question.....🤔

1)J'ai pas vu de fichier

2)Tu veux copier d'accord mais ou est ce que tu colles la valeur copiée ?

Exemple au pif :
VB:
Sub Copie_au_hasard()
ActiveCell.Offset(0, 1).Copy 'Copie la cellule d'a coté
With ActiveCell.Offset(0, 5) 'Colle de 5 cellules à droite par rapport à la cellule sélectionnée
    .PasteSpecial Paste:=xlPasteFormats
    .PasteSpecial Paste:=xlPasteValues
    .ClearOutline
End With
End Sub

*Merci de ta réponse

@Phil69970
 

Phil69970

XLDnaute Barbatruc
Re

C'est bien ce que fait le début de ma macro et que j'ai commenté

VB:
Sub Copie_au_hasard()
ActiveCell.Offset(0, 1).Copy 'Copie la cellule d'a coté

Pour le reste de la macro c'est juste pour montrer le principe ou on peut le coller car à un moment il te faudra bien coller la cellule copier autrement à quoi te sert de copier si tu colles jamais !!

@Phil69970
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof