Debutant sur du VBA

Bonjour à tous,

Je viens de me mettre au VBA sur EXCEL (1h), et je suis bloqué sur un petit truc que j'arrive pas à comprendre je m'explique

Sur la Colonne 1 je voudrais par exemple faire un test ou sur chaque cellule si y a une redondance je supprime la cellule sinon je passe

Si j'ai bien compris le truc en code sa donne sa ?

Code:

---

1 2 3 4 5 6 7 8

Sub test()   n = 1 If Cells(n, 1) = Cells(n + 1, 1) Then Cells(n, 1).Delete Else n = n + 1 End If End Sub

---

Quand j'essaie d’exécuter on me dit que L'instruction Else sans IF 8O ( erreur de compilation )
suis-je vraiment à l'ouest ?

Code:

---

If Cells(n, 1) = Cells(n + 1, 1) Then Cells(n, 1).Delete

---

C'est un IF sans Elsesur une seule ligne

Là tu dois juste mettre à la ligne apres le Thenet apres le Else:

Code:

---

1 2 3 4 5 6 7 8

Sub test() n = 1 If Cells(n, 1) = Cells(n + 1, 1) Then Cells(n, 1).Delete Else n = n + 1 End If End Sub

---

Bonjour,

Bon apprentissage .... C'est formateur :)
En version plus rapide, vous pouvez utiliser l'équivalent VBA au Excel: Range.RemoveDuplicate comme (non testé)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Test2   Dim InpRng As Range   Set InpRng = ActiveSheet.Range("A1").CurrentRegion.Columns(1) Debug.Print InpRng.Address, InpRng.Rows.Count   Set InpRng = InpRng.RemoveDuplicate Debug.Print InpRng.Address, InpRng.Rows.Count   End Sub

---

Merci Antony ça marche très j'avais mal compris la syntaxe du coup :aie:

vinc_bilb

Ah oui ça m’intéresse ce genre de proposition je savais pas qu'il y avait ce genre de fonction !!! parce que le but c'est de parcourir toute la colonne et de supprimer toute valeurs répéter ! et si j'ai bien compris cette fonction prédéfinie "RemoveDuplicate" sert automatiquement à faire sa ! je teste et je te fais un retour :D

Citation:

---

Envoyé par samybelarbi

parce que le but c'est de parcourir toute la colonne et de supprimer toute valeurs répéter !

---

Pour ça, il faudra que tu t'intéresses aux boucles. Regarde dans l'aide VBA d'Excel les utilisation et syntaxe de :
For to
For Each
While
Loop

Les boucles, c'est la base et l'une des principales raisons d'être des macros sous Excel.

Petit conseil aussi : quand on supprime des lignes, il est plus pratique de partir du bas et de remonter.

Code:

---

1 2 3 4 5 6 7

Sub test()   For n = Cells(1,1).End(xlDown).Row to 2 Step -1 If Cells(n, 1) = Cells(n - 1, 1) Then Cells(n, 1).Delete Next n   End Sub

---

Les puristes diront qu'il aurait mieux valut écrire :

Code:

---

For n = Cells(Rows.Count,1).End(xlUp).Row to 2 Step -1

---

Mais la formulation précédente sera sans doute plus facile à comprendre pour un débutant.