Bonjour à tous,

Je suis nouveau sur la programmation VBA.

J'ai un petit souci de syntaxe dans une boucle IF.

Voila sur un tableau je selectionne une premiere fois une ligne en fonction du contenu de la colonne G en Feuil3, si il y a la phrase ' A planifier' je delete la ligne voir exemple.
-----------------------------------------------------------------
Sheets("Feuil3").Select
    Dim cel As Range, i%
        For i = [G5].End(xlUp).Row To 1 Step -1
            If Cells(i, "g") = "A planifier" Then Rows(i).Delete
        Next i
    On Error Resume Next
    Range("g1:c" & [g3000].End(xlUp).Row) _
    .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
------------------------------------------------------------------

Apparement il ne trouve pas.

et enfin je voudrais faire la même chose avec la date par exemple en colonne G Feuil3, si il y a une date inférieure à la date du jour par exemple : 
------------------------------------------------------------------

   Sheets("Feuil3").Select
    Dim cel As Range, i%
        For i = [G5].End(xlUp).Row To 1 Step -1
            If Cells(i, "g") < "03/03/08" Then Rows(i).Delete
        Next i
    On Error Resume Next
    Range("g1:c" & [g3000].End(xlUp).Row) _
    .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
------------------------------------------------------------------
et si la cellule G est vide je delete aussi la ligne.

Bien sur je crois que les syntaxes ne sont pas bonnes.

Je joint mon projet, la macro c'est testcopy1

Si quelqu'un peut m'aider je l'en remercie d'avance.

Et bon courage à tous.

Cordialement  

Bonjour Ramarc, Didier, le forum

Attention avec l'utilisation de la commande On Error Resume Next, elle peut masquer une erreur dans ton code ce qui est le cas ici.

La méthode Cells demande des valeurs numérique, il faut donc écrire Cells(i,7), pour accéder à la colonne G.

Bonne soirée

@+Jean-Marie 

Bonjour,

J'ai mis du temps à fermer le sujet et je m'en excuse.
 
Merci MYA c'est O.K.

Cordialement.