afficher

Bonjour Érico,

Tu exécutes ta procédure pas à pas en utilisant la touche F8.

Et tu nous dis sur quelle ligne ta procédure se plante ?

En passant, si ta selection n'a pas de données, cette ligne
plante.. habituellement, on doit la faire précéder de
on error resume next
Selection.SpecialCells(xlCellTypeConstants, 23).Select


Salutations!




"Érico" <hahaha@videotron.ca> a écrit dans le message de news: %236n$zKiFGHA.3280@TK2MSFTNGP10.phx.gbl...
Pourquoi cette macro bogue? (en rouge)



Sub Hono01_DemasqDetail()

' Hono01_DemasqDetail

' Macro enregistrée le 2006-01-10 par

'

Application.Goto Reference:="LignDemasqHono"

Selection.EntireRow.Hidden = False

Rows("18:67").Select

Selection.SpecialCells(xlCellTypeConstants, 23).Select

'sélectionne les cellules pleines

Selection.EntireRow.Hidden = False

Application.Goto Reference:="LignMasqFactHono"

Selection.EntireRow.Hidden = True

Application.Goto Reference:="LignMasqDetHono"

Selection.EntireRow.Hidden = True

Range("C13").Select

End Sub

Bonjour,

D'abord elle bugge où ? Ensuite que représentent les plages nommées
"LignDemasqHono", "LignMasqFactHono", "LignMasqDetHono" ?

A+

Pourquoi cette macro bogue? (en rouge)



Sub Hono01_DemasqDetail()

' Hono01_DemasqDetail

' Macro enregistrée le 2006-01-10 par

'

Application.Goto Reference:="LignDemasqHono"

Selection.EntireRow.Hidden = False

Rows("18:67").Select

Selection.SpecialCells(xlCellTypeConstants, 23).Select

'sélectionne les cellules pleines

Selection.EntireRow.Hidden = False

Application.Goto Reference:="LignMasqFactHono"

Selection.EntireRow.Hidden = True

Application.Goto Reference:="LignMasqDetHono"

Selection.EntireRow.Hidden = True

Range("C13").Select

End Sub