Sarah Coff
XLDnaute Nouveau
Bonjour à toutes et à tous,
Me revoilà coincé une nouvelle fois dans vba ^^
je vous explique la situation : j'ai quatre colonnes deux avec des dates (A et D) de 1998 à 2010 (jour par jour) et deux avec des chiffres (B et E)
J'aimerai faire que les dates si la date en D n'est pas égal à la date en A alors on supprime les deux cases D et E . (et ainsi de suite)
ma macro est la suivante :
La ligne avec l'erreur est la suivante :
Range("D" & ma_ligne, "E" & ma_ligne).Delete Shift:=xlDown
Merci d'avance
Me revoilà coincé une nouvelle fois dans vba ^^
je vous explique la situation : j'ai quatre colonnes deux avec des dates (A et D) de 1998 à 2010 (jour par jour) et deux avec des chiffres (B et E)
J'aimerai faire que les dates si la date en D n'est pas égal à la date en A alors on supprime les deux cases D et E . (et ainsi de suite)
ma macro est la suivante :
VB:
Sub tri()
Dim rcell As Range
Dim rCellule As Range
Dim xCellule As Range
Dim ma_ligne As Long
For Each xCellule In Range("A2:A65536")
For Each rCellule In Range("D2:D65536")
If rCellule <> xCellule Then
ma_ligne = rCellule.Row
Range("D" & ma_ligne, "E" & ma_ligne).Delete Shift:=xlDown
End If
If rCellule = "" Then Exit Sub
Next
Next
End Sub
La ligne avec l'erreur est la suivante :
Range("D" & ma_ligne, "E" & ma_ligne).Delete Shift:=xlDown
Merci d'avance