Masquer les colonnes pour l'impression
Résolu
piloub44
Messages postés
1
Date d'inscription
mercredi 27 décembre 2006
Statut
Membre
Dernière intervention
27 décembre 2006
-
27 déc. 2006 à 17:58
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 28 déc. 2006 à 08:28
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 28 déc. 2006 à 08:28
A voir également:
- Masquer les colonnes pour l'impression
- Impression immediate - Forum Javascript / DHTML
- Afficher les colonnes d'une table sql ✓ - Forum VB.NET
- Lister les colonnes d'une table SQL ✓ - Forum PHP
- Colonnes non définies sélectionnées - Forum VB.NET
- Masquer un code html avec du js ✓ - Forum Javascript / DHTML
2 réponses
fiko81
Messages postés
381
Date d'inscription
vendredi 24 septembre 2004
Statut
Membre
Dernière intervention
5 septembre 2010
3
27 déc. 2006 à 19:35
27 déc. 2006 à 19:35
Salut,
A mon avis il faut que tu imposes à l'utilisateur d'utiliser un séparateur type ";" pour différencier les colonnes.
Le code sera le suivant
v = "A;I;Q;S;T;U;V;W;X;Y;Z;AB;AZ;AD;AZ"
Dim strColonne() as string
strColonne() = split(v,";",,vbTextCompare)
For i = LBound(strColonne) to UBound(strColonne)
Columns(strColonne(i)).select
Selection.EntireColumn.Hidden = True
Next i
A tester
Fiko ;-)
La reponse vous convient pensez > Accepter < <hr />
A mon avis il faut que tu imposes à l'utilisateur d'utiliser un séparateur type ";" pour différencier les colonnes.
Le code sera le suivant
v = "A;I;Q;S;T;U;V;W;X;Y;Z;AB;AZ;AD;AZ"
Dim strColonne() as string
strColonne() = split(v,";",,vbTextCompare)
For i = LBound(strColonne) to UBound(strColonne)
Columns(strColonne(i)).select
Selection.EntireColumn.Hidden = True
Next i
A tester
Fiko ;-)
La reponse vous convient pensez > Accepter < <hr />
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
28 déc. 2006 à 08:28
28 déc. 2006 à 08:28
Bonne réponse de Fiko, et bon reflexe que d'utiliser LBound et UBound
Pas besoin d'utiliser .Select, au préalable (en général, je n'aime pas trop qu'une macro change mes parametres, ma selection courante, etc...)
Le VbTextCompare est inutile ici. Il permet d'effectuer le découpage en ne s'occupant pas de la casse du séparateur... vu que nous utilisons ici le caractère ';' pas de soucis avec vbBinaryCompare (lequel est plus rapide)
Dim sColumns() As String
Dim i As Long
sColumns = Split("A;I;Q;S;T;U;V;W;X;Y;Z;AB;AZ;AD;AZ", ";")
For i = LBound(sColumns) To UBound(sColumns)
Columns(sColumns(i)).Hidden = True
Next i
Renfield
Admin CodeS-SourceS- MVP Visual Basic
Pas besoin d'utiliser .Select, au préalable (en général, je n'aime pas trop qu'une macro change mes parametres, ma selection courante, etc...)
Le VbTextCompare est inutile ici. Il permet d'effectuer le découpage en ne s'occupant pas de la casse du séparateur... vu que nous utilisons ici le caractère ';' pas de soucis avec vbBinaryCompare (lequel est plus rapide)
Dim sColumns() As String
Dim i As Long
sColumns = Split("A;I;Q;S;T;U;V;W;X;Y;Z;AB;AZ;AD;AZ", ";")
For i = LBound(sColumns) To UBound(sColumns)
Columns(sColumns(i)).Hidden = True
Next i
Renfield
Admin CodeS-SourceS- MVP Visual Basic