Chercher et copier cellule avec N° de ligne
g
Bonjour,
Je suis à la recherche d'une macro pour réaliser la recherche suivante :
Rechercher une cellule d'un fichier par rapport au N° de ligne et une colonne (fichier "COMPTAGE") pour ensuite inscrire le contenu de la cellule vers un autre fichier "STOCK CA" dans une cellule bien précise. (Voir fichier en PJ pour mieux comprendre.)
Merci
Bonsoir,
Sub galopin()
Dim iLRS%, iLRC%, i%, j%
Dim TabloS(), TabloC()
Dim WbS As Workbook, WbC As Workbook
Dim WsS As Worksheet, WsC As Worksheet
'Détermination du nombre de ligne de Classeur "Source" et "Cible"
Set WbS = Workbooks("STOCK CA.xls")
Set WbC = Workbooks("COMPTAGE.xls")
Set WsS = WbS.Worksheets(1)
Set WsC = WbC.Worksheets(1)
iLRS = WsS.Cells(Rows.Count, 1).End(xlUp).Row
iLRC = WsC.Cells(Rows.Count, 1).End(xlUp).Row
TabloS() = WsS.Range("J1:J" & iLRS)
TabloC() = WsC.Range("F1:F" & iLRC)
Debug.Print TabloS(2, 1)
WsS.Columns(7).Clear
On Error Resume Next
'On passe en revue tout le monde
For i = 1 To UBound(TabloS)
WsS.Cells(i, 7) = TabloC(TabloS(i, 1), 1)
Next
Set WbS = Nothing
Set WbC = Nothing
Set WsS = Nothing
Set WsC = Nothing
End SubA+
g
Bonsoir,
Un grand merci toi GALOPIN01, génial ça marche super bien...
A++ galiax