XL 2013 Coller seulement dans les cellules visibles

EveDesLys · 15 Juin 2022

Bonjour à tous,

J'ai des données dans une colonne que je veux copier et coller dans un autre onglet. Mais, dans mon autre onglet, il y a des cellules masquées et je veux qu'il les ignorent pour coller seulement sur les cellules visibles.

Merci d'avance de votre aide!

sylvanu · 16 Juin 2022

Bonjour EveDesLys,
On peut détecter si une cellule est visible ou non en regardant les propriétés .EntireRow.Hidden et EntireColumn.Hidden.
Par exemple si on regarde la cellule C1, on peut faire :

VB:

If [C1].EntireRow.Hidden Or [C1].EntireColumn.Hidden Then
    MsgBox " La cellule C1 est masquée"
Else
    MsgBox " La cellule C1 est visible"
End If

soan · 16 Juin 2022

Bonjour Ève, sylvanu,

sylvanu a raison : une feuille peut être masquée ou visible ; une ligne ou une colonne aussi, mais une cellule toute seule ne peut pas être masquée ou rendue visible, du moins pas tant qu'on agit sur la ligne ou la colonne qui la contient, ou sur la feuille entière qui contient cette cellule ; à noter que si tu masques la feuille entière, tu masques toutes les cellules, pas seulement la cellule que tu voulais masquer !

soan

JHA · 16 Juin 2022

Bonjour à tous,

Tu sélectionnes les données puis F5 atteindre cellules/cellules visibles uniquement.
Ensuite copier coller.

JHA

soan · 16 Juin 2022

Bonjour JHA,

EveDesLys à dit:
il y a des cellules masquées et je veux qu'ils les ignorent

EveDesLys à dit:
J'ai des données dans une colonne que je veux copier et coller dans un autre onglet.

je pense que ta manip est valable seulement si « ils » (les Men In Black) n'ont accès qu'à l'autre onglet ! (c'est dans le style : « ton autre permis de conduire et ton autre carte grise stp », dixit K) ; par contre si « ils » (oui, les mêmes personnes incognito, dont tout l'monde a oublié le nom) ont accès à l'onglet où doit s'effectuer la copie, je crains que ça ne puisse pas marcher ! car même ta manip ne pourra pas les empêcher de voir les cellules masquées s'ils en ont envie : il leur suffira de démasquer la ligne ou la colonne adéquate ! quant à protéger la feuille avec un mot de passe, on sait que c'est une protection illusoire et inefficace car un pro qui s'y connaît déprotège une feuille Excel protégée par mot de passe en moins de 5 minutes !

soan

EveDesLys · 17 Juin 2022

Merci à tous.

JHA, ce que tu as proposé fonctionne seulement pour ignorer les cellules masquées copiée et non collées.

Sylvanu, où est-ce que j'insèrerais ce que tu m'as écris dans la macro suivante (j'ai mit en gras la partie où je colle dans mon autre onglet) :

Sheets("Base de données").Select
Selection.Copy
Sheets("Hebdo").Select
Cells.Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
Application.Run "TEST.xlsm!CopierLignes"
Cells.Select
Selection.AutoFilter
Range("H3").Select
ActiveSheet.Range("$A$1:$AC$83").AutoFilter Field:=10, Criteria1:="<>"
ActiveSheet.Range("$A$1:$AC$83").AutoFilter Field:=8, Criteria1:="Semaines"
Application.Run "TEST.xlsm!Jour"
Sheets("RDV").Select
Range("P219").Select
Selection.Copy
Sheets("Hebdo").Select
Range("B62").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("A:A").Select
Selection.EntireColumn.Hidden = True
Columns("D:K").Select
Selection.EntireColumn.Hidden = True
Columns("N:N").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("N73").Select
Sheets("Étapes").Select
End Sub

Merci beaucoup!

soan · 17 Juin 2022

Bonjour,

EveDesLys à dit:
JHA, ce que tu as proposé fonctionne seulement pour ignorer les cellules masquées copiées et non collées.

oui, c'est bien ce qu'il m'avait semblé ! (j'avais donc vu juste !)

soan

sylvanu · 17 Juin 2022

Bonsoir tout le monde,
@EveDesLys ,
Avec un test sommaire, je ferais :

VB:

If [B62].EntireRow.Hidden = False And [B62].EntireColumn.Hidden = False Then
    [B62].Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=FalseElse
End If

Attention, le OU est devenu ET pour ne tester que Visible.

EveDesLys · 17 Juin 2022

Merci sylvanu, mais qu'est-ce que devrai remplacer dans ma macro? (voir mon dernier message) Merci.

TooFatBoy · 17 Juin 2022

Bonjour,

EveDesLys à dit:
Sylvanu, où est-ce que j'insèrerais ce que tu m'as écris dans la macro suivante (j'ai mit en gras la partie où je colle dans mon autre onglet)

Tu l'insèrerais dans le code du classeur que tu aurais posté en #1 en même temps que ta question.

~~@sylvanu : je n'y comprends pas grand chose, alors je me permet de poser une question peut-être saugrenue : tel quel, est-ce que le code de #8 ne copie pas uniquement la cellule B62 ?~~
[edit]
N'importe quoi ! Question stupide et complètement à côté de la plaque !
Shame on me !!!
Désolé Sylvanu
[/edit]

sylvanu · 17 Juin 2022

Bonsoir,
Moi qui pensais que c'était limpide !

Remplacez :
Range("B62").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Par :
If [B62].EntireRow.Hidden = False And [B62].EntireColumn.Hidden = False Then
[B62].Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=FalseElse
End If

TooFatBoy · 17 Juin 2022

EveDesLys à dit:
J'ai des données dans une colonne que je veux copier et coller dans un autre onglet. Mais, dans mon autre onglet, il y a des cellules masquées et je veux qu'il les ignorent pour coller seulement sur les cellules visibles.

A défaut d'un classeur (pas forcément utile ), est-ce que tu peux donner un exemple ?

C'est un truc du genre : copier B2:B6 d'une feuille, en C3;C7:C9;C12 de l'autre feuille ???

TooFatBoy · 17 Juin 2022

sylvanu à dit:
If [B62].EntireRow.Hidden = False And [B62].EntireColumn.Hidden = False Then
[B62].Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=FalseElse
End If

Avoue, c'est notre ami Lionel qui t'a donné ce code !?!

sylvanu · 17 Juin 2022

J'ai fait le minimum de modif dans le code de EveDesLys pour faire au plus simple, et au plus clair.
Apparemment c'est raté.
De toute façon je ne plonge jamais dans les Usine à Gaz, c'est trop dangereux et ça dépasse l'entendement.

EveDesLys · 17 Juin 2022

La macro "bogue" à la fin (la partie que j'ai mis en gras) Peux-tu m'aider à comprendre quelle est mon erreur STP :

Sub Hebdo()
'
' Hebdo Macro
'

'
Sheets("Base de données").Select
Selection.Copy
Sheets("Hebdo").Select
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.Run "TEST.xlsm!CopierLignes"
Selection.AutoFilter
Range("A4").Select
ActiveSheet.Range("$A$1:$AB$148").AutoFilter Field:=1, Operator:= _
xlFilterNoFill
ActiveSheet.Range("$A$1:$AB$148").AutoFilter Field:=8, Criteria1:= _
"Semaines"
ActiveSheet.Range("$A$1:$AB$148").AutoFilter Field:=10, Criteria1:="<>"
Columns("A:A").Select
Selection.EntireColumn.Hidden = True
Columns("D:J").Select
Selection.EntireColumn.Hidden = True
Columns("M:M").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B62").Select
Application.Run "TEST.xlsm!Jour"
Sheets("RDV").Select
Range("P219").Select
Selection.Copy
Sheets("Hebdo").Select
If [B62].EntireRow.Hidden = False And [B62].EntireColumn.Hidden = False Then
[B62].Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=FalseElse
End If
End Sub

XL 2013 Coller seulement dans les cellules visibles

EveDesLys

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

JHA

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

EveDesLys

XLDnaute Nouveau

soan

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

EveDesLys

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

EveDesLys

XLDnaute Nouveau

Discussions similaires