masque colonne vide (en ignorant les formules)

Question

Bonjour &#224; tous

J'aurais besoin que quelqu'un m'aide &#224; paufiner une macro.
Voila je vous explique, j'ai une macro qui teste les cellules sur une plage donn&#233;e et qui masque les colonnes qui sont vides
Voici mon tableau
                         A                          B                          C                       D
1                  n&#176; offre                 nb de pi&#232;ce            D&#233;lais               Commande
 2                   12                      140                                                 01/01                         
 3                   10                        20                                                08/03
 4

Ma macro teste la plage A2:D3 et si une colonne est vide comme ici la C, elle me la masque.
Mon probl&#232;me est que dans se tableau se remplit automatiquement grace &#224; une deuxieme feuille
Dans la cellule C2 par exemple je vais avoir une formule du type
si la cellule A1 d(e la feuille 2)="";"";copie A1
Dans mon exemple on en d&#233;duit donc que A1 est vide
Ma macro ne masque cependant pa cette colonne C car &#224; l'int&#233;rieur de C2 et C3 il y a des formules, comment les ignorer??
voici ma macro

Sub Coupe_Ligne() 
  Dim i As Long
Dim collection As Range
Set collection = Range("A2:I20")

nbligne = ActiveSheet.UsedRange.Columns.Count
    nbligne = nbligne + ActiveSheet.UsedRange.Column - 1
    Application.ScreenUpdating = False 'Supprime les lignes vides
For i = nbligne To 1 Step -1
    If Application.WorksheetFunction.CountA(collection.Columns(i)) = 0 Then Columns(i).Select
    Selection.EntireColumn.Hidden = True
    
Next i
  
End Sub

Merci d'avance

crogiez · Answer

bonjouir
Sub Coupe_Colonne()
    
    'Supprime les lignes vides
    
    Worksheets("Feuil1").Activate
    Range("A1:IV65536").Select
    areaCount = Selection.Areas.Count
    nbrcol = Selection.Columns.Count
    nbrlig = Selection.Rows.Count
    
    m = ""
    m = m + CStr(Selection.Columns.Count) + " colonnes" + vbCrLf
    m = m + CStr(Selection.Rows.Count) + " lignes" + vbCrLf
    MsgBox m
     
    numlig = 2
    
    For numcol = 1 To nbrcol
        If Feuil1.Cells(1, numcol).Value <> "" Then
            somcol = 0
            For numlig = 2 To nbrlig
                somcol = somcol + Feuil1.Cells(numlig, numcol).Value
                'm = ""
                'm = m + "value : " + CStr(Feuil1.Cells(numlig, numcol).Value) + vbCrLf
                'm = m + "somcol : " + CStr(somcol)
                'MsgBox m
            Next
            If somcol = 0 Then
                MsgBox "masquage colonne" + CStr(numcol)
                'l&#224; on masque
                Columns(numcol).Select
                Selection.EntireColumn.Hidden = True
            End If
        End If
    Next
     
End Sub

http://crogiez.free.fr

crogiez · Answer

si la cellule A1 d(e la feuille 2)="";"";copie A1; &#233;gal 0
alors si tu fais la somme de la colonne

SI(E1";";E1;0)

http://crogiez.free.fr

Lyly601 · Answer

D&#233;sol&#233; mais &#231;a ne r&#233;soud pas mon probl&#232;me, quand il y a des formules &#231;a ne masque pas ma colonne

crogiez · Answer

chez moi &#231;&#224; marche

http://crogiez.free.fr

Masque colonne vide (en ignorant les formules)

4 réponses

Discussions similaires