Rapport de message :*
 

selection cellule suivant contenu dans boucle IF

Titre du sujet : selection cellule suivant contenu dans boucle IF
par ramarc le 06/09/2011 14:33:13

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