Discussion :

[statista]

Bonjour,
Sauriez vous m'aider car je ne comprends pas l'origine du problème dans mon code. L'erreur renvoyée parle débogage est "End if sans bloc if" or j'ai bien un bloc if. Le plus troublant est que même lorsque je mets le "End If" en commentaire je continue d'avoir la même erreur au débobage (alors qu'il n'y a plus de end if donc).

Voilà le code en question (c'est pour supprimer la ligne de total d'une base):

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
16
Sub Macro25()
'
' Macro25 Macro
'
Dim Cell As Range
'
    Range("C4").Select
    Selection.End(xlDown).Select
    If Left(ActiveCell.Value, 5) = "Total" Then Do
        ActiveCell.Row.Select
        Selection.Delete
        MsgBox ("ligne de total supprimée")
    Else: Do
    MsgBox ("Pas de ligne supprimée, car ne commence pas par total (vérifier)")
    End If
End Sub

erreur renvoyée: "End If sans bloc If" (même si je mets une apostrophe devant le "End If" pour le mettre en commentaire).

Merci d'avance pour votre aide

[Godzestla]

Bonjour,

enlève les do après then et else.
Le do n'a pas lieu d'être dans ce contexte.

C'est marrant on dirait un autre langage !

[statista]

Merci Godzestla
Effectivement je confondais avec le langage SAS!

[Theze]

Bonjour,

Tu peux simplifier et surtout éviter les différents "Select" :

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
16
17
18
19
 
Sub Macro25()
 
    Dim Cel As Range
 
    Set Cel = Range("C4").End(xlDown)
 
    If Left(Cel, 5) = "Total" Then
 
        Cel.EntireRow.Delete
        MsgBox ("ligne de total supprimée")
 
    Else
 
        MsgBox ("Pas de ligne supprimée, car ne commence pas par total (vérifier)")
 
    End If
 
End Sub

Hervé.

[statista]

Ok, merci pour ta simplification Hervé, je vais prendre ton code!