VBA Problème lors de la comparaison de cellules

[Kouik Kouik jr]

Bonjour tout le monde,

J'ai actuellement un ptit problème avec mon code.
Celui ci effectue presque la tâche que j'attend :
Copier telle valeur en fonction de l'identifiant correspondant trouvé, sauf que cela marche pour les 6 premiers identifiants et ensuite il me colle des valeur qui ne correspondent pas a l'identifiant en question

Une bonne âme pourrait elle m'aider à éclaircire ce problème ?

Merci d'avance

Sub comment()


Dim rng1 As Range
Dim rng2 As Range
Dim RowNo As Long
Dim liste() As Integer
Dim C As Range
Dim i As Integer

Set rng1 = Worksheets("Feuil2").Range("B1", Worksheets("Feuil2").Range("B" & Rows.Count).End(xlUp))
Set rng2 = Worksheets("Feuil3").Range("E1", Worksheets("Feuil3").Range("E" & Rows.Count).End(xlUp))
ReDim liste(0)
For Each C In rng1
If Application.WorksheetFunction.CountIf(rng2, C) > 0 Then
ReDim Preserve liste(UBound(liste) + 1)
liste(UBound(liste)) = C.Row
End If
Next C
'
For i = UBound(liste) To 1 Step -1
Worksheets("Feuil3").Activate
Worksheets("Feuil3").Cells(liste(i), 2).Copy
Worksheets("Feuil2").Activate
Worksheets("Feuil2").Cells(liste(i), 3).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Next
End Sub

 

[James007]

Re : VBA Problème lors de la comparaison de cellules

Bonjour,

A la lecture du code, il semblerait que le " Kouik " 😉 ne puisse provenir que de la définition des zones ... il faut bien vérifier tes deux ranges ... ou de la liste()

A +

 

[Kouik Kouik jr]

Re : VBA Problème lors de la comparaison de cellules

je vois toujours pas d'ou ca peut venir(ca doit etre tout simple mais je suis encore débutant) je vous joins les feuil 2 et 3

 

[James007]

Re : VBA Problème lors de la comparaison de cellules

....
malheureusement ... nous sommes encore nombreux à ne pas avoir franchi le cap ... ton fichier est au format Excel 2007 ... 😉
....
Peux-tu le repasser dans un format lisible par le plus grand nombre ...

A +

 

[Kouik Kouik jr]

Re : VBA Problème lors de la comparaison de cellules

Enfin ! j'ai eu de la peine a convertir et zipper j'espère que cela sera bon

voici et merci bcp d'avance !

 

[skoobi]

Re : VBA Problème lors de la comparaison de cellules

Bonjour James007, Kouik Kouik jr,

Copier telle valeur en fonction de l'identifiant correspondant trouvé, sauf que cela marche pour les 6 premiers identifiants et ensuite il me colle des valeur qui ne correspondent pas a l'identifiant en question

Bin la liste d'identifiant entre les 2 feuilles n'est pas exactement la même donc décalage...🙄.

Bonne soirée.

 

[James007]

Re : VBA Problème lors de la comparaison de cellules

Bonjour à tous.

Skoobi a raison ... pour illustrer le propos, Equiv() te permet d'identifier les erreurs ..

A +

 

[Kouik Kouik jr]

Re : VBA Problème lors de la comparaison de cellules

C'est ca la difficulté ! Comment éviter ce décalage ?

J'aimerais pouvoir comparer les fonds et quand l'identifiant n'est pas retrouvé laissé le fonds de coté et continuer les autres fonds (S l'identifiant de la feuil3 ne correspond pas cela n'est pas grave).De plus, si le nombre de fonds n'est pas le même entre feuil2 et 3 c'est normal car cela dépend des réconciliations .

Merci d'avance

 

[GCFRG]

Re : VBA Problème lors de la comparaison de cellules

Salut, pas sur d'avoir tout compris mais tu peux essayer çà, et peut-être l'adapter.
@+ Gilbert

Sub test()
Dim Déb As Integer, Fin As Integer, I As Integer, J As Integer
With Sheets("Feuil3")
    Déb = 1
    Fin = .Range("e" & .Rows.Count).End(xlUp).Row
End With
With Sheets("Feuil2")
I = 1
Do While I < Fin
    For J = Déb To Fin
        If .Range("b" & I).Value = Sheets("Feuil3").Range("e" & J).Value Then .Range("c" & I).Value = Sheets("Feuil3").Range("b" & J).Value
    Next J
    I = I + 1
Loop
End With
End Sub

 

[Kouik Kouik jr]

Re : VBA Problème lors de la comparaison de cellules

Merci BCP ca marche impec !

 

[GCFRG]

Re : VBA Problème lors de la comparaison de cellules

Au plaisir 🙂
GC