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

[tchi456]

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]

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 :

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

 

[tchi456]

Bonjour Phil69970,

Merci pour votre proposition. Je recherchais ceci:

Sub BoutonCopierCelluleEnColonneB()
Cells(ActiveCell.Row, 2).Copy
End Sub

Mes meilleures salutations,

Thierry

 

[Phil69970]

Re

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

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

 

[tchi456]

Re,

Le collage se fera par bouton de droite sur un autre type de fichier.

Cordialement,

Thierry