Besoin d'un oeil neuf pour voir mon code
Bonjour tout le monde,
j'ai un petit souci dans mon code que me met si dessous. J'aimerai que vous m'expliquier sont fonctionnement. J'ai tout simplement copier se code d'une autre de mes fichiers excel et lui fonctionne à merveille, je pensais l'avoir compris mais faut croire que non.
etat = 5
introw = 1
While ActiveSheet.Cells(introw, 4) <> ""
If ActiveSheet.Cells(introw, 10).Value = "" Then
'ActiveSheet.Cells().Value = "=RECHERCHEV(Import!D2;NouvelleImport!D:D;1;FAUX)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(Import!RC[-6],NouvelleImport!C[-6],1,FALSE)"
If ActiveSheet.cell(introw, 10).Value <> "" Then
ActiveSheet.cell(introw, 7).Value = etat
End If
End If
introw = introw + 1
Wend
PS: la colonne J contient une code de se genre "44109P0081"
Merci d'avance.
--
Si vous avez besoin de quelque chose, appelez-moi. Je vous dirai comment vous en passer.
-Coluche-
j'ai un petit souci dans mon code que me met si dessous. J'aimerai que vous m'expliquier sont fonctionnement. J'ai tout simplement copier se code d'une autre de mes fichiers excel et lui fonctionne à merveille, je pensais l'avoir compris mais faut croire que non.
etat = 5
introw = 1
While ActiveSheet.Cells(introw, 4) <> ""
If ActiveSheet.Cells(introw, 10).Value = "" Then
'ActiveSheet.Cells().Value = "=RECHERCHEV(Import!D2;NouvelleImport!D:D;1;FAUX)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(Import!RC[-6],NouvelleImport!C[-6],1,FALSE)"
If ActiveSheet.cell(introw, 10).Value <> "" Then
ActiveSheet.cell(introw, 7).Value = etat
End If
End If
introw = introw + 1
Wend
PS: la colonne J contient une code de se genre "44109P0081"
Merci d'avance.
--
Si vous avez besoin de quelque chose, appelez-moi. Je vous dirai comment vous en passer.
-Coluche-
Configuration: Une bonne bébétte bien docile ;-)
