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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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.
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" <sav_prof.xyz@yahoo.fr> a écrit dans le message de news:
ucRJDpGbJHA.2716@TK2MSFTNGP04.phx.gbl...
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.
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.
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.
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" <Dupond@marcel.fr> a écrit dans le message de news:
eg04y9GbJHA.2716@TK2MSFTNGP04.phx.gbl...
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" <sav_prof.xyz@yahoo.fr> a écrit dans le message de news:
ucRJDpGbJHA.2716@TK2MSFTNGP04.phx.gbl...
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.
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.
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.
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" <Dupond@marcel.fr> a écrit dans le message de news:
eg04y9GbJHA.2716@TK2MSFTNGP04.phx.gbl...
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" <sav_prof.xyz@yahoo.fr> a écrit dans le message de news:
ucRJDpGbJHA.2716@TK2MSFTNGP04.phx.gbl...
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.
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.
