Macro suppresion colonnes sous conditions

[monimeka]

j'ai une feuille avec 4 lignes utilisées.

La macro que je veux créer doit supprimer les colonnes entières lorsque la cellule de la ligne 4 est vide...

merci de votre aide

 

[deudecos]

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

 

[Cousinhub]

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:

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

 

[monimeka]

Re : Macro suppresion colonnes sous conditions

en supposant que tu as les titres en ligne 1

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

Merci

 

[Cousinhub]

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

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

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

 

[monimeka]

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

 

[Cousinhub]

Re : Macro suppresion colonnes sous conditions

RE-,
presque...😛

le code :

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

équivaut à :

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)