Discussion :

[samybelarbi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ( erreur de compilation )
suis-je vraiment à l'ouest ?

[antonysansh]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vinc_bilb]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[samybelarbi]

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

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

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.