1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Option Explicit
Public CHERCH
PUBLIC LIGN
---------------------------------------------------------------------
PUBLIC SUB INVESTIG()
Sheets("TA 1 ere FEUILLE").Select '(JE SUPPOSE QUE TU AS TROUVE TA VALEUR EN A2)
CHERC=CELLS(2,1)
Sheets("TA 2 eme FEUILLE").Select
'(JE SUPPOSE TOUJOURS QUE TU TRAVAIL SUR LA MEME COLONNE)
LIGN=1
Do While CELLS(LIGN,6) <> ""
IF CELLS(LIGN,6)=CHERCH THEN
'(disons B5,E4,E13
.) en C6,D6,E6
ELSE LIGN=LIGN+1
Loop
CELLS(LIGN,6)=CHERCH
'B5,E4,E13 (de la feuille1)sur la ligne en question
END SUB |
Partager