Discussion :

[alain74]

Bonjour,

J'ai créé un planning de réservations de vacances pour 10 appartements sous Excel 2007 avec en colonne le calendrier annuel et en lignes les périodes de réservation à raison d'une ligne par appartement. Les cellules sont fusionnées pour chaque période de réservation.

Pour mettre deux mois consécutifs sur une même page (paysage) pour impression, je fais une copie de mon planning dans une seconde feuille et je supprime dans cette feuille le premier mois. Si à la jonction entre le mois de janvier et le mois de février il se trouve des périodes de réservation. c-à-d des cellules fusionnées, j'ai un problème de suppression :

Manuellement, si je sélectionne les colonnes de janvier et que je les supprime, ça marche.

Si je fais la même chose avec une macro comme ci-dessous, ça ne marche pas puisque ça supprimera toutes les colonnes incluant les cellules fusionnées.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Columns("B:BK").Select
Selection.Delete Shift:=xlToLeft

Je ne comprends pas pourquoi cela ne marche pas de la même façon?

Si vous aviez une solution cela m'arrangerait bien? Merci

Bien cordialement. Alain

[Singular]

Biesur que si tu demandes de supprimer les colonnes B à BK, toutes les colonnes seront supprimées... Quel est le problème, au juste?

[alain74]

Bonsoir, peut-être n'ai-je pas été assez clair!

Par exemple, j'ai une plage G1:U1 de cellules fusionnées. Je veux supprimer les colonnes B à N.

La suppression manuelle des colonnes B à N se fait sans pb et la plage de cellules fusionnées est scindée en 2.

Si j'utilise la macro suivante pour faire la même chose :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Columns("B:N").Select
Selection.Delete Shift:=xlToLeft

alors, ce sont les colonnes B à U (incorporant la plage de cellules fusionnées) qui sont supprimées.

Pourquoi cette différence? comment m'en sortir puisque j'ai besoin de faire ma suppression par macro?

Bien cordialement, Alain

[Abed_H]

Bonsoir
sans selectionné au préalable tu fait directement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns("B:N").Delete

Bonne soirée

Abed_H

[alain74]

Merci Abed_H, c'est exactement ce dont j'avais besoin.

Bonne journée.