[XL-2007] Historiser des données

[gobi1]

Bonjour à tous,

Je dois réaliser une macro qui permet d’historiser des données et j’aurai besoin de votre aide.

Je m’explique :

Je possède en celluleA2 de la feuille1 le nom d’une société que je dois rechercher dans la colonne B de la feuille2.

- Si je la trouve ; supposons que je la retrouve en B6 de la feuille 2 ; alors je dois coller certaines cellules de la feuille1 (disons B5,E4,E13….) en C6,D6,E6 de la feuille 2…(ie sur la ligne 6 ou elle se trouve)

- Si je ne la trouve pas, alors je dois copier le nom de cette société dans la 1ère cellule vide de la colonne B et comme précédemment je dois copier B5,E4,E13 (de la feuille1)sur la ligne en question de la feuille2.

Je ne sais pas si c’est assez clair, mais je vous remercie par avance de votre aide.

[CRACOS38]

Salut , je ne sais pas si j'ai bien compris ta question qui me parait trop simple BON VOILA A TOUT HASARD :

Code :

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

[CRACOS38]

La nuit portant conseil.......

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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 EXIT DO 
ELSE LIGN=LIGN+1
Loop
CELLS(LIGN,6)=CHERCH
'B5,E4,E13 (de la feuille1)sur la ligne en question 
END SUB

[gobi1]

Salut CRACOS38, merci beaucoup pour ta réponse mais je n'ai pas réussi à exploiter ton code. J'en ai fait un autre qui fonctionne bien, je le posterai en début de semaine à mon retour au boulot.

Merci encore.