Mettre une condition au début de macro

libellule85 · 24 Septembre 2011

Bonsoir le forum,

J'aurais une nouvelle fois besoin de vous. En effet, je voudrais mettre une condition au début de cette macro (début du code ci-dessous). Actuellement celle-ci recherche les lignes à partir de la ligne 20. Or, ce que je voudrais c'est que celà commence à la ligne 21 si la ligne 19 est écrite et commence à la ligne 20 si ligne 19 vide.
D'avance merci pour votre aide

Code:

Private Sub ApercuAvantImpression(ByVal control As IRibbonControl)
Dim I As Long, c As Range
 Application.ScreenUpdating = False
 For I = 20 To 39
     Set c = Rows(I).Find("*", , xlValues, , 1, 1, 0)
     If c Is Nothing Then Rows(I).Hidden = True
 Next I.....

Etienne2323 · 24 Septembre 2011

Re : Mettre une condition au début de macro

Salut libellule,
peut-être quelque chose comme ceci :

VB:

Sub Test()
Dim Plage As Range, c As Range
Dim I As Long, Ligne_Debut As Long

    Set Plage = Cells(19, 1).EntireRow
    
    If Application.WorksheetFunction.CountA(Plage) <> 0 Then
        Ligne_Debut = 21
    Else
        Ligne_Debut = 20
    End If
    
    For I = Ligne_Debut To 39
        Set c = Rows(I).Find("*", , xlValues, , 1, 1, 0)
        If c Is Nothing Then Rows(I).Hidden = True
    Next I
    
     Set Plage = Nothing
 End Sub

Cordialement,

Étienne

libellule85 · 24 Septembre 2011

Re : Mettre une condition au début de macro

Bonsoir Etienne2323,
Tout d'abord merci pour ta réponse, j'ai essayé ton code, résultat que la ligne 19 soit écrite ou non l'espace reste toujours le même !

Mettre une condition au début de macro

libellule85

XLDnaute Accro

Etienne2323

XLDnaute Impliqué

libellule85

XLDnaute Accro

Discussions similaires

Mettre une condition au début de macro

libellule85

XLDnaute Accro

Etienne2323

XLDnaute Impliqué

libellule85

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency