Excel VBA Désélectionner des cellules

Question

Excel VBA Désélectionner des cellules

Anonyme

Bonjour à tous,

Après avoir masquer puis afficher des colonnes, celles ci restent sélectionnées.

Puis je les désélectionner automatiquement ?

Merci d'avance, Cordialement Jean-Pierre

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires

Réponse acceptée par l’auteur de la question

DanielCo 107.7K

Bonjour,

Il doit toujours y a voir une cellule de sélectionnée. Tu dois en sélectionner une. Sinon, il n'y a pas besoin de sélectionner une colonne pour la masquer ou l'afficher :

Columns(2).Hidden = True

Columns(2).Hidden = False

Cordialement.

Daniel

0 commentaires

5 réponses supplémentaires

Answer 1

Bonjour,

"l me dit : Impossible de définir la propriété hidden de la classe range."

Bizarre. Ca fonctionne ici. Mets :

Range("K:V").EntireColumn.Hidden = False

"Mais je voudrais rester en visualisation sur les lignes sur lesquelles je me trouve"

Tu fais un défilement pour décaler l'affichage vers la gauche de 5 colonnes. Il est possible alors que la sélection ne soit plus visible ?

Daniel

Answer 2

Bonjour Daniel,

Il me dit : Impossible de définir la propriété hidden de la classe range.

Donc je suis obligé de sélectionner avant mes colonnes à afficher (ou à masquer)

Cela ne me gêne pas car je me moque de savoir où je suis.

Mais je voudrais rester en visualisation sur les lignes sur lesquelles je me trouve sans pour autant que les colonnes que je viens d'afficher restent sélectionnées.

Une instruction du genre :

set selection, false

(ne rit pas !)

Cordialement Jean-Pierre

Answer 3

DanielCo 107.7K

Bonjour,

Si tu exécutes :

Sub SynoptiqueGaucheAAA()
Columns("K:V").Hidden = False
ActiveWindow.SmallScroll ToRight:=-5
End Sub

la sélection de cellules ne change pas.

Sinon, tu pourrais mettre :

Set Plage = Selection
Columns("K:V").Hidden = False
ActiveWindow.SmallScroll ToRight:=-5

"Plage" représente les cellules sélectionnées.

Daniel

0 commentaires

Answer 4

Re Bonjour Daniel,

alors je me retrouve avec presque le même problème que le précédent.

J'utilise un bouton générique pour cacher ou afficher des colonnes.

Sub SynoptiqueGaucheAAA()

    Columns("K:V").Select 

Selection.EntireColumn.Hidden = False 

    ActiveWindow.SmallScroll ToRight:=-5

end sub

Comment mémoriser avant ces instructions l'endroit où je suis pour le sélectionner ensuite après ces instructions ?