utiliser un code pour une feuille "x" Fermé

Question

bonjour 
j'ai rien un code vba ,et je veux l'adapter pour faire la manup sur pour une feuille "master" :
Dim Lg%, cL%, A%, i%, x
    x = Time
    Application.ScreenUpdating = False
    cL = Cells(1, 2000).End(xlToLeft).Column
    For A = 1 To cL
        Lg = Cells(65536, A).End(xlUp).Row
         For i = Lg To 1 Step -1
            If Cells(i, A) = "" Then
                Cells(i, A).Delete Shift:=xlUp
            End If
        Next i
    Next A
    MsgBox ("temps macro = " & Format(Time - x, "hh:mm:ss"))

michel_m · Answer

Bonjour

1/pas besoin de boucler pour supprimer une ligne si cellule dans col A et/ou B et/ou X... vide    ;o)
Option ExplicitConst Master As String = "Feuil1"'------------------Sub Supprimer_si_vide()Dim Ligne As Integer, Col As Byte    'On Error resume next    With Sheets(Master)        Col = .Rows(1).Find(what:="*", searchdirection:=xlPrevious).Column        Ligne = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row        .Range(.Cells(1, 1), .Cells(Ligne, Col)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete    End WithEnd Sub
durée: instantanée

2/ pour mesurer une durée
dim start as singlestart=timer...le code....Msgbox "durée: " & timer-start & " sec."
3/ pour faciliter la maintenance
Dim variable as Integer plus parlant que  dim variable%
 
EDit 9:36H
adapté code pour plusieurs colonnes
 Michel

Utiliser un code pour une feuille "x"

1 réponse

Discussions similaires