Discussion :

[pascal.59]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pascal.59]

re

on avance

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

merci