Copier/coller valeur cellules visibles Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
K
Kayzah
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 19 mars 2017
Version d'Excel : 2013

Message par Kayzah » 20 novembre 2018, 11:44

Bonjour,

Je souhaiterais faire un copier/coller valeur des cellules visibles uniquements, au même emplacement.

Il y a actuellement dans le fichier joint une macro qui permet de :
Etape 1 : Cacher les colonnes et lignes que je ne souhaite pas copier
Etape 2 : Selectionner la plage contenant les cellules à sélectionner
Etape 3 : Sélectionner les cellules visibles de cette plage
Etape 4 : Et là je souhaiterais coller en valeur cette sélection et c'est la que je bloque

Extrait de la macro Etape 3
' Sélectionner plage B9:AD50, puis sélectionner les cellules visibles uniquement

    Range("B3:AD50").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    
    ' Et là je souhaiterais coller en valeur les cellules visibles sélectionner au même endroit
J'ai joins le fichier en valeur volontairement pour ne pas que vous aillez des erreurs #VALEUR car dans le fichier de base il y a normalement des références externes.

Je vous remercie d'avance.
Classeur1.xlsm
(25.76 Kio) Téléchargé 11 fois
Avatar du membre
Pedro22
Passionné d'Excel
Passionné d'Excel
Messages : 3'147
Appréciations reçues : 313
Inscrit le : 26 janvier 2017
Version d'Excel : 2010 FR
Version de Sheets : FR
Téléchargements : Mes applications

Message par Pedro22 » 21 novembre 2018, 08:30

Bonjour,

Je n'ai pas ouvert ton fichier, mais je dirais qu'un code du genre devrait faire l'affaire :
    Range("B3:AD50").SpecialCells(xlCellTypeVisible).Copy
    Range("B3:AD50").SpecialCells(xlCellTypeVisible).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
Merci de prendre 30 sec pour lire la charte du forum.
Quelques conseils : ici
K
Kayzah
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 19 mars 2017
Version d'Excel : 2013

Message par Kayzah » 21 novembre 2018, 08:46

Merci Pedro22

Non justement, en utilisant ton code j'ai le message d'erreur "Cette action ne fonctionne pas sur plusieurs sélection".

C'est l'erreur que j'obtenais aussi et que j'essaie justement de contourner via une macro

C'est cette étape qui bloque :
Range("B3:AD50").SpecialCells(xlCellTypeVisible).PasteSpecial xlPasteValues
Avatar du membre
Pedro22
Passionné d'Excel
Passionné d'Excel
Messages : 3'147
Appréciations reçues : 313
Inscrit le : 26 janvier 2017
Version d'Excel : 2010 FR
Version de Sheets : FR
Téléchargements : Mes applications

Message par Pedro22 » 21 novembre 2018, 09:18

Et comme ceci ?
For Each Cell In Range("B3:B50").SpecialCells(xlCellTypeVisible)
    Cell.EntireRow.Copy
    Cell.EntireRow.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
Next
Merci de prendre 30 sec pour lire la charte du forum.
Quelques conseils : ici
K
Kayzah
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 19 mars 2017
Version d'Excel : 2013

Message par Kayzah » 21 novembre 2018, 09:28

Impeccable Pedro22. Merci beaucoup.

ça fonctionne.
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'201
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 21 novembre 2018, 09:45

Bonjour, Salut Pedro !

C'est confus ! Ton tableau ne contient de toute façon que des valeurs, donc le résultat voulu est tout simplement d'en supprimer des colonnes et lignes ?
Avatar du membre
Pedro22
Passionné d'Excel
Passionné d'Excel
Messages : 3'147
Appréciations reçues : 313
Inscrit le : 26 janvier 2017
Version d'Excel : 2010 FR
Version de Sheets : FR
Téléchargements : Mes applications

Message par Pedro22 » 21 novembre 2018, 10:03

MFerrand a écrit :
21 novembre 2018, 09:45
Bonjour, Salut Pedro !

C'est confus ! Ton tableau ne contient de toute façon que des valeurs, donc le résultat voulu est tout simplement d'en supprimer des colonnes et lignes ?
Salut MFerrand,

De ce que j'ai compris, le fichier original comporte des formules qui ont été supprimées ici du fait de références externes.
Merci de prendre 30 sec pour lire la charte du forum.
Quelques conseils : ici
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'201
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 21 novembre 2018, 10:09

Salut Pedro !

C'est à préciser, en tout état de cause les formules devaient être dans les colonnes et lignes masquées/supprimées.
K
Kayzah
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 19 mars 2017
Version d'Excel : 2013

Message par Kayzah » 21 novembre 2018, 10:23

Pedro22 a écrit :
21 novembre 2018, 10:03
De ce que j'ai compris, le fichier original comporte des formules qui ont été supprimées ici du fait de références externes.
Oui, je confirme
MFerrand a écrit :
21 novembre 2018, 10:09
Salut Pedro !

C'est à préciser, en tout état de cause les formules devaient être dans les colonnes et lignes masquées/supprimées.
Je confirme aussi, les formules que je veux conserver sont dans les lignes et colonnes masquées, par contre les autres cellules restant visibles comprennaient également des formules avec références externes. C'est la raison pour laquelle je voulais les copier et coller en valeur pour pouvoir partager le fichier avec des tierces personnes.
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'201
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 21 novembre 2018, 12:20

Alors :
Sub Test()
    Dim i%, Ln
    With Worksheets("ACTIF à saisir").Range("A1").CurrentRegion
        .Value = .Value
        With .Offset(1, 1).Resize(1, .Columns.Count - 1)
            For i = 3 To .Columns.Count Step 3
                .Cells(1, i).ClearContents
            Next i
            .SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
        End With
        Ln = Array(4, 11, 18, 25, 27, 36, 40, 45, 47, 51, 52)
        For i = UBound(Ln) To 0 Step -1
            .Rows(Ln(i)).Delete
        Next i
    End With
End Sub
1 membre du forum aime ce message.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message