VBA copie valeurs erronées quand cellules vides

[Kouik Kouik jr]

Bonjour tout le monde,

je suis devant un problème,,

j'ai une application qui recherche les valeurs d'une cellule correspondant a un identifiant dans une autre feuille excel.
Le problème c'est que pour toute identifiant (colonne p) vide, l'application me retourne des données incohérentes

Quelqu'un aurait il une idée ?

Voici mon code:

Merci d'avance🙂


With Sheets("SYZ")
Déb = 3
Fin = .Range("b" & .Rows.Count).End(xlUp).Row
End With
With Sheets("HSBC")
I = 1
Do While I < Fin
For J = Déb To Fin
If .Range("p" & I).Value = Sheets("SYZ").Range("b" & J).Value Then .Range("q" & I).Value = Sheets("SYZ").Range("c" & J).Value
If .Range("p" & I).Value = Sheets("SYZ").Range("b" & J).Value Then .Range("r" & I).Value = Sheets("SYZ").Range("d" & J).Value
If .Range("p" & I).Value = Sheets("SYZ").Range("i" & J).Value Then .Range("s" & I).Value = Sheets("SYZ").Range("j" & J).Value
If .Range("p" & I).Value = Sheets("SYZ").Range("i" & J).Value Then .Range("t" & I).Value = Sheets("SYZ").Range("k" & J).Value



Next J
I = I + 1
Loop
End With

 

[pierrejean]

Re : VBA copie valeurs erronées quand cellules vides

bonjour Kouik Kouik Jr

A 1ere vue

With Sheets("SYZ")
Déb = 3
Fin = .Range("b" & .Rows.Count).End(xlUp).Row
End With
With Sheets("HSBC")
I = 1
Do While I < Fin
For J = Déb To Fin
[COLOR=blue]If .Range("p" & I).Value <>"" then
[/COLOR]If .Range("p" & I).Value = Sheets("SYZ").Range("b" & J).Value Then .Range("q" & I).Value = Sheets("SYZ").Range("c" & J).Value
If .Range("p" & I).Value = Sheets("SYZ").Range("b" & J).Value Then .Range("r" & I).Value = Sheets("SYZ").Range("d" & J).Value
If .Range("p" & I).Value = Sheets("SYZ").Range("i" & J).Value Then .Range("s" & I).Value = Sheets("SYZ").Range("j" & J).Value
If .Range("p" & I).Value = Sheets("SYZ").Range("i" & J).Value Then .Range("t" & I).Value = Sheets("SYZ").Range("k" & J).Value
[COLOR=blue]End if[/COLOR]
Next J
I = I + 1
Loop
End With

 

[Kouik Kouik jr]

Re : VBA copie valeurs erronées quand cellules vides

Merci mille fois Pierrejean !

Ca a l'air facile quand c'est les autres qui le font mais j'arrive pas encore a le faire moi même 😀