Ne pas coller le cellules masquées

[sellig 29]

Bonjour à tous,

Je souhaite coller un tableau comprenant , dans l'exemple, 2 colonnes masquées. Lorsque je le sélectionne pour copier, le collé reproduit ensuite les cellules cachées😡
Existe t-il une astuce pour reproduire uniquement la partie visible?
Merci d'avance pour votre aide

 

[hoerwind]

Re : Ne pas coller le cellules masquées

Bonjour,

Tu obtiens le résultat souhaité en masquant les colonnes L et M.

Ou bien :
Sélectionner D6:I9
Touche clavier F5 - Cellules - Cellules visibles seulement - OK
Copier - Coller.

 

[ROGER2327]

Re : Ne pas coller le cellules masquées

Bonjour sellig 29

S'il s'agit de récupérer sur une feuille Feuil2 les données sélectionnées dans votre classeur d'hier, vous pouvez ajouter une feuille Feuil2 au classeur Sélection_3088 et compléter la procédure comme suit :

[COLOR="DarkSlateGray"]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i&, j&, tf As Boolean
   Application.ScreenUpdating = False
   If Target.Column = 1 Then
      Cancel = True
      Cells.EntireRow.Hidden = False
      Cells.EntireColumn.Hidden = False
   End If
   If Target.Row > 4 And Target.Column = 1 And Not IsEmpty(Target) Then
      With Range(Range("B5"), ActiveCell.SpecialCells(xlLastCell))
         For j = 1 To .Columns.Count
            If IsEmpty(Cells(Target.Row, .Columns(j).Column)) Then Columns(.Columns(j).Column).EntireColumn.Hidden = True
         Next j
         For i = 1 To .Rows.Count
            tf = True
            For j = 1 To .Columns.Count
               If Columns(.Columns(j).Column).EntireColumn.Hidden = False Then tf = tf And IsEmpty(.Cells(i, j))
            Next j
            If tf Then .Rows(i).EntireRow.Hidden = True
         Next i
      End With
   End If
   [B]With Sheets("Feuil2")
      .Cells.Clear
      Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).SpecialCells(xlCellTypeVisible).Copy Destination:=.Range("A1")
      .Range("A1") = Target.Value
   End With[/B]
   Application.ScreenUpdating = True
End Sub[/COLOR]

ROGER2327
#3099

 

[sellig 29]

Re : Ne pas coller le cellules masquées

Merci Hoerwind, c'est impec, je ne connaissais pas cette fonction!
Merci également Roger2327, il s'agit effectivement de ce fichier, l'une ou l'autre des 2 solutions me convient, je n'ai que l'embaras du choix... Peut être la votre sera toutefois plus adaptée 🙂🙂🙂