recupérer des données

bonjour

dans mon classeur j'ai une feuille "temp" et "tarif"

j'ai dans ma feuille "temp" mes données avec des référence sous forme de chiffre (exemple:1830143,1778695, ect.. ) que je souhaite colle dans ma feuille tarif

les problèmes :

les données a récupéré dans ma feuille "temp" peuvent être décaler car il vienne d'une site internet s (actualisation des données) alors je ne connais pas la cellule de départ, ni la fin
voici ce que j'ai fait;

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub importer() compteur = 0 For ligne = 1 To 1000   If Left(Sheets("Temp").Cells(ligne, 1), 9) = "Référence" Then compteur = compteur + 1 Sheets("Tarif").Cells(compteur, 1) = Sheets("Temp").Cells(ligne + 2, 1) If compteur = 50 Then Exit For   End If   Next   End Sub

---

j'ai recherche la le mot référence dans la colonne 1 est j'ai copie deux cellule en dessous c'est a dire 1008456, et je souhaiterais avoir les chiffre en dessous,

je n'ai pas trouve la solution qui je pense est sous mon nez, mais je rame complet merci de votre aide

Code:

---

1 2 3 4 5 6 7 8 9 10 11

dim Myrange as range Dim start as booleant set myrange=Sheets("Temp").usedrange for l=1 to myrange.rows.count if start= true then 'Code If compteur = 50 Then Exit For end if If Left(myrange(l, 1), 9) = "Référence" Then start= true   next

---

re

on avance

dans ma feuille "tarif" j'ai des cellule vide, comment les supprimé

merci