Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel afficher une colonne à la fois

afficher une colonne à la fois

2 réponses
Avatar
Érico
Bonjour
Voici une macro créer par Mich pour faire afficher une ligne à la fois en se
placant à l'endroit sélectionné.
J'aimerais avoir cette même macro, mais pour les colonnes.

Merci

______________________________________
Sub Test()

Dim Rg As Range
On Error Resume Next
Set Rg = Application.InputBox(prompt:="Sélectionner" & _
"une cellule de la ligne juste au dessus de la" & _
"ligne à afficher.", Title:="Selection", Type:=8)
If Err = 0 Then
If Rg.Offset(1).EntireRow.Hidden = True Then
Rg.Offset(1).EntireRow.Hidden = False
Else
MsgBox "La ligne en dessous de votre " & _
"n'est pas masquée.", vbOKOnly & _
vbInformation, "Terminée"
End If
End If
Set Rg = Nothing
End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Érico,

S'applique aux colonnes situées à droite de la sélection de l'usager !

'-----------------------------
Sub Test()

Dim Rg As Range
On Error Resume Next
Set Rg = Application.InputBox(prompt:="Sélectionner" & _
"une cellule de la ligne juste au dessus de la" & _
"ligne à afficher.", Title:="Selection", Type:=8)
If Err = 0 Then
If Rg.Offset(, 1).EntireColumn.Hidden = True Then
Rg.Offset(, 1).EntireColumn.Hidden = False
Else
MsgBox "La colonne à droite de votre " & _
"n'est pas masquée.", vbOKOnly & _
vbInformation, "Terminée"
End If
End If
Set Rg = Nothing
End Sub
'-----------------------------


Salutations!



"Érico" a écrit dans le message de news: %
Bonjour
Voici une macro créer par Mich pour faire afficher une ligne à la fois en se
placant à l'endroit sélectionné.
J'aimerais avoir cette même macro, mais pour les colonnes.

Merci

______________________________________
Sub Test()

Dim Rg As Range
On Error Resume Next
Set Rg = Application.InputBox(prompt:="Sélectionner" & _
"une cellule de la ligne juste au dessus de la" & _
"ligne à afficher.", Title:="Selection", Type:=8)
If Err = 0 Then
If Rg.Offset(1).EntireRow.Hidden = True Then
Rg.Offset(1).EntireRow.Hidden = False
Else
MsgBox "La ligne en dessous de votre " & _
"n'est pas masquée.", vbOKOnly & _
vbInformation, "Terminée"
End If
End If
Set Rg = Nothing
End Sub
Avatar
Érico
merci

"michdenis" a écrit dans le message de news:
%
Bonjour Érico,

S'applique aux colonnes situées à droite de la sélection de l'usager !

'-----------------------------
Sub Test()

Dim Rg As Range
On Error Resume Next
Set Rg = Application.InputBox(prompt:="Sélectionner" & _
"une cellule de la ligne juste au dessus de la" & _
"ligne à afficher.", Title:="Selection", Type:=8)
If Err = 0 Then
If Rg.Offset(, 1).EntireColumn.Hidden = True Then
Rg.Offset(, 1).EntireColumn.Hidden = False
Else
MsgBox "La colonne à droite de votre " & _
"n'est pas masquée.", vbOKOnly & _
vbInformation, "Terminée"
End If
End If
Set Rg = Nothing
End Sub
'-----------------------------


Salutations!



"Érico" a écrit dans le message de news:
%
Bonjour
Voici une macro créer par Mich pour faire afficher une ligne à la fois en
se
placant à l'endroit sélectionné.
J'aimerais avoir cette même macro, mais pour les colonnes.

Merci

______________________________________
Sub Test()

Dim Rg As Range
On Error Resume Next
Set Rg = Application.InputBox(prompt:="Sélectionner" & _
"une cellule de la ligne juste au dessus de la" & _
"ligne à afficher.", Title:="Selection", Type:=8)
If Err = 0 Then
If Rg.Offset(1).EntireRow.Hidden = True Then
Rg.Offset(1).EntireRow.Hidden = False
Else
MsgBox "La ligne en dessous de votre " & _
"n'est pas masquée.", vbOKOnly & _
vbInformation, "Terminée"
End If
End If
Set Rg = Nothing
End Sub