Ajouter une 'incrémentation au identifiants.. Résolu

Question

Bonjour chers amis,

Nouveau venu dans le monde du VBA, je me trouve confronté à un pb dans la gestion d'un tableau sur deux colonnes.
Nous aidons les jeunes à trouver un stage, un emploi, une formation, etc...
Mais souvent ils postulent sur trois, quatre, ou cinq offres, mais avec un seul  numéro d'adhérent.

Ainsi, lors de la récupération des données du site et pour les exploiter sur Excel, je souhaite ajouter une racine d'incrémentation à l'identifiant.

Je précise....Le tableau contient deux colonnes, A: l'identifiant et B: l'intitulé de poste.

Je souhaite réaliser une macro qui va trier le fichier sur les identifiants, puis ajouter la racine"-0" à la premiere occurence, puis si un ientifiant existe  en deux exemplaires, le second aura la racine "-1", s'il y en à encore un il aura la racine "-2", etc..., puis quand le suivant change il reçoit à nouveau "-0" pour la première occurence, etc...
Exemple : 
1548752 devient 1548752-0, le suivant 1548752-1, ect...

Par avance je vous adresse toute ma reconnaissance et mes remerciements.
Bien à vous ,
Josiel..

tsunamidream · Answer

Bonjour,

J'ai essayé de faire quelque chose comme ca :


Sub fonction()
Dim liste(9, 1) As Variant
Dim inListe(9, 1) As Integer
Dim inl As Boolean
Dim currentIndex As Integer
Dim tempIndex As Integer
'Remplissage du tableau
'Ici je rempli juste les identifiants
'le tableau sera rempli : 1,2,3,1,2,3,1,2,3,1
Do While i < 10
    liste(i, 0) = 1
    If i < 9 Then
    liste(i + 1, 0) = 2
    liste(i + 2, 0) = 3
    End If
    i = i + 3
Loop

'tri
currentIndex = 0
For i = LBound(liste) To UBound(liste)
     inl = False
     'pour chaque identifiant on vérifie si on l'a déjà rencontré
     For j = LBound(inListe) To UBound(inListe)
        If liste(i, 0) = inListe(j, 0) Then
            inl = True
            tempIndex = j
        End If
     Next j
    'Si on l'a jamais rencontré on l'enregistre
    If inl = False Then
        inListe(currentIndex, 0) = liste(i, 0)
        inListe(currentIndex, 1) = 0
        MsgBox inListe(currentIndex, 0)
        currentIndex = currentIndex + 1
    End If
    If inl = True Then
        MsgBox liste(tempIndex, 0) & "-" & inListe(tempIndex, 1)
        inListe(tempIndex, 1) = inListe(tempIndex, 1) + 1
    End If
Next i

End Sub


Demandez si vous ne comprenez pas !

tsunamidream · Answer

Désolé pour le retard.
En espérant que cela convienne :

Sub fonction()

Dim inListe(1000, 1) As Integer
Dim inl As Boolean
Dim currentIndex As Integer
Dim tempIndex As Integer


currentIndex = 0
Do while Feuil1.Cells(i, 1) <> ""
     inl = False
     'pour chaque identifiant on vérifie si on l'a déjà rencontré
     For j = LBound(inListe) To UBound(inListe)
        If Feuil1.Cells(i, 1) = inListe(j, 0) Then
            inl = True
            tempIndex = j
        End If
     Next j
    'Si on l'a jamais rencontré on l'enregistre
    If inl = False Then
        inListe(currentIndex, 0) = Feuil1.Cells(i, 1)
        inListe(currentIndex, 1) = 0
        currentIndex = currentIndex + 1
    End If
    If inl = True Then
        Feuil1.Cells(i, 1) = Feuil1.Cells(i, 1) & "-" & inListe(tempIndex, 1)
        inListe(tempIndex, 1) = inListe(tempIndex, 1) + 1
    End If
i = i + 1
Loop

tsunamidream · Answer

Bonjour,


voici mon code testé cette fois ci :

Dim inListe(1000, 1) As Integer
Dim inl As Boolean
Dim currentIndex As Integer
Dim tempIndex As Integer

Sub fonction()

currentIndex = 0
i = 1

For k = LBound(inListe) To UBound(inListe)
    inListe(k, 0) = 0
    inListe(k, 1) = 0
Next k

Do While Feuil1.Cells(i, 1) <> ""
     inl = False
     'pour chaque identifiant on vérifie si on l'a déjà rencontré
     For j = LBound(inListe) To UBound(inListe)
        If Feuil1.Cells(i, 1) = inListe(j, 0) Then
            inl = True
            tempIndex = j
        End If
     Next j
    'Si on l'a jamais rencontré on l'enregistre
    If inl = False Then
        inListe(currentIndex, 0) = Feuil1.Cells(i, 1)
        inListe(currentIndex, 1) = 1
        Feuil1.Cells(i, 1).NumberFormat = "@"
        Feuil1.Cells(i, 1) = "" & Feuil1.Cells(i, 1) & "-0"
        currentIndex = currentIndex + 1
    End If
    If inl = True Then
        Feuil1.Cells(i, 1).NumberFormat = "@"
        Feuil1.Cells(i, 1) = "" & Feuil1.Cells(i, 1) & "-" & inListe(tempIndex, 1) & ""
        inListe(tempIndex, 1) = inListe(tempIndex, 1) + 1
    End If
i = i + 1
Loop
End Sub


Cordialement,

Ajouter une 'incrémentation au identifiants..

3 réponses

Discussions similaires

Newsletters