Classement de données en VBA
Résolu
Cedric_hess
Messages postés
30
Statut
Membre
-
Cedric_hess Messages postés 30 Statut Membre -
Cedric_hess Messages postés 30 Statut Membre -
Bonjour,
j'ai cette formule qui me fait le classement des données par valeur sans sauter les valeur comme fait la fonction de excel , voila la fonction
ce que j'essaye de faire est de transformer cette fonction en code vba , voila mon essaye :
mais je recois que des un dans toute la colonne , quelqu'un peut m'aider pour trouver ou est le probleme s'il vous plait et merci d'avance
j'ai cette formule qui me fait le classement des données par valeur sans sauter les valeur comme fait la fonction de excel , voila la fonction
=IF(D2=D3,E2,E2+1)
ce que j'essaye de faire est de transformer cette fonction en code vba , voila mon essaye :
Sub rank()
Dim i As Integer
Cells(2, 5) = 1
For i = 2 To WorksheetFunction.CountA(Columns(4))
If Cells(i, 4).Value = Cells(i + 1, 4).Value Then
Cells(i, 5).Value = Cells(i, 5).Value
Else: Cells(i, 5).Value = Cells(i, 5).Value + 1
End If
Next i
End Sub
mais je recois que des un dans toute la colonne , quelqu'un peut m'aider pour trouver ou est le probleme s'il vous plait et merci d'avance
A voir également:
- Classement de données en VBA
- Fuite données maif - Guide
- Supprimer les données de navigation - Guide
- Logiciel de classement de photos gratuit - Guide
- Trier des données excel - Guide
- Logiciel de classement de documents gratuit - Télécharger - Bureautique
1 réponse
Rebonjour a tous
si quelqu'un est interessé par la solution enfaite fallait just changer l'ordre et voila le code qui marche :
si quelqu'un est interessé par la solution enfaite fallait just changer l'ordre et voila le code qui marche :
Sub rank()
Dim i As Integer
Cells(2, 5) = 1
For i = 2 To WorksheetFunction.CountA(Columns(4))
If Cells(i, 4).Value = Cells(i + 1, 4).Value Then
Cells(i+1, 5).Value = Cells(i, 5).Value
Else: Cells(i+1, 5).Value = Cells(i, 5).Value + 1
End If
Next i
End Sub
