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

Question

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 :)


Configuration: Windows XP / Chrome 23.0.1271.97

f894009 · Answer

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

paksouse · Answer

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

---

f894009 · Answer

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

chossette9 · Answer

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.

f894009 · Answer

Bonjour Chossette9,

Entierement d'accord sur ce sujet.

Bonne fete de fin d'annee

paksouse · Answer

Merci à vous tous pour vos réponse.Le problème est bien résolu.

Bon fin d'année :)