Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
Vieux 02/07/2009, 22h48   #1
Invité de passage
 
Inscription : septembre 2007
Messages : 25
Détails du profil
Informations forums :
Inscription : septembre 2007
Messages : 25
Points : 2
Points : 2
Par défaut Historiser des données

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.
gobi1 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 03/07/2009, 00h22   #2
Membre du Club
 
Inscription : juin 2009
Messages : 48
Détails du profil
Informations forums :
Inscription : juin 2009
Messages : 48
Points : 53
Points : 53
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

Dernière modification par AlainTech ; 07/07/2009 à 23h24. Motif: Balises [code]
CRACOS38 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 03/07/2009, 07h24   #3
Membre du Club
 
Inscription : juin 2009
Messages : 48
Détails du profil
Informations forums :
Inscription : juin 2009
Messages : 48
Points : 53
Points : 53
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

Dernière modification par AlainTech ; 07/07/2009 à 23h25. Motif: Balises [code]
CRACOS38 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 04/07/2009, 21h51   #4
Invité de passage
 
Inscription : septembre 2007
Messages : 25
Détails du profil
Informations forums :
Inscription : septembre 2007
Messages : 25
Points : 2
Points : 2
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.
gobi1 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +1. Il est actuellement 11h02.


 
 
 
 
Partenaires

Hébergement Web