Recopie "intempestive" de cellules maquées (vba)

Le
j-pascal
Bonjour,

Si j'ai : "Set Plage_Infos_2 = .Range("A12:A13").EntireRow"

Et que je colle la plage nommée ailleurs, ça me colle (aussi) les
cellules masquées !

Comment faire en sorte que seules les cellules visibles soient copiées
?

Merci pour vos lumières,

JP
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #19228741
bonjour Jp,

essai comme ça :

Set Plage_Infos_2 =
.Range("A12:A13").CurrentRegion.SpecialCells(xlCellTypeVisible)

isabelle

j-pascal a écrit :
Bonjour,

Si j'ai : "Set Plage_Infos_2 = .Range("A12:A13").EntireRow"

Et que je colle la plage nommée ailleurs, ça me colle (aussi) les
cellules masquées !

Comment faire en sorte que seules les cellules visibles soient copiées ?

Merci pour vos lumières,

JP




Jacky
Le #19228731
Bonjour,

Une piste....
colle en A1 les cellules visible(a12:a13) dans cet exemple
'--------------
Plage_Infos_2.SpecialCells(xlCellTypeVisible).Copy [a1]
'--------------
--
Salutations
JJ


"j-pascal"
Bonjour,

Si j'ai : "Set Plage_Infos_2 = .Range("A12:A13").EntireRow"

Et que je colle la plage nommée ailleurs, ça me colle (aussi) les cellules
masquées !

Comment faire en sorte que seules les cellules visibles soient copiées ?

Merci pour vos lumières,

JP




j-pascal
Le #19228721
En fait, il faudrait que je puisse adapter ça :

Selection.SpecialCells(xlCellTypeVisible).Select

Bonjour,

Si j'ai : "Set Plage_Infos_2 = .Range("A12:A13").EntireRow"

Et que je colle la plage nommée ailleurs, ça me colle (aussi) les cellules
masquées !

Comment faire en sorte que seules les cellules visibles soient copiées ?

Merci pour vos lumières,

JP


j-pascal
Le #19228711
Bonjour Jacky,

Merci pour ta réponse.

Je venais de faire ceci :

Set Plage_Date =
.Range("A11:A11").EntireRow.SpecialCells(xlCellTypeVisible)

et a priori ça fonctionnait !

JP

Bonjour,

Une piste....
colle en A1 les cellules visible(a12:a13) dans cet exemple
'--------------
Plage_Infos_2.SpecialCells(xlCellTypeVisible).Copy [a1]
'--------------
--
Salutations
JJ


"j-pascal"
Bonjour,

Si j'ai : "Set Plage_Infos_2 = .Range("A12:A13").EntireRow"

Et que je colle la plage nommée ailleurs, ça me colle (aussi) les cellules
masquées !

Comment faire en sorte que seules les cellules visibles soient copiées ?

Merci pour vos lumières,

JP






j-pascal
Le #19228701
Bonjour Isabelle,

Merci pour ta réponse. Le "CurrentRegion me joue parfois des tours ;-)
)

Je venais de faire ceci :

Set Plage_Date =
.Range("A11:A11").EntireRow.SpecialCells(xlCellTypeVisible)

et a priori ça fonctionne !

JP

bonjour Jp,

essai comme ça :

Set Plage_Infos_2 =
.Range("A12:A13").CurrentRegion.SpecialCells(xlCellTypeVisible)

isabelle

j-pascal a écrit :
Bonjour,

Si j'ai : "Set Plage_Infos_2 = .Range("A12:A13").EntireRow"

Et que je colle la plage nommée ailleurs, ça me colle (aussi) les cellules
masquées !

Comment faire en sorte que seules les cellules visibles soient copiées ?

Merci pour vos lumières,

JP




Publicité
Poster une réponse
Anonyme