Discussion :

[pascal.59]

bonjour

voici mon petit problème, mon code recherche dans la feuille "tarif" un nombre est recopie la cellule a coté dans la colonne dans ma feuille "MaJ référence, j'aimerais dans le même code avoir aussi la colonne après

espèrent avoir était clair


voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub Ossatures()
 
Dim ShSource As Worksheet
Dim ShCible As Worksheet
 
Dim LigneCibleEnCours As Long
Dim I As Long
 
Dim ValeursAChercher As Variant
 
 
Set ShSource = Sheets("Tarif")
Set ShCible = Sheets("MaJ référence")
LigneCibleEnCours = 3
 
ValeursAChercher = Array(1830140, 1830141, 1830142, 1830143, 1830134, 1830135, 1684748, 1830136, 1830131, 1830132, 1830133, 1877600, 3099675, 1174113, 1606496) 'L'ordre a son importance pour le résultat.
'to 2 nombre de référence recherche
For I = 1 To 15
'cible range colonne de destination
RecuperationDonnees ShSource, ValeursAChercher(I - 1), ShCible.Range("A" & LigneCibleEnCours)
LigneCibleEnCours = LigneCibleEnCours + 1 ' Si les résultats doivent s'ajouter les uns à la suite des autres
Next I
 
Set ShSource = Nothing
Set ShCible = Nothing
 
 
End Sub
 
 
Sub RecuperationDonnees(ByVal FeuilleSource As Worksheet, ByVal ValeurRecherchee As Variant, CelluleCible As Range)
 
Dim CelluleRecherchee As Range
 
Set CelluleRecherchee = FeuilleSource.Columns("A").Find(what:=ValeurRecherchee, LookIn:=xlValues, lookat:=xlWhole)
'colonne recherche
If Not CelluleRecherchee Is Nothing Then CelluleCible = CelluleRecherchee.Offset(0, 1)
Set CelluleRecherchee = FeuilleSource.Columns("B").Find(what:=ValeurRecherchee, LookIn:=xlValues, lookat:=xlWhole)
 
 
End Sub

merci a tous

[Philippe Tulliez]

Bonjour,

espèrent avoir était clair

Pas vraiment.
Il y a des mots qui manquent dans ta phrase. Peut-être un "delete" malencontreux ?

[pascal.59]

boujour

voici un fichier pour mieux comprendre

merci

[Philippe Tulliez]

Bonjour,
C'est si difficile d'expliquer clairement ce que tu souhaites faire ?
Quand je réponds à quelqu'un, je fais l'effort d'exposer la façon d'arriver au résultat et ce sans avoir à déposer un classeur qui serait dépourvu d'explication sur ce forum.
J'en attends le même effort mais rassure toi, je ne suis pas seul à répondre.

[patricktoulon]

Bonjour

il est vrai que l'explication est plus que mince
il faudrait avoir des précisions sur le contexte

cependant

colle cet exemple dans un module standard

sélectionne une cellule dans le sheets code et lance cette macro

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub recherche_code()
Dim derlig As Long
derlig = Sheets("tarif").Range("a" & Rows.Count).End(xlUp).Row
valeur = ActiveCell.Value
With Sheets("tarif").Range("b1:b" & derlig)
    Set c = .Find(valeur, LookIn:=xlValues)
    If Not c Is Nothing Then ActiveCell.Offset(0, 1) = c.Offset(0, -1)
End With
End Sub

Au plaisir

[pascal.59]

MERCI A TOUS

J'ai trouvé la solution

[Chtulus]

Bonjour,

Il aurait été bon de la poster ou de l'expliquer