Rechercher nouvelles entrées en VBA

[qsdfg]

Bonjour, j'ai un fichier avec 2 feuilles. Sur la feuille ajout des donnees on étées modifiées par rapport à la feuille base, des nouvelles entrées, des suppression, etc... Le nombre de ligne n'est pas forcement le meme sur les 2 feuilles. J'aimerais effectué une recherche sur la feuille ajout des nouvelles entrées par rapport a la feuille base, le critere de recherche se trouve en colonne I "Num", et d'inscrire le numero se trouvant dans la colonne I sur une nouvelle feuille. Le fichier à traiter comprend plusieurs centaine de ligne. J'avais essayé avec Find mais le resultat n'est pas toujours precis et parfois il y a des manques.
D'avance merci pour votre aide.
Voir fichier exemple.

 

[Papou-net]

Re : Rechercher nouvelles entrées en VBA

Bonsoir qsdfg,

La fonction Find ne fonctionne pas toujours car si elle trouve une sous-chaîne dans une chaîne elle considère le résultat comme vrai.

Pour ton cas présent, tu dois utiliser la fonction CountIf, comme dans l'exemple suivant :

Sub CompteAjouts()
For Each cel In Sheets("ajout").Range("I:I").SpecialCells(xlCellTypeConstants)
  If Application.WorksheetFunction.CountIf(Sheets("base").Range("I:I"), cel.Value) = 0 Then
    Sheets("resultat escompté").Range("A:A").SpecialCells(xlCellTypeLastCell).Offset(1, 0) = cel.Value
  End If
Next
End Sub

Vois le résultat sur la copie de ton fichier ci-jointe.

Cordialement.

 

[qsdfg]

Re : Rechercher nouvelles entrées en VBA

Super merci ça a l'air de fonctionner au poil !