macro supprimer une ligne sous deux conditions

romeje69 · 24 Juillet 2012

Bonjour,
J'ai un tableau genre calendrier ou en colonnes D j'ai les jours.
J'ai crée une macro pour supprimer toutes les lignes ou en colonne D apparait "samedi".
Jusqu'ici tout va bien mais j'aimerais aussi supprimer les lignes ou apparait "dimanche"..
Une idée ?
voici ma macro merci :

Code:

Sub Macro1()
Dim I As Long
Dim Plage As Range
Set Plage = Range("D5:D" & Range("D5").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1
If Plage.Cells(I).Value = "samedi" Then
Plage.Cells(I).EntireRow.Delete
End If
Next
End Sub

flyonets44 · 24 Juillet 2012

Re : macro supprimer une ligne sous deux conditions

Bonsoir
il suffit de compléter ton instruction if par or if plage .cells(i).value="dimanche"
Cordialement
Flyonets

romeje69 · 24 Juillet 2012

Re : macro supprimer une ligne sous deux conditions

Bonsoir,

C'est ce que je pensais mais j'ai une erreur de syntaxe qui apparait à chaque fois....
J'ai essayé ça aussi

Code:

Sub Macro1()
Dim I     As Long
Dim Plage As Range
Set Plage = Range("D5:D" & Range("D5").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1
  If Plage.Cells(I).Value = "samedi" And Plage.Cells(I).Value = "dimanche" Then
  Plage.Cells(I).EntireRow.Delete
  End If
Next

End Sub

Mais la pas d'erreur mais il ne se passe rien non plus...

JNP · 24 Juillet 2012

Re : macro supprimer une ligne sous deux conditions

Bonsoir Jerôme69 et bienvenue, salut Flyonets
"And" signifie "et", donc ton code dit "samedi" et "dimanche" ...
Remplace "And" par "Or" et ça va aller beaucoup mieux ...
Bonne suite

romeje69 · 24 Juillet 2012

Re : macro supprimer une ligne sous deux conditions

effectivement tout simplement le if était juste de trop merci beaucoup

macro supprimer une ligne sous deux conditions

romeje69

XLDnaute Nouveau

flyonets44

XLDnaute Occasionnel

romeje69

XLDnaute Nouveau

JNP

XLDnaute Barbatruc

romeje69

XLDnaute Nouveau

Discussions similaires