Classement de données en VBA

Résolu

Cedric_hess Messages postés 28 Date d'inscription Statut Membre Dernière intervention -
Cedric_hess Messages postés 28 Date d'inscription Statut Membre Dernière intervention - 23 mai 2016 à 13:27

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

=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
Logiciel de classement de documents gratuit - Télécharger - Bureautique
Trier des données excel - Guide

1 réponse

Réponse 1 / 1

Cedric_hess Messages postés 28 Date d'inscription Statut Membre Dernière intervention

Rebonjour a tous

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

Discussions similaires

Que signifient les abréviations ''bp'', '''bc'', ''db'' etc. au football ?

Erreur d'exécution 13 Incompatibilité de type

Erreur la zone de données passée à un appel système est insu

Que veut dire db

Barre de données en pourcentage (maintenir 100% comme max)

Votre réponse

Discussions similaires