Discussion :

[Marc31]

Bonjour,

J'ai un code vba qui me permet de comparer d'un mois sur l'autre si une personne a changée de nom.

Le seul problème c'est que le code m'affiche un seul nom même s'il y a plusieurs résultats.

Voici le code ci-dessous:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Set FMoisAct = Sheets("mois1")
    Set FMoisPrec = Sheets("mois2")
    Set FTrait = Sheets("traitement")
 
    I = 1
    J = 2
 
    While FMoisAct.Cells(I, 1) <> ""
 
        On Error Resume Next
 
        Nom = WorksheetFunction.VLookup(FMoisAct.Cells(I, 1), FMoisPrec.Cells.Range("A:D"), 2, False)
 
        If Nom <> FMoisAct.Cells(I, 2) = 0 Then
 
            For K = 1 To 4
 
                FTraitement.Cells(J, K) = FMoisAct.Cells(I, K)
 
            Next K
 
        End If
 
        I = I + 1
 
    Wend
 
    FTrait.Activate

Si quelqu'un voit comment faire? Merci.

[Patrice740]

Bonjour,

D'où vient Etab ?

[Menhir]

Tu n'incrémentes pas la variable de ta ligne destination donc toutes les réponses s'inscrivent sur la même ligne.
Mets un J = J + 1 après ton Next K.

[Marc31]

Pour le Etab c'est une erreur et j'ai mis J = J + 1 aprés mon Next K et il m'affiche pleins de résultats mais pas les bons apparemment...

[Patrice740]

Re,

... J'ai un code vba qui me permet de comparer d'un mois sur l'autre si une personne a changée de nom.
Si quelqu'un voit comment faire? Merci.

Pour trouver le changement de nom d'une personne, il faut disposer d'un identificateur qui ne change pas (par Ex. le NNI).

[Marc31]

En fait ça marche nickel, j'avais juste une petite erreur dans la valeur FMoisAct.Cells(I, 4). Merci pour votre aide. Bonne journée.