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
Candidat au titre de Membre du Club
 
Date d'inscription: septembre 2007
Messages: 25
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
Vieux 03/07/2009, 00h22   #2
Membre à l'essai
 
Date d'inscription: juin 2009
Messages: 49
Par défaut

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

Code :
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
Vieux 03/07/2009, 07h24   #3
Membre à l'essai
 
Date d'inscription: juin 2009
Messages: 49
Par défaut

La nuit portant conseil.......

Code :
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
Vieux 04/07/2009, 21h51   #4
Candidat au titre de Membre du Club
 
Date d'inscription: septembre 2007
Messages: 25
Par défaut

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
NEWS EXCELF.A.Q EXCELTUTORIELS EXCELSOURCES EXCELOUTILS EXCELLIVRES EXCELOFFICE 2010

Réponse Proposer ce sujet en actualité

Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel



Outils de la discussion

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are non
Pingbacks are non
Refbacks are non



Fuseau horaire GMT +1. Il est actuellement 10h24.


Vos questions techniques : forum d'entraide Excel - Publiez vos articles, tutoriels et cours
et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones
Nous contacter - Hébergement - Participez - Copyright © 2000-2010 www.developpez.com - Legal informations.