Bonjour à tous,
J'ai une petite question pas bien compliquée, mais qui me pose souvent probleme. Voici mon code :
Ma boucle recherche la dernière ligne de mon tableau. Mais pendant la procédure j'efface des lignes, ce qui fait que la fin de mon tableau change.
quelle est le moyen le plus 'propre' de changer la fin de mon tableau ?
Parce que là, à la fin de ma macro, j'ai une 40aines de lignes toutes bleues (le code ne s'adapte pas à la fin du tableau, garde la fin de départ.
Merci d'avance
++
Creepy
J'ai une petite question pas bien compliquée, mais qui me pose souvent probleme. Voici mon code :
Private Sub dede()
Dim A As Integer
For A = 4 To Range('A4').End(xlDown).Row
If (Range('B' & A).Value = 'NA' Or Range('B' & A).Value = '-' Or Range('B' & A).Value = '0') And (Range('C' & A).Value = 'NA' Or Range('C' & A).Value = '-' Or Range('C' & A).Value = '0') And (Range('D' & A).Value = 'NA' Or Range('D' & A).Value = '-' Or Range('D' & A).Value = '0') Then
Range('N' & A).EntireRow.Delete
A = A - 1
End If
If Range('B' & A).Value = '' Then
Range('A' & A & ':Y' & A).Font.Bold = True
Range('A' & A & ':Y' & A).Interior.ColorIndex = 37
End If
Next
End Sub
Ma boucle recherche la dernière ligne de mon tableau. Mais pendant la procédure j'efface des lignes, ce qui fait que la fin de mon tableau change.
quelle est le moyen le plus 'propre' de changer la fin de mon tableau ?
Parce que là, à la fin de ma macro, j'ai une 40aines de lignes toutes bleues (le code ne s'adapte pas à la fin du tableau, garde la fin de départ.
Merci d'avance
++
Creepy