VBA Excel : Problème lors du suppression des colonnes.

Résolu/Fermé

paksouse - 27 déc. 2012 à 16:04
paksouse - 28 déc. 2012 à 10:36

Bonjour tous le monde,

J'ai un problème lors de la suppression des colonnes dans un fichier excel quand je lance la macro toutes les colonnes sont supprimés, Voici le code que j'ai dans la macro:

Columns("E:F").Select
Range("E2").Activate
Selection.Delete Shift:=xlToLeft

C'est juste un simple code mai je ne sais pas pourquoi il ça marche pas !!
Je soupçonne que le problème provient de la ligne 1 qu'il est fusionner c'est pour ce la il supprime toute les colonnes au lieu des 2 colonnes E et F .
y a il une solution pour ce cas là ?

Merci de votre retour :)

A voir également:

VBA Excel : Problème lors du suppression des colonnes.
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide
Mise en forme conditionnelle excel - Guide

6 réponses

Réponse 1 / 6

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
27 déc. 2012 à 16:45

Bonjour,

Une facon de faire:

Sub Delete_Colonnes()
  'Nom de feuille a adapter
  With Worksheets("feuil1")
    'pour la dernière ligne de la colonne E
    DernLigneE = .[E:E].Cells(Rows.Count, 1).End(xlUp).Row
    'pour la dernière ligne de la colonne F
    DernLigneF = .[F:F].Cells(Rows.Count, 1).End(xlUp).Row
    If DernLigneE > DernLigneF Then
      dern = DernLigneE
    Else
      dern = DernLigneF
    End If
    'Plage supprimee
    .Range("E2:F" & dern).Delete Shift:=xlToLeft
  End With
End Sub

Bonnes fetes de fin d'annee

Réponse 2 / 6

paksouse
27 déc. 2012 à 16:59

Merci infiniment f894009 :)

ça marche très bien, juste que les premiers lignes ne reste pas fusionner.
Y a t'il une moyen d'adapter votre code pour les premiers lignes restent fusionner ?

Merci

---

Réponse 3 / 6

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
27 déc. 2012 à 17:07

Re,

Il suffit de Changer E2 par E et la premiere ligne sans cellules fusionnees!!

Réponse 4 / 6

chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 306
27 déc. 2012 à 17:49

Bonjour,

petit conseil : au lieu de fusionner les cellules, qui sont un vrai casse tête à gérer en VBA, il vaudrait mieux utiliser l'option 'centrer les cellules' qui permet d'obtenir le même résultat visuel tout en gardant les cellules non fusionnées.

Cordialement.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
27 déc. 2012 à 17:52

Bonjour Chossette9,

Entierement d'accord sur ce sujet.

Bonne fete de fin d'annee

Réponse 6 / 6

paksouse
28 déc. 2012 à 10:36

Merci à vous tous pour vos réponse.Le problème est bien résolu.

Bon fin d'année :)

Discussions similaires

Excel VBA : Récupérer la valeur d'une cellule

Discussions similaires

Newsletters