Supprimer colonnes dont cellule ligne est vide

[Masto]

Bonjour le forum;

J'ai pas mal fouillé dans les discussions déjà parues sans trouver la réponse adaptable à ma situation.
Je cherche une macro qui va supprimer les colonnes dont la cellule en ligne 2 est vide (""). Je souhaite que le scan sur la ligne 2 soit fait de la colonne D à DH incluses.
Attention, plusieurs cellules de la ligne 2 peuvent être vides d'affilée.
D'avance merci de bien vouloir m'aider.

Masto.

 

[Chloulou]

Re : Supprimer colonnes dont cellule ligne est vide

Bonjour,

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

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

 

[Chloulou]

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

 

[bqtr]

Re : Supprimer colonnes dont cellule ligne est vide

Bonjour Chloulou, Masto

Une autre façon de faire :

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

 

[2passage]

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)

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

 

[Masto]

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

 

[maxdhavys]

Re : Supprimer colonnes dont cellule ligne est vide

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