Discussion :

[jblouvieaux]

Bonjour,

je suis nouveau sur votre forum et nouvel utilisateur de VBA

je réalise une petit macro pour masquer / afficher différente colonne.

je voudrai ne pas "perdre" la cellule active.

j'ai cherché un peu, voici le résultat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub info_gén()
 
    Dim Cellule
    Cellule = ActiveCell.Row
    Application.Goto Reference:="D:H"
    Selection.EntireColumn.Hidden = False
    Application.Goto Reference:="I:M"
    Selection.EntireColumn.Hidden = True
    Range(Cellule, 1).Select
 
End Sub

merci pour votre aide.

[Daranc]

Oui , bien . Et c'est quoi la question ?

[zandru]

Bonjour et bienvenu sur le forum,

Heu, où est la question ??

(n'oublie pas les balises #CODE# )

[oOVaveOo]

Bonjour,

je voudrai ne pas "perdre" la cellule active.

Donc, si c'est ça la question, il faut affecter en début de code l'adresse de la cellule active à une variable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

monadresse = ActiveCell.AddressLocal

[jblouvieaux]

oui la question n'était pas clair, mais je vous remercie

avec votre aide trouvé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
    Dim Cellule
    Cellule = "A" & ActiveCell.Row
    Application.Goto Reference:="C:G"
    Selection.EntireColumn.Hidden = False
    Application.Goto Reference:="H:Z"
    Selection.EntireColumn.Hidden = True
    Range(Cellule).Activate

encore merci

(et à bientôt, et si pas de bol!!!!!)

[AlainTech]

Nettement plus simple:
Il suffit de ne pas changer de sélection.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  Columns("C:G").EntireColumn.Hidden = False
  Columns("H:Z").EntireColumn.Hidden = True