Sujet Précédent Sujet Suivant

[ Excel ] aide pour macros ...

tosty -  
 tosty -
juste un truc c 'est possible avec un macros de creer une ligne et de rajouter des elements ...
je m'explique sur un fichier excel j'ai une liste de nom, ce sont le noms des parents (sous forme de liste) et dans un autre fichier j'ai une liste identique mais avec le nom des enfants ...
est 'il possible avec un macros de copier les noms des enfants et de la rajouter a la suite de leur parents ...
exemple :

dans le fichier des parents j'ai :
colonne A:

toto henry
tata jerome
titi albert

dans le fichier des enfants j'ai

colonne A

toto jean
toto james
tata franck
tata gilles
tata jeanne
titi vanessa

est t'il posible avec un macros de faire en sorte que le fichier des parents deviennent comme ca :

colonne A

toto henry
jean
james
tata jerome
franck
gilles
jeanne
titi albert
vanessa

en faite j'aimerai creer un macros qui cree un ligne et rajoute le nom des enfants sous celui de c parents

en faite j'ai une liste de 2300 environs je ne voudrai pas le faire a la mains si vous voyez ce que je veut dire :p

merci d'avance pour votre aide
tosty
A voir également:

5 réponses

Réponse 1 / 5
balou311 Messages postés 766 Statut Membre 87
 
Salut,

bien sur que c'est possible mais il faut la créer...
bienvenue dans le VB

bonne chance on peut te filer des billes si besoin

tcho
0
Réponse 2 / 5
tosty
 
et bien j'ai trouver des morceau de code .. mais quel est le mieux à utiliser c'est .find ou vlookup ?

mais en faite j'arrrive pas a trouver c'est une liste de toute les commande et etant en entreprise je n'est pas les droits necessaire pour installer l'aide de vb .. si vous avez une idée ... :s
0
balou311 Messages postés 766 Statut Membre 87
 
A mon avis ni l'un ni l'autre...
je suis sur ton problème ....
juste une question le nom et prénom son dans la même cellule ou nom dans colonne A et prénom colonne B???
ça serait plus simple avec nom en A et prénom en B

0
Réponse 3 / 5
tosty
 
et bien en faite le nom est dans la cellule A et le prenom dans la cellule B dans les deux tableau que ce soit pour les parents ou les enfants
merci d'avance
0
balou311 Messages postés 766 Statut Membre 87
 
essaye ça chez moi ça marche en remplaçant par les bons noms de fichiers... 


Sub Macro1()
'
' Macro1 Macro
' Macro recorded 11/08/2006 
'

'
    Dim fic_parents As Worksheet
    Dim fic_enfants As Worksheet
       
    Set fic_parents = Workbooks("test.xls").Worksheets(1)
    Workbooks.Open ("C:\chemin.......\test2.xls")
    Set fic_enfants = Workbooks("test2.xls").Worksheets(1)
    nb_lignes_parents = fic_parents.Range("A65536").End(xlUp).Row
    nb_lignes_enfants = fic_enfants.Range("A65536").End(xlUp).Row
    i = 1
    While i < (nb_lignes_parents + j)
        nom_p = fic_parents.Cells(i, "A")
        j = 1
        While j < (nb_lignes_enfants + 1)
            nom_e = fic_enfants.Cells(j, "A")
            prenom_e = fic_enfants.Cells(j, "B")
            
            If nom_p = nom_e Then
                i = i + 1
                fic_parents.Rows(i).Insert Shift:=xlUp
                fic_parents.Cells(i, "A") = prenom_e
                
            End If
            j = j + 1
            
        Wend
        i = i + 1
    Wend
    
    
End Sub


voila tcho
0
Réponse 4 / 5
tosty
 
petite question :

nb_lignes_parents = fic_parents.Range("B65536").End(xlUp).Row

c'est pour la colonne contenant les noms des parents c'est ca ?

nb_lignes_enfants = fic_enfants.Range("K65536").End(xlUp).Row

c'est pour la colonne contenant les noms des enfants c'est ca ?
0
balou311 Messages postés 766 Statut Membre 87
 
C'est pour savoir combien il ya de lignes (enregistrement) pour les enfants €=> nb_lignes_enfants et pour les parents

ça marche sinon???
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
tosty
 
desole de repondre si tard je viens de rentrer ... et bien dans le tableau des enfant il y a 2239 ligne et 953 dans celui des parent ... au faite ca marche y a juste un probleme c qu'il me rajoute une liste d'une dixaine de nom une dixaine de fois deja trier a la fin du tableau des parents (apres avoir executer le macro)
mais sinon il marche nikel ^^
merci
0