Macro collage spécial Fermé

Question

Bonjour à tous les experts de la planète CCM.

J'ai un bête problème que je ne parviens pas à résoudre et je sollicite votre aide, qui sera, je le sais, excellente comme d'habitude.

J'ai donc un Classeur avec 2 feuilles;
Sur la première feuille est écrit du texte avec formule.

La seconde feuille doit pouvoir reprendre le texte mais sans formules.

En fait, il faut que je puisse obtenir l'équivalent du copier/collage spécial-->valeur en cliquant sur un bouton macro.

L'objectif est ensuite de pouvoir ensuite l'enregistrer en format CSV puisqu'il ne prend pas en compte les formules semble t-il.


Je précise qua je connais très bien Excel mais pas les macros donc à celle ou celui qui m'apporte une aide, merci de me considérer comme un enfant... 

Une infinité de merci à vous tous.7



Configuration: Windows / Firefox 66.0

via55 · Answer

Bonjour userbear

Utilise l'enregistreur de macro (Developpeur - Enregistrer une macro)
Tu lances l'enregistreur, tu fais la manip de copier ta plage et de la coller en collage spécial Valeurs et tu arrêtes l'enregisteur
ALt+F11 pour ouvrir l'éditeur VBA et tu cliques sur Module 1 dans l'arborescence pour voir le code de la macro

Tu peux ensuite lancer cette macro depuis ton classeur à partir de Developpeur - Macros - Exécuter ou bien tu crées un bouton sur la feuille (Developpeur - Inserer -  Contrôles de formulaire - icône bouton) et tu associe la macro

Exemple de macro que j'ai obtenue avec l'enregistreur en copiant-collant la plage A2:A14
Sub Macro1()
'
' Macro1 Macro
'

Sheets("Feuil1").Select
    Range("A2:A14").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
Cdlmnt
Via

via55 · Answer

Re

Je ne comprends pas bien ce que tu veux faire
Tu as des cellules éparses remplies dans la plage A1:F500
Tu voudrais ne copier que ces cellules ?
Mais dans ce cas où les copier ? Les unes en dessous des autres ?

Si ton tableau comporte des lignes vides tu peux déjà le filtrer en décochant Vide 

Un exemple de ton fichier serait le bienveni
Exemple à poster sur mon-partage.fr, faire créer un lien, le copier et revenir le coller ici

Cdlmnt
Via

via55 · Answer

Donc si je comprend bien il faut trouver la dernière remplie dans l colonnes A à F toutes les colonnes sont remplies de A à F, il suffit donc déterminer la dernière ligne remplie en A  pour connaître la plage A1:Fx à copier ?
Dans ce cas la macro deviendrait :
Sub recopie()

Sheets("Feuil1").Select
    ligne = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row 'dernière ligne remplie col A
    MsgBox ligne

Range("A1:F" & ligne).Select
    Selection.Copy

Sheets("Feuil2").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Macro collage spécial

3 réponses

Discussions similaires