Bonjour,
Je voudrais supprimer de mon tableau sélectionné toutes les colonnes qui ont la valeur <Nul> pour toutes les lignes. Sachant que la première ligne contient les noms des colonnes.
J'ai trouvé un code que j'ai essayé d'adapter en vain. Je ne sais pas quel est le rôle de CountA().
Comment je peux spécifier que je ne veux traiter que le tableau sélectionné et pas tout le document ?
Pourriez-vous m'aider à corriger le code s'il vous plaît ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Dim i As Long, iLimit As Long iLimit = ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False 'à quoi sert cette ligne ? Application.Calculation = xlCalculationManual 'à quoi sert celle-là ? For i = iLimit To 2 Step -1 If Application.CountA(cells(i, 2).EntireColumn) = 0 Then 'J'ai mis cells(i,2) pour ne pas compter la ligne des noms de colonnes Cells(i, 1).EntireColumn.Delete End If Next i Application.Calculation = xlCalculationAutomatic 'quel est le rôle de cette ligne ? Application.ScreenUpdating = True iLimit = ActiveSheet.UsedRange.Rows.Count '?? ActiveWorkbook.Save
Partager