Formule VBA

bonjour

après avoir importerez des données web sur ma feuille "temp", je souhaiterais copies certaines données vers ma feuille tarif, les données qui m’intéresse sont deux cellule en dessous de la cellule "référence" car sur ma feuille "temp" les données web peuvent etre dessaler lors d'une mise a jour.

j'ai fait une boucle en VBA suivante:

Sub compteur()

For ligne = 1 To 1000

compteur = 0

If Left(Sheets("TEMP").Cells(ligne, 1), 9) = "référencé" Then

compteur = compteur + 1

Sheets("TARIF").Cells(compteur, 1) = Sheets("TEMP").Cells(ligne - 1, 1).Hyperlinks(1).Address

If compteur = 94 Then Exit For

End If

Next

End Sub

j'ai une ou plusieurs erreur, mais je ne la trouve pas

merci de votre aide

Bonsoir

C'est quoi les erreurs et que veux-tu faire exactement.

Avec un petit fichier ce serait plus facile

A te relire

re

importer certaines données de la feuille temp (donnée web) vers ma feuille tarif

j'ai trouver mes erreur

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 = 100 Then Exit For

End If

Next

End Sub

mais je n'est qu'une seul référence dans ma feuille tarif, comment intégré le reste merci

re

je ne suis peut etre pas assez claire

voici un fichier

je n'ai que la cellule A16 sur ma feuille de tarif, je souhaiterais avoir ce qui suit (A26)

merci a tous

Re,

J'ai réouvert ce fil puisque tu ne sembles pas avoir une solution

Essaie ceci :

Sub importer()
'Macro Dan - 17/01/2014
Dim lg As Integer
lg = Sheets("Temp").Cells.Find(What:="référence", LookIn:=xlValues).Row + 2
Sheets("Temp").Range("A" & lg & ":A" & lg + 10).Copy Sheets("Tarif").Range("A1")
End Sub

Si ok, referme le fil comme tu l'as fait dans ton post précédent

A te relire

Amicalement

merci

nickel