VBA Excel : Problème lors du suppression des colonnes. [Résolu/Fermé]

Signaler
-
 paksouse -
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 :)


6 réponses

Messages postés
15736
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 avril 2021
1 483
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
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

---
Messages postés
15736
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 avril 2021
1 483
Re,

Il suffit de Changer E2 par E et la premiere ligne sans cellules fusionnees!!
Messages postés
4239
Date d'inscription
lundi 20 avril 2009
Statut
Contributeur
Dernière intervention
12 septembre 2014
1 309
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.
Messages postés
15736
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 avril 2021
1 483
Bonjour Chossette9,

Entierement d'accord sur ce sujet.

Bonne fete de fin d'annee
Merci à vous tous pour vos réponse.Le problème est bien résolu.

Bon fin d'année :)