Bonjour,
je souhaite faire un trie dans un fichier excel depuis vb 2005 mais mon code ne fonctionne pas; ca ne génère aucun problème mais il tourne sans arrêt. Voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Dim CelluleCourante As Microsoft.Office.Interop.Excel.Range
        Dim CelluleSuivante As Microsoft.Office.Interop.Excel.Range
        CelluleCourante = xlWorkSheet2.Range("B1")
        Do While Not IsNothing(CelluleCourante) = True
            CelluleSuivante = CelluleCourante.Offset(1, 0)
            If CelluleSuivante.Value = CelluleCourante.Value Then
                CelluleCourante.Delete(Excel.XlDirection.xlUp)
            End If
            CelluleCourante = CelluleSuivante
        Loop
Quand je fais l'exécution pas à pas, les CelluleCourante et CelluleSuivante sont toujours vides alors que mon fichier contient des données.

merci pour votre aide.