Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Copier/Coller avec option, à l'aide d'un bouton

3 réponses
Avatar
Willi2004
Bonjour à tous et bonne année 2009.
Je voudrais copier un plage (B2:B80) de cellules contenant toutes une
formule, puis la coller dans une autre plage (D2:D80) avec option de collage
"Valeurs uniquement". Le tout juste en cliquant sur un bouton de commande.
Est-ce réalisable? Merci de votre aide.

3 réponses

Avatar
Jacky
Bonne année 2009

Création d'un boutons par la boite à outils contrôle
'Code du bouton
'--------------
Private Sub CommandButton1_Click()
CopieValeur
End Sub

'--------------
'Dans un module standard
'-------------
Sub CopieValeur()
Application.ScreenUpdating = False
[b2:b80].Copy
[d2].PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
[d2].Select
End Sub
'----------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200901/cijH5TsV4h.xls
--
Salutations
JJ


"Willi2004" a écrit dans le message de news:

Bonjour à tous et bonne année 2009.
Je voudrais copier un plage (B2:B80) de cellules contenant toutes une
formule, puis la coller dans une autre plage (D2:D80) avec option de
collage
"Valeurs uniquement". Le tout juste en cliquant sur un bouton de commande.
Est-ce réalisable? Merci de votre aide.





Avatar
Jacky
Re..
Ou plus simplement sans l'instruction "copy"
'-----------
Sub CopieValeur()
[d2:d80] = [b2:b80].Value
End Sub
'-----------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200901/cijlEC7Eh1.xls
--
Salutations
JJ


"Jacky" a écrit dans le message de news:

Bonne année 2009

Création d'un boutons par la boite à outils contrôle
'Code du bouton
'--------------
Private Sub CommandButton1_Click()
CopieValeur
End Sub

'--------------
'Dans un module standard
'-------------
Sub CopieValeur()
Application.ScreenUpdating = False
[b2:b80].Copy
[d2].PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
[d2].Select
End Sub
'----------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200901/cijH5TsV4h.xls
--
Salutations
JJ


"Willi2004" a écrit dans le message de news:

Bonjour à tous et bonne année 2009.
Je voudrais copier un plage (B2:B80) de cellules contenant toutes une
formule, puis la coller dans une autre plage (D2:D80) avec option de
collage
"Valeurs uniquement". Le tout juste en cliquant sur un bouton de
commande.
Est-ce réalisable? Merci de votre aide.










Avatar
Willi2004
T'es un As Jacky!
Exactement ce que je voulais. Merci encore.

Jacky wrote:
Re..
Ou plus simplement sans l'instruction "copy"
'-----------
Sub CopieValeur()
[d2:d80] = [b2:b80].Value
End Sub
'-----------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200901/cijlEC7Eh1.xls

"Jacky" a écrit dans le message de news:

Bonne année 2009

Création d'un boutons par la boite à outils contrôle
'Code du bouton
'--------------
Private Sub CommandButton1_Click()
CopieValeur
End Sub

'--------------
'Dans un module standard
'-------------
Sub CopieValeur()
Application.ScreenUpdating = False
[b2:b80].Copy
[d2].PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
[d2].Select
End Sub
'----------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200901/cijH5TsV4h.xls
--
Salutations
JJ


"Willi2004" a écrit dans le message de news:

Bonjour à tous et bonne année 2009.
Je voudrais copier un plage (B2:B80) de cellules contenant toutes
une formule, puis la coller dans une autre plage (D2:D80) avec
option de collage
"Valeurs uniquement". Le tout juste en cliquant sur un bouton de
commande.
Est-ce réalisable? Merci de votre aide.