Selectionner toutes les valeurs des cellules

Bonjour,

j'ai un petit soucis de code car je n'arrive pas a récupérer toutes les valeurs des cellules d'un tableau au préalable sélectionné.

Mon but, copier coller toutes les valeurs d'un tableau (que les lignes visibles) dans un nouveau tableau.

Copier/coller marche mais les valeurs ne sont pas justes si elles sont issues d'un calcul d'autres cellules.

Voici la partie de code qui me permet de sélectionner ce qui m’intéresse :

    Range("A1").CurrentRegion.Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy

Si quelqu'un a une idée de quoi rajouter pour me permettre cette manipulation, je suis preneur.

J'ai cru comprendre que le copier coller n'étais pas forcement la meilleure méthode (mon presse papier s'emballe assez!) mais étant débutant je n'ai pas trouve de solution alternative efficace.

D'avance merci pour votre aide!

Il faut que tu colles en valeurs.

Pastespecial xlvalues

Merci pour la réponse.

J'ai oublie que ma manière de coller a aussi son importance.

Donc j'essaie cette dernière mais malheureusement mon incompétence reprends le dessus.

Voici mon nouveau code

Copier :

    Range("A1").CurrentRegion.Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy

Coller :

    Windows("Macro.xlsm").Activate    
    Sheets("Temp").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues

Il me retourne erreur 1004 ; la methode pastespecial de la classe range a echoue. Une idee?

Bonjour Stranger J'espère que tout aille pour le mieux chez toi,

Voici un code qui devrait répondre à ton attente :

Sub aa()
    Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
    Windows("Macro.xlsm").Activate
    Sheets("Temp").Select
    Range("A1").PasteSpecial Paste:=xlPasteValues
End Sub

En annexe, un fichier joint car c'est toujours très utile.

Très cordialement.