Bonjour à tous,
j’aimerais supprimer les colonnes où il n’y a pas de noms sur la 1 ere ligne.
J’ai essayé x macros trouvées sur le net, mais aucune ne marche.
Je joins la feuille où je suis arrêté ainsi q’une copie d’écran qui montre le résultat voulu
Merci pour votre aide
Classeur1.xlsx (47,4 Ko)
Bonjour
Ci-joint ma proposition
Le traitement supprime toutes les colonnes qui n’ont pas de donnée (nom) en ligne 2 ou dont celle-ci est égale à « SALARIES » ou « BENEVOLES » ou « TOTAL »
Cliques sur le bouton « Nettoyage colonne »
Fais des essais et dis moi
Classeur2.xlsm (53,8 Ko)
Bonjour
Teste cette macro
Sub Suppr()
Dim n%, i%
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Worksheets("Feuil3")
n = .Cells(2, Columns.Count).End(xlToLeft).Column
For i = n To 6 Step -1
If .Cells(2, i) = "" Then .Cells(2, i).EntireColumn.Delete Shift:=xlToLeft
Next i
End With
Application.Calculation = xlCalculationAutomatic
End Sub
Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.