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