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

Le
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.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #18271251
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"
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.





Jacky
Le #18274991
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"
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"
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.










Willi2004
Le #18275581
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"
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"
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.






Publicité
Poster une réponse
Anonyme