Supprimer une colonne si toutes les valeurs

Question

Bonjour, 

je voulais faire une macro qui supprime une colonne si et seulement si toutes ses valeurs sont < 10000.

J'ai essayé ce programme qui supprime une colonne si au moins une est inférieure à 10000:

Sub SupprColonne()

Dim i As Integer
Dim j As Integer
    For i = 1 To 368
    For j = 1 To 50
        If Cells(i, j) <= 10000 Then Columns(j).Delete
        
    Next j
    Next i
End Sub

Merci de votre Réponse :)
Configuration: Windows 7 / Internet Explorer 9.0

ccm81 · Answer

Bonjour

Const lideb = 2Const codeb = 1Const cofin = 11Const mini = 10000Public Sub SupprimeColonnes()Dim lifin As Long, co As Long, nblico As Long, plage As RangeApplication.ScreenUpdating = FalseFor co = cofin To codeb Step -1  lifin = Cells(Rows.Count, co).End(xlUp).Row  Set plage = Range(Cells(lideb, co), Cells(lifin, co))  nblico = plage.Count  If Application.WorksheetFunction.CountIf(plage, "<" & mini) = nblico Then Columns(co).DeleteNext coApplication.ScreenUpdating = TrueEnd Sub
tu modifies les constantes en début de code

Cdlmnt

ccm81 · Answer

Peut être ici, où tout doit être dans la même ligne
 If Application.WorksheetFunction.CountIf(plage, "<" & mini) = nblico Then Columns(co).Delete

Cdlmnt

ccm81 · Answer

1. As tu lancé l'exacution de la macro
2. As tu modifé les valeurs des 4 constantes en début de code selon ta configuration
Const lideb = 2  (première ligne à tester)
Const codeb = 1  (premiere colonne à traiter)
Const cofin = 11  (dernière colonne à traiter)
Const mini = 10000  (seuil pour le test)
Cdlmnt

ccm81 · Answer

1. Et ???
2. Si tu as en ligne 1 des titres, ça ne fonctionnera qu'avec lideb = 2
3. un exemple avec 50 colonnes sans ligne de titre (Ctrl+k pour lancer)
http://www.cjoint.com/c/FDznJ1Zrq0Q

Cdlmnt

ccm81 · Answer

Modifier cette ligne (tout sur une ligne)  
If Application.WorksheetFunction.CountIf(plage, "<" & mini) + Application.WorksheetFunction.CountIf(plage, "=") = nblico Then Columns(co).Delete

Après réflexion (que je souhaiterais remplir après l'exécution du programme). 
si elles sont supprimées comment les rempliras tu ?

Cdlmnt

ccm81 · Answer

OK

Donc ça fonctionne comme tu veux 
Si c'est fini, peux tu mettre le sujet à résolu (en dessous du titre de ton premier message)

Cdlmnt

Supprimer une colonne si toutes les valeurs < 10000

6 réponses

Discussions similaires