S
SkyClear
Guest
Bonsoir à tous,
Dans un premier temps, si je me trompe de forum pour poser ma question merci de déplacer le topic.
N'ayant pas réussi à solutionner mon problème en cherchant sur le net et les autres topics voici donc mon problème :
J'ai fabriquer une feuille de calcul qui me sert de base de données pour ensuite être exploité avec un TCD.
Afin d'exploiter les résultats, on opère différents tris avec le TCD et celui ci nous donne donc des réponses.
On accède donc aux réponses en double-cliquant sur les résultats dans le TCD afin d'avoir le détail.
J'aimerais donc personnalisé cette affichage puisque en fonction de la recherche certains colonnes ne contiennent rien sauf le titre, j'aimerais donc les cachers, c'est là que réside mon problème. Afin de masquer les colonnes et les redimensionner j'ai créer une petite macro cependant cette dernière ne marche pas ...
Je suis un grand débutant en VBA, jai fait du gros bricolage ^^
Pourriez-vous m'aider ?
Voici la macro en question :
Sub Rapport()
'
' Rapport Macro
Dim cel As Range
Range("B15").Select
Selection.ShowDetail = True
Cells.Select
Selection.ColumnWidth = 50
Selection.ShowDetail = True
If Target.Address = "D2😀50" And Target.Value = "" Then
Columns("D😀").Select
Selection.EntireColumn.Hidden = True
End If
Selection.ShowDetail = True
If Target.Address = "E2:E50" And Target.Value = "" Then
Columns("E:E").Select
Selection.EntireColumn.Hidden = True
End If
End Sub
Merci par avance de votre aide & bonne soirée,
Sky
Dans un premier temps, si je me trompe de forum pour poser ma question merci de déplacer le topic.
N'ayant pas réussi à solutionner mon problème en cherchant sur le net et les autres topics voici donc mon problème :
J'ai fabriquer une feuille de calcul qui me sert de base de données pour ensuite être exploité avec un TCD.
Afin d'exploiter les résultats, on opère différents tris avec le TCD et celui ci nous donne donc des réponses.
On accède donc aux réponses en double-cliquant sur les résultats dans le TCD afin d'avoir le détail.
J'aimerais donc personnalisé cette affichage puisque en fonction de la recherche certains colonnes ne contiennent rien sauf le titre, j'aimerais donc les cachers, c'est là que réside mon problème. Afin de masquer les colonnes et les redimensionner j'ai créer une petite macro cependant cette dernière ne marche pas ...
Je suis un grand débutant en VBA, jai fait du gros bricolage ^^
Pourriez-vous m'aider ?
Voici la macro en question :
Sub Rapport()
'
' Rapport Macro
Dim cel As Range
Range("B15").Select
Selection.ShowDetail = True
Cells.Select
Selection.ColumnWidth = 50
Selection.ShowDetail = True
If Target.Address = "D2😀50" And Target.Value = "" Then
Columns("D😀").Select
Selection.EntireColumn.Hidden = True
End If
Selection.ShowDetail = True
If Target.Address = "E2:E50" And Target.Value = "" Then
Columns("E:E").Select
Selection.EntireColumn.Hidden = True
End If
End Sub
Merci par avance de votre aide & bonne soirée,
Sky