Macro suppresion colonnes sous conditions

deudecos

XLDnaute Impliqué

• 29 Février 2008

• #2

Re : Macro suppresion colonnes sous conditions

Salut monimeka, le forum

Pour virer la colonne A si A4 est vide
if sheets("Feuil1").range("A4")="" then columns("A:A").delete

Bonne journee

Olivier

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 29 Février 2008

• #3

Re : Macro suppresion colonnes sous conditions

Bonjour,
avec ce code, en supposant que tu as les titres en ligne 1, et que tu commences dans la colonne A:

Code:

Sub efface_si_ligne4_vide()
    Range(Cells(4, 1), Cells(4, [IV1].End(xlToLeft).Column)).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
End Sub

 

Vote positif 0 Vote négatif

M

monimeka

Guest

• 29 Février 2008

• #4

Re : Macro suppresion colonnes sous conditions

bhbh à dit:

en supposant que tu as les titres en ligne 1

Cliquez pour agrandir...

Malgres que je nai pas saisis cette petite precision ca marche parfaitement

Merci

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 29 Février 2008

• #5

Re : Macro suppresion colonnes sous conditions

Re-,
j'ai mis cette précision car on calcule la dernière colonne utilisée sur la ligne 1

Code:

[IV1].End(xlToLeft).Column)

te donne le numéro de la dernière colonne utilisée de la ligne 1
si ta cellule F1 est vide par exemple, et que F2 est utilisée, par ma formule, tu auras la dernière colonne utilisée (E)
Mais c'est juste pour le fun
on aurait pu utiliser, si la zone commence en A1 :

Code:

Sub efface_si_ligne4_vide()
    Range(Cells(4, 1), Cells(4, [A1].CurrentRegion.Columns.Count)).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
End Sub

 

Vote positif 0 Vote négatif

M

monimeka

Guest

• 29 Février 2008

• #6

Re : Macro suppresion colonnes sous conditions

Si j'ai bien compris, ton code se sert de la première ligne de la feuille pour l'aider a déterminer l'étendue de la plage (de colonnes) à traiter... 😱
la plage se termine a la colonne A mais commence a la dernière colonne pour la quelle la ligne 1 n'est pas vide...

(j'espère que je n'étale pas trop mon erreur😱)

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 29 Février 2008

• #7

Re : Macro suppresion colonnes sous conditions

RE-,
presque...😛

le code :

Code:

Range(Cells(4, 1), Cells(4, [IV1].End(xlToLeft).Column))

équivaut à :

Code:

Range ("A4:F4")

si la dernière colonne utilisée en ligne 1 est "F"

Cells(4, 1) équivaut à A4
Cells(4, [IV1].End(xlToLeft).Column) équivaut à F4 dans notre cas
Cells(numérodeligne, numérodecolonne)

 

Vote positif 0 Vote négatif