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 Pb de code

Pb de code

4 réponses
Avatar
coco74
Bonjour à tous,

J'essaie d'adapter le code ci-dessous qui servait initialement à masquer des
lignes situées en-dessous de mon tableau en équivalent pour masquer certaines
colonnes situées à droite du tableau.
La ligne qui plante est : .Columns("" & ColSuiv &
":AE").EntireColumn.Hidden = True
et je pense que ma variable ColSuiv donne une valeur numérique au lieu du
repère de colonne.
Comment corriger mon code ?


Sub masque()
With F4
Set Rg = .Range(.PivotTables(1).DataBodyRange.Address)
ColSuiv = Rg(1).Column + Rg.Columns.Count
.Columns("F:AE").EntireColumn.Hidden = False
.Columns("" & ColSuiv & ":AE").EntireColumn.Hidden = True
.EnablePivotTable = True
End With
End Sub

--
coco
Signaler un problème avec ce contenu

4 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
.
| La ligne qui plante est : .Columns("" & ColSuiv & ":AE").EntireColumn.Hidden = True

Essaie ceci : la fonction Split requiert Excel 2000 ou plus récent.

Columns("" & Split(Columns(ColSuiv).Address, ":")(1) & ":AE").EntireColumn.Hidden = True





Sub masque()
With F4
Set Rg = .Range(.PivotTables(1).DataBodyRange.Address)
ColSuiv = Rg(1).Column + Rg.Columns.Count
.Columns("F:AE").EntireColumn.Hidden = False
.Columns("" & ColSuiv & ":AE").EntireColumn.Hidden = True
.EnablePivotTable = True
End With
End Sub

--
coco
Avatar
coco74
Ca marche, merci !

Pour info, quelle est la fonction de la fonction (Oupss ! !) Split ?
--
coco



..
| La ligne qui plante est : .Columns("" & ColSuiv & ":AE").EntireColumn.Hidden = True

Essaie ceci : la fonction Split requiert Excel 2000 ou plus récent.

Columns("" & Split(Columns(ColSuiv).Address, ":")(1) & ":AE").EntireColumn.Hidden = True





Sub masque()
With F4
Set Rg = .Range(.PivotTables(1).DataBodyRange.Address)
ColSuiv = Rg(1).Column + Rg.Columns.Count
.Columns("F:AE").EntireColumn.Hidden = False
.Columns("" & ColSuiv & ":AE").EntireColumn.Hidden = True
.EnablePivotTable = True
End With
End Sub

--
coco





Avatar
MichDenis
| Pour info, quelle est la fonction de la fonction (Oupss ! !) Split ?

Je n'ai pas saisi le sens de ta question, mais tu as une information
de base sur la fonction "split" dans l'aide VBA
Avatar
coco74
Merci MichDenis
--
coco




| Pour info, quelle est la fonction de la fonction (Oupss ! !) Split ?

Je n'ai pas saisi le sens de ta question, mais tu as une information
de base sur la fonction "split" dans l'aide VBA