× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Macro Excel. Mes colonnes disparaissent.Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
gerardo66
  Posté le 03/12/2014 @ 10:57 
Aller en bas de la page 
Astucien

Bonjour.

J'ai une macro destinée à masquer des colonnes qui ne fonctionne plus ou plutôt qui fonctionne mal.

Cette macro est destinée à masquer les colonnes A, I, J, M, N, O, P, Q.

Voici cette macro :

Sub MasquerColonnesBudget()
'
' MasquerColonnesBudget Macro
'

'
Range("A:A,G:G,H:H,M:M,N:N,O:O,P:P,Q:Q").Select
Range("Q1").Activate
Selection.EntireColumn.Hidden = True
End Sub

Le problème est qu'elle masque également les colonnes A à E. Je ne parviens pas à m'en sortir.

Merci de votre aide.

Publicité
gerardo66
 Posté le 03/12/2014 à 11:01 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

J'ai oublié de préciser que çà fonctionne dans d'autres feuilles du même classeur.

Magnan
 Posté le 03/12/2014 à 11:18 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

N'y a t'il pas un pb :

masquer les colonnes A, I, J, M, N, O, P, Q

Range("A:A,G:G,H:H,M:M,N:N,O:O,P:P,Q:Q"

Les noms ne correspondent déja pas.

La " , " est elle judicieuse ? pourquoi pas un " ; " ?

A+

ZenJP
 Posté le 03/12/2014 à 11:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

gerardo66
 Posté le 03/12/2014 à 11:35 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

J'ai réenregistrer la macro de la façon suivante :

Sub MasquerColonnesBudget()
'
' MasquerColonnesBudget Macro
'

'
Columns("A:A").Select
Selection.EntireColumn.Hidden = True
Columns("G:G").Select
Selection.EntireColumn.Hidden = True
Columns("H:H").Select
Selection.EntireColumn.Hidden = True
Columns("M:M").Select
Selection.EntireColumn.Hidden = True
Columns("N:N").Select
Selection.EntireColumn.Hidden = True
Columns("O:O").Select
Selection.EntireColumn.Hidden = True
Columns("P:P").Select
Selection.EntireColumn.Hidden = True
Columns("Q:Q").Select
Selection.EntireColumn.Hidden = True
End Sub

Lorsque je fais "Pas à pas" et que j'arrive à la 2ème ligne "Columns("A:A").Select
Selection.EntireColumn.Hidden = True", je constate que çà sélectionne les colonnes A, B, C, D et E au lieu de ne sélectionner que la colonne A.

gerardo66
 Posté le 03/12/2014 à 11:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Magnan, je rectifie : macro destinée à masquer les colonnes A, G, H, M, N, O, P, Q.

Excuses.

Pour la syntaxe, ce n'est pas moi qui écrit. Je ne fais qu'enregistrer la macro avec le bouton "Enregistrer une macro".

ZenJP
 Posté le 03/12/2014 à 11:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

Relis bien le lien jusqu'au bout

gerardo66
 Posté le 03/12/2014 à 12:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

OK ZenJP, çà fonctionne en écrivant le texte.

Mais pourquoi çà ne marche pas en se servant de l'enregistreur ? Jusqu'à ce jour, je faisais toujours comme çà et je n'avais pas de problèmes...

Le principal est que çà marche.

Merci pour votre aide.

ferrand
 Posté le 03/12/2014 à 12:20 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

La sélection n'est jamais un bon choix pour obtenir une macro VBA fiable. Et une macro enregistrée doit toujours être réécrite pour devenir vraiment opérationnelle. Sans doute as-tu des cellules fusionnées susceptible de fausser la sélection.

Essaie ceci :

Sub MasquerColonnes()
Dim c, i%
c = Array(1, 7, 8, 13, 14, 15, 16, 17)
With ActiveSheet
For i = 0 To UBound(c)
.Columns(c(i)).Hidden = True
Next i
End With
End Sub

Bien entendu on peut opérer de très diverses façons pour masquer (ou démasquer) des colonnes. Les meilleur choix dépendra du contexte de ton travail (que tu ne précises pas) et de la façon dont tu entends utiliser ce type de macros élémentaires...

Publicité
gerardo66
 Posté le 03/12/2014 à 12:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

OK ferrand.

Merci beaucoup.

ZenJP
 Posté le 03/12/2014 à 13:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

N'oublie pas de mettre Résolu

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
68,99 €Disque Dur externe portable Western Digital My Passport 2 To USB 3.0 à 68,99 €
Valable jusqu'au 07 Juin

Amazon propose actuellement le disque dur externe portable Western Digital My Passport 2 To à 68,99 € livré gratuitement. Ce disque dur possède une connectique USB 3.0 pour des transferts plus rapides. Il est également compatible USB 2.0. 


> Voir l'offre
139,96 €Montre connectée Withings Steel HR Sport à 139,96 €
Valable jusqu'au 04 Juin

Amazon fait une promotion sur la montre connectée Withings Steel HR Sport qui passe à 139,96 € livrée gratuitement alors qu'on la trouve ailleurs à partir de 171 €. Cette montre hybride (montre véritable avec un écran) offre 25 jours d'autonomie et va vous permettre de suivre vos activités sportives : GPS, fréquence cardiaque, indice de forme, tracker d'activité et de sommeil, ... Vous pourrez recevoir vos SMS, appels, e-mails, alertes du calendrier et vos notifications directement sur la montre. La montre est compatible Apple Health, Google Fit, Fitbit et Strava.


> Voir l'offre
196,29 €Nintendo Switch Lite à 196,29 €
Valable jusqu'au 08 Juin

Amazon fait une promotion sur la nouvelle Nintendo Switch Lite qui passe à 196,29 € livrée gratuitement. Le stock étant limité, ne tardez pas si vous êtes intéressé. Notez que la version Corail est également à ce prix.


> Voir l'offre

Sujets relatifs
Macro Excel 4
2 pages par feuille dans macro excel
Creation d' une boucle macro dans fichier EXCEL pour impression
Largeur Hauteur colonnes en mm dans Excel
besoin d'une macro excel 2007
libre Office : macro Excel présente et non active
[Excel 2007] Macro : Sélection d'un tableau selon sa longueur variable
Macro couleur séries graphique excel 2010
excel 2007 macro mise en page, quadrillage, filtre
Excel 2007 macro rajouter tri + cellule en surbrillance à chaque changement
Plus de sujets relatifs à Macro Excel. Mes colonnes disparaissent.
 > Tous les forums > Forum Bureautique