> 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 participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
35,40 €Clé USB 3.0 Sandisk Ultra 256 Go à 35,40 €
Valable jusqu'au 07 Août

Amazon propose la clé USB Sandisk Ultra d'une capacité de 256 Go à 35,40 € livrée gratuitement. On la trouve ailleurs à partir de 40 €. Cette clé USB 3.0 est compatible USB 2.0 et offre de bons débits d'environ 100 Mo/s en lecture et en écriture. Le connecteur est rétractable pour éviter qu'il prenne la poussière.


> Voir l'offre
49,90 €Routeur TP-Link Archer AX10 WiFi 6 à 49,90 €
Valable jusqu'au 07 Août

Amazon fait une promotion sur le routeur TP-Link Archer AX10 WiFi 6 qui passe à 49,90 € au lieu de 80 €. La livraison est gratuite. L’Archer AX10 de TP-Link embarque la technologie WiFi 6 (802.11ax) qui permet de passer à la vitesse supérieure (1.5 Gbps) tout en étant rétro-compatible avec les normes WiFi 802.11a/b/g/n/ac. Doté de 4 antennes Wi-Fi et capable de prendre en charge la technologie 1024 QAM et les canaux 160 MHz, l'Archer AX10 est aussi pourvu d'une prise WAN 1 GbE et de 4 ports Ethernet Gigabit. Les nombreux appareils connectés peuvent ainsi bénéficier de la meilleure connexion possible en toute fluidité.


> Voir l'offre
1 099,99 €NAS Western Digital My Cloud EX2 Ultra + 2 disques durs WD Red 18 To (36 To) à 1099,99 €
Valable jusqu'au 07 Août

Amazon fait une promotion sur le NAS à 2 baies Western Digital My Cloud EX2 Ultra accompagné de 2 disques durs Western Digital Red de 18 To (soit un total de 36 To) qui passe à 1099,99 € au lieu de 1300 €. Avec My Cloud EX2 Ultra, vous pourrez synchroniser votre contenu sur tous vos ordinateurs, partager vos fichiers et documents en toute simplicité et profiter de multiples options de sauvegarde afin de créer votre propre système personnalisé.


> 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