boucle mettant a la suite d'un tableau des données d'un autre tableau un nombre de fois donné.
#1
Débutant XLPages

Inscription: 09/12/2015
De Paris

Messages: 6

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 11-12-2015 13h08

Bonjour,

S'il vous plaît j'aimerais réalisé une boucle qui récupère des données d'un tableau pour le mettre dans un autre. et a l'aide d'un msgbox l'utilisateur entre le nombre de fois que la boucle va être effectué. mon code marche très bien pour la première utilisation mais ensuite si je le repète il ne change pas de ligne donc copie les même données pouir les écraser encore. mais j'aimerais que si l'utilisateur demande que la boucle s'excecute 2 fois alors:

RESULTAT VOULU:

1ère boucle: le code copie les premiers données de la ligne A1 du tableau 1 et les copie a la suite du tableau 2 donc pas forcement A1 mais a la suite des données deja présente.

2ème boucle: le code descend automatiquement d'une ligne donc A2 du tableau 1 et les copie a la suite du tableau 2.

 

Je ne sais pas si j'ai été assez clair mais en vous remerciant d'avance ci dessous un extrait de mon code que je n'arrive pas a réaliser

 

CORDIALEMENT

 

Sub test_EXCEL()
        Dim NBRE As Integer
        NBRE = InputBox("ENTREZ LE NOMBRE DE VOITURE", "NBRE V") 'NOMBRE DE FOIS QU'ON REPETE LA BOUCLE
        Workbooks.Open Filename:="C:\Users\GIS\Desktop\GIS\CA_2015_GIS.xlsx"
        Windows("CA_2015_GIS.xlsx").Activate
        Sheets("CA " & (InputBox("MOIS D'ENREGISTREMENT (JANVIRE, FEVRIER...)", "MOIS")) & " 2015").Select
        '+---------------------------------+
        '|         DEBUT DE LA BOUCLE      |
        '+---------------------------------+
        Windows("HOME.xlsm").Activate
        Sheets("DOSSIER").Select
        Range("E10").Select ' COPIE DATE
        Application.CutCopyMode = False
        Selection.Copy
        Windows("CA_2015_GIS.xlsx").Activate
        Range("A7").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Windows("HOME.xlsm").Activate
        Range("E11").Select 'COPIE NUM DOSSIER
        Application.CutCopyMode = False
        Selection.Copy
        Windows("CA_2015_GIS.xlsx").Activate
        Range("B7").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Windows("HOME.xlsm").Activate
        Range("E13").Select 'COPIE NOMS CLIENT
        Application.CutCopyMode = False
        Selection.Copy
        Windows("CA_2015_GIS.xlsx").Activate
        Range("C7").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
End Sub  

Hors Ligne
Rapport   Haut 

Re: boucle mettant a la suite d'un tableau des données d'un autre tableau un nombre de fois donné.
#2
Débutant XLPages

Inscription: 09/12/2015
De Paris

Messages: 6

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 11-12-2015 20h10

[attachment=0]TEST.xlsm[/attachment][attachment=1]CA_2015_GIS - Copie.xlsx[/attachment]

Désolé pour l'incompréhension de mon sujet. je reformule dans mon contexte et avec les pièces jointes qui vont avec.

Voici le cas auquel je suis confronté:

Mon classeur test.xlsm est le classeur dans lequel l'utilisateur remplira les données concernant un client qui pourrais avoir 1 ou plusieurs véhicules.
J'aimerais pouvoir rajouter dans mon 2ème classeur CA_2015_GIS - Copie.xlsx tout les vehicules du client.

Ce que j'ai fais:
J'ai réussi a faire pour la 1ère voiture du tout premier client.
Ce que j'aimerais rajouter:
- Si la 2ème feuille contient deja des données rajouter les nouvelles données a la suite
- Rajouter une boucle qui s'applique pour rajouter le deuxieme vehicule du client a la suite du premier automatiquement.

 

En vous remerciant d'avance...

CORDIALEMENT


Extrait de mon code:

Sub test_EXCEL()
        Dim NBRE As Integer
        NBRE = InputBox("ENTREZ LE NOMBRE DE VOITURE", "NBRE V") 'NOMBRE DE FOIS QU'ON REPETE LA BOUCLE
        Workbooks.Open Filename:="C:\Users\GIS\Desktop\GIS\CA_2015_GIS - Copie.xlsx"
        Windows("CA_2015_GIS - Copie.xlsx").Activate
        Sheets("CA " & (InputBox("MOIS D'ENREGISTREMENT (JANVIRE, FEVRIER...)", "MOIS")) & " 2015").Select
        '+---------------------------------+
        '|         DEBUT DE LA BOUCLE      |
        '+---------------------------------+
        Windows("TEST.xlsm").Activate
        Sheets("DOSSIER").Select
        Range("E10").Select ' COPIE DATE
        Application.CutCopyMode = False
        Selection.Copy
        Windows("CA_2015_GIS - Copie.xlsx").Activate
        Range("A7").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Windows("TEST.xlsm").Activate
        Range("E11").Select 'COPIE NUM DOSSIER
        Application.CutCopyMode = False
        Selection.Copy
        Windows("CA_2015_GIS - Copie.xlsx").Activate
        Range("B7").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Windows("TEST.xlsm").Activate
        Range("E13").Select 'COPIE NOMS CLIENT
        Application.CutCopyMode = False
        Selection.Copy
        Windows("CA_2015_GIS - Copie.xlsx").Activate
        Range("C7").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Windows("TEST.xlsm").Activate
        Range("L8").Select 'MARQUE
        Application.CutCopyMode = False
        Selection.Copy
        Windows("CA_2015_GIS - Copie.xlsx").Activate
        Range("D7").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Windows("TEST.xlsm").Activate
        Range("M8").Select 'MODELE
        Application.CutCopyMode = False
        Selection.Copy
        Windows("CA_2015_GIS - Copie.xlsx").Activate
        Range("E7").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Windows("TEST.xlsm").Activate
        Range("N8").Select 'CHASSIS
        Application.CutCopyMode = False
        Selection.Copy
        Windows("CA_2015_GIS - Copie.xlsx").Activate
        Range("F7").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
End Sub

Pièce jointe:
xlsm TEST.xlsm   [ Taille: 20.45 Ko - Téléchargements: 384 ]
xlsx CA_2015_GIS - Copie.xlsx   [ Taille: 27.62 Ko - Téléchargements: 470 ]
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes