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


6 réponses

f894009 Messages postés 16724 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 octobre 2022 1 659
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
0
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
f894009 Messages postés 16724 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 octobre 2022 1 659
27 déc. 2012 à 17:07
Re,

Il suffit de Changer E2 par E et la premiere ligne sans cellules fusionnees!!
0
chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 307
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.
0

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

Posez votre question
f894009 Messages postés 16724 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 octobre 2022 1 659
27 déc. 2012 à 17:52
Bonjour Chossette9,

Entierement d'accord sur ce sujet.

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

Bon fin d'année :)
0