Probleme Macro xls en xlsx

[egman]

Bonjour à tous,

Je rencontre un petit problème sur une macro qui fonctionnait sur mon fichier en xls .
Depuis mon passage en Excel 2007 la macro ne fonctionne plus.

Voici ma macro :

Sub Test()
Set MaZone = Range(Range("A1"), Range("IV1").End(xlToLeft))
If Application.CountBlank(MaZone) > 0 Then MaZone.SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
End Sub

J'ai un message d'erreur en vba m'indiquant "Pas de cellules correspondantes" ...........?

Lorsque je lance ma macro à partir du fichier xls il trouve bien ma zone de cellules ?

D'avance, Merci pour votre aide

 

[Victor21]

Re : Probleme Macro xls en xlsx

Bonjour, egman

Avez-vous tenté l'extension .XLSM (M pour macro ) ?

 

[egman]

Re : Probleme Macro xls en xlsx

Bonjour Victor21

Merci pour ta réponse........mais j'ai bien sur essayé l'extension xlsm...........mais pas mieux

Comprends pas trop pourquoi çà coince.
Il bloque toujours sur

".......MaZone.SpecialCells(xlCellTypeBlanks).EntireColumn.Delete "

 

[Pierrot93]

Re : Probleme Macro xls en xlsx

Bonjour,

ton code semble bon, fonctionne sous 2010.... sans voir les données difficile d'en dire plus... peut être des cellules fusionnées ??

bon après midi
@+

 

[egman]

Re : Probleme Macro xls en xlsx

Bonjour Pierrot93

Merci pour ta réponse, mais je n'ai pas de cellules fusionnées dans mon tableau.

En fait je cherche à supprimer les colonnes VIDES de mon tableau.
Je m’aperçois que le la macro qui marchait auparavant n'était pas sur la même architecture de tableau.
(sur mon tableau xls j'avais des colonnes entièrement vides mais sur mon tableau en xlsx je m’aperçois que j'ai des colonnes pas complètement vides.

Si t'avais une solution pour supprimer des colonnes entièrement vides sous 2007 je suis preneur.

D'avance merci à tous pour votre aide

 

[Pierrot93]

Re : Probleme Macro xls en xlsx

re,

peut être ainsi :

If Application.CountA(Columns(1)) = 0 Then Columns(1).Delete

bon après midi
@+

 

[egman]

Re : Probleme Macro xls en xlsx

Bonjour Pierrot93

Excuses moi pour le retard de ma réponse mais j'ai été absent quelques jours.
Merci pour ta réponse mais en insérant ton code çà ne marche pas mieux ? ? ?
Voici ce que j'ai fait :

Sub Test2()
Set MaZone = Range(Range("A2"), Range("IV2").End(xlToLeft))
If Application.CountA(Columns(1)) = 0 Then Columns(1).Delete
End Sub

Je ne comprend pas trop....

Merci d'avance pour votre aide

 

[Pierrot93]

Re : Probleme Macro xls en xlsx

Bonjour,

la colonne est vraiment vide ?? pour le vérifier, en l'occurence ici la colonne A :

msgbox Application.CountA(Columns(1))

bon après midi
@+

 

[egman]

Re : Probleme Macro xls en xlsx

J'essaye et te tiens au courant

Merci pour ta réponse aussi rapide

A+

 

[egman]

Re : Probleme Macro xls en xlsx

Pierrot93

Je viens d'essayer et bizarrement il m'indique la colonne 3 (C) alors qu'elle n'est pas vide. ? ? ?

A+

 

[Pierrot93]

Re : Probleme Macro xls en xlsx

Re,

comprends pas trop ta réponse, le dernier code proposé te renvoie le nombre de valeurs dans la colonne en question... si il renvoie 3, cela veut dire qu'il y a 3 cellules non vi des dans la colonne....