Supprimer colonnes dont cellule ligne est vide

C

Chloulou

XLDnaute Occasionnel

• 27 Juillet 2007

• #2

Re : Supprimer colonnes dont cellule ligne est vide

Bonjour,

je te mets un code qui a mon avis peut fonctionner :

Code:

Dim i as byte

For i= 4 to 112

  If Worksheets("TaFeuille").Cells(2,4).value="" Then
            Worksheets("Tafeuille").Columns(4).Delete shift = x1ToLeft
  End If 

Next i

PS : 'c'est peut etre Column a la place de coloumns

Ce code amrche que si les colonnes de 4 à Dh sont toutes vides

 

Dernière édition: 27 Juillet 2007

Vote positif 0 Vote négatif

C

Chloulou

XLDnaute Occasionnel

• 27 Juillet 2007

• #3

Re : Supprimer colonnes dont cellule ligne est vide

j ai rien dis ca marche pas ce code, desole j ai parlé trop vite...

en fait pourquoi tu mets ton total en Dh pour ensuite le ramener en supprimant des colonnes: pourquoi ne pas déplacer la valeur de la cellule Di 2 au bout de ta ligne de saisie de données et ensuite supprimer la colonne Di??

 

Dernière édition: 27 Juillet 2007

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 27 Juillet 2007

• #4

Re : Supprimer colonnes dont cellule ligne est vide

Bonjour Chloulou, Masto

Une autre façon de faire :

Code:

Sub Sup_Col()

Dim i As Integer
Application.ScreenUpdating = False
  For i = 112 To 4 Step -1
      If Cells(2, i) = "" Then Columns(i).Delete
  Next
Application.ScreenUpdating = True
End Sub

Bonne journée

 

Vote positif 0 Vote négatif

2passage

XLDnaute Impliqué

• 27 Juillet 2007

• #5

Re : Supprimer colonnes dont cellule ligne est vide

Bonjour,

voici un code qui fonctionne (à condition de ne pas avoir de cellule fusionnées dans la plage D: DH)

Code:

Sub Rapprochetotal()
Range(Cells(2, 3).Offset(0, WorksheetFunction.CountA(Range("D2:DH2")) + 1).Address & ":DH2").EntireColumn.delete
End Sub

 

Dernière édition: 27 Juillet 2007

Vote positif 0 Vote négatif

M

Masto

Guest

• 27 Juillet 2007

• #6

Re : Supprimer colonnes dont cellule ligne est vide

Merci à tous c'est terrible , vos réponses vont me faire gagner un temps précieux.
Merci encore.
Masto

 

Vote positif 0 Vote négatif

M

maxdhavys

Guest

• 29 Juin 2013

• #7

Re : Supprimer colonnes dont cellule ligne est vide

Bonjour, petite question, comment faire si certaines cellules sont fusionnées?
Max

 

Vote positif 0 Vote négatif