[XL-2003] code pour suppression de lignes

Bonjour !

Voilà de quoi t'aider un peu :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'maRange est une plage d'une seule cellule
 
'Savoir si une cellule est noire
If maRange.Interior.Color = RGB(0,0,0) Then
    debug.print "la cellule est noire."
End If
 
'Affecter une valeure à une cellule
maRange.Value = "Nouvelle valeur"
 
'Savoir si une cellule contient "toto"
If maRange.Value = "toto" Then
    debug.print "la cellule contient toto."
End If
 
'Supprimer la ligne d'une cellule
Row(maRange.Row).Delete