Discussion :

[gus02]

Bonjour à tous et a toutes,

Me voila face à un problème dont je ne vois pas la solution,

explication : J'ai

500 références dans ma colonne B,

3000 références dans ma colonne F,
3000 prix des références dans G,

Je souhaite trouver la référence B dans F, puis coller le prix G en C.
Si je ne trouve pas B en F je met une couleur en C.

Voici mon 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
 
Sub Rectangle1_QuandClic()
 
Dim i, x, ligne  As String
Dim rngTrouve, newprix As Range
 
i = 2
 
While Cells(i, 2) <> Empty
 
    x = Cells(i, 2)
 
    Set rngTrouve = ActiveSheet.Columns(6).Cells.Find(what:=x)    
 
    If rngTrouve Is Nothing Then    
      Cells(i, 2).Interior.Color = RGB(200, 160, 35)    
    Else    
      ligne = Mid(rngTrouve.Address, 1, 4)
      Cells(ligne, 7).Select
      Selection.Copy
      Range("C" & i).Select
      ActiveSheet.Paste        
    End If
    i = i + 1
Wend
End Sub

Le problème se trouve à :

ligne = Mid(rngTrouve.Address, 1, 4)

Effectivement si je n'ai pas beaucoup de ref en F cela fonctionne bien mais si il y en a beaucoup (ce qui est mon cas) je me retrouve avec des valeurs : $F$2 pour la ligne 279 ou $F$3 pour la ligne 308,

Comment puis je faire ???

Merci par avance !

[jfontaine]

Bonjour,

En utilisant la propriété Row (ligne)

Code :

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

ligne = rngTrouve.Row

[gus02]

jfontaine, je te présente toutes mes excuses pour cette question, cela fait quelques temps que je ne touche plus au VBA,

Lorsqu'on a la réponse sous les yeux c'est tellement évident .... !

ENCORE MERCI !

[jfontaine]

jfontaine, je te présente toutes mes excuses pour cette question, cela fait quelques temps que je ne touche plus au VBA,

Il peut aussi m'arriver des faire un code assez "tordu" et m'en rendre compte quelque temps après, à tête reposée