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

Résolu
paksouse -  
 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 :)


A voir également:

6 réponses

Réponse 1 / 6
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
Réponse 2 / 6
paksouse
 
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

---
0
Réponse 3 / 6
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

Il suffit de Changer E2 par E et la premiere ligne sans cellules fusionnees!!
0
Réponse 4 / 6
chossette9 Messages postés 4239 Date d'inscription   Statut Contributeur Dernière intervention   1 311
 
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.
0

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

Posez votre question
Réponse 5 / 6
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour Chossette9,

Entierement d'accord sur ce sujet.

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

Bon fin d'année :)
0