Copier dans la cellule avtive

[Evelynetfrancois]

bonjour tous le monde (Forum)

voici ma Q
je voudrais
apres avoir selectionner la cellule "A1"
cliquer sur un bouton macro qui me copierait la cellule "B2"
dans "A1"(cellule active )
j'ai recherche avec l'enregistreur , mais sans resultat
merci de me depatouiller
bonne journée et merci d'avance
Evelynetfrancois

 

[Vériland]

Bonjour Evelynetfrancois et toi le Forum,

tu peux le faire de cette manière avec une macro évènementielle...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address() = "$A$1" Then
[A1] = Range("B2").Value
End If
End Sub

dès que tu cliques sur la cellule A1 alors s'affiche la valeur de B2 dans celle-ci...

Code à placer dans la feuille active dans VBA...

Bonne programmantion

PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...

 

[Evelynetfrancois]

bonjour: Vériland

Non ça ne convient pas : il ne faut pas que ce soit évènementielle...
mais sur "ordre" : (bouton)

comme un copier coller , avec mise en forme identique etc..
1) je clic la cellule de destination (elle devient donc Active)
2) je clic sur le bouton (là je mets la macro que tu vas surement trouvé , lol !)
3) la cellule active prend alors la "copie" de "B2" (comme un copier coller quoi!! )

en tout cas MERCI pour ta reponse rapide

à bientôt
Evelynetfrancois

 

[Evelynetfrancois]

Sub Macro1()
ActiveCell = "©" 'ActiveCell (=A1) ="©" (B2)
ActiveCell.Font.Size = 22
ActiveCell.Font.ColorIndex = 3
End Sub
j'ai contourne le prob
merci pour tout
Evelyne

 

[Vériland]

Re Evelynetfrancois et toi le Forum...

me revoiloù...lol

Ah ok...j'ai pas tout capté alors...hi hi hi...bon ben je te propose néanmoins cette procédure que tu vas pouvoir appeler depuis un bouton...

Option Explicit

Sub coller()
[B2].Copy
ActiveCell.Select
ActiveSheet.Paste
Application.CutCopyMode = True
End Sub

le principe est simple on copie B2 et on colle son contenu dans la cellule active...

et ta cellule B2 quelle soit bleue, verte, rouge, violette, en Gras italique etc...sera reproduite à l'identique dans la cellule active...

Allez bonne programmation

PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...

 

[Evelynetfrancois]

Bonjour Vériland
Super c'est exactement ce que je cherché
MERCI BEAUCOUP
a bientot
Evelynetfrancois