Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

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

5 réponses
Avatar
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

5 réponses

Avatar
isabelle
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




Avatar
Jacky
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" a écrit dans le message de news:

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




Avatar
j-pascal
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


Avatar
j-pascal
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" a écrit dans le message de news:

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






Avatar
j-pascal
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