Forums XLPages

Tous les messages (naka1oneshot)

Re: RECHERCHE AUTOMATIQUE D'UNE FEUILLE A UNE AUTRE
#1
Débutant XLPages

Inscription: 09/12/2015
De Paris

Messages: 6

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 13-01-2016 00h04

MERCI MERCI MERCI MILLES MERCI A TOI C'EST EXACTEMENT CE DONC J'AVAIS BESOIN JE POURRAIS MODIFIER MAINTENANT A PARTIR DE TON CODE ENCORE MERCI smiley

Hors Ligne
Rapport   Haut 

RECHERCHE AUTOMATIQUE D'UNE FEUILLE A UNE AUTRE
#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-01-2016 00h05

Bonjour,

J'ai un petit soucis avec un classeur contenant 8 feuilles dont la feuille principal CLIENT dans laquelle un tableau a remplir:

J'aimerais que si le nom du bateau entrez par l'utilisateur correspond au nom d'une autre feuille de mon classeur, alors l'autre feuille prends uniquement les lignes dont le nom de bateaux correspond.

Exple
Feulle CLIENT:
NOMS CLIENT | BATEAUX | DATE
DUPONT          | SILVER     | 10/01/16
MARIE              | GOLDEN  | 10/01/16
JEAN                | SILVER     | 10/01/16
CAROLLE          | GOLDEN  | 10/01/16
...
Feuille SILVER; 'COPIE AUTOMATIQUEMENT LES LIGNES QUI CORRESPONDENT
NOMS CLIENT | BATEAUX | DATE
DUPONT          | SILVER     | 10/01/16
JEAN                | SILVER     | 10/01/16

Feuille GOLDEN; 'COPIE AUTOMATIQUEMENT LES LIGNES QUI CORRESPONDENT
NOMS CLIENT | BATEAUX | DATE
MARIE              | GOLDEN  | 10/01/16
CAROLLE          | GOLDEN  | 10/01/16

EN ATTENTE D'UNE REPONSE JE VOUS REMERCIE DEJA ENORMEMENT JUSTE POUR LA PEINE D'AVOIR LU MA DEMANDE...
 :D

CI-JOINT LE FICHIER QUE J'AI REALISE

Pièce jointe:
xlsm GESTION DES BATEAUX.xlsm   [ Taille: 75.20 Ko - Téléchargements: 557 ]
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é.
#3
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: 387 ]
xlsx CA_2015_GIS - Copie.xlsx   [ Taille: 27.62 Ko - Téléchargements: 475 ]
Hors Ligne
Rapport   Haut 

boucle mettant a la suite d'un tableau des données d'un autre tableau un nombre de fois donné.
#4
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: Gérer plus de 3 messagebox dans une macro
#5
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 11h51

Merci beaucoup en plus je me suis vraiment cassé la tête pour une erreur pareil. Merci mille fois.

Hors Ligne
Rapport   Haut 

Gérer plus de 3 messagebox dans une macro
#6
Débutant XLPages

Inscription: 09/12/2015
De Paris

Messages: 6

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

bonjour, 

J'aimerais réaliser une macro qui pose des questions aux utilisateurs avec réponse "oui" ou "non" et en fonction des réponses agis plus ou moins de facon differentes. Mais avec le code que j'ai utilisé une fois que le premier messagebox est positif, tout les autres le sont malgré le fait de repondre négativement

Extrait de mon code:

 

Dim Rep As Integer

Dim PriceD As Integer

Dim EtatV As Integer

Rep = MsgBox("TRANSIT A EFFECTUER?", vbYesNo + vbQuestion, "TRANSIT")

        If Rep = vbYes Then

            Range("C18").Select

            ActiveCell.FormulaR1C1 = "OUI"

            Range("E18").Select

            ActiveCell.FormulaR1C1 = InputBox("ENTREZ LA VILLE EN TRANSIT", "VILLE TRANSIT")

            Range("I18").Select

            ActiveCell.FormulaR1C1 = InputBox("ENTREZ LE PAYS TRANSIT", "PAYS TRANSIT")

        Else

            Range("C18").Select

            ActiveCell.FormulaR1C1 = "NON"

        End If

PriceD = MsgBox("FRAIS DHL?", vbYesNo + vbQuestion, "DHL")

        If Rep = vbYes Then

                Range("U8").Select

                ActiveCell.FormulaR1C1 = InputBox("ENTREZ LE MONTANT DES FRAIS DHL", "FRAIS DHL")

            Else

                Range("V8").Select

            End If

EtatV = MsgBox("VEHICULE PRET POUR ENLEVEMENT?", vbYesNo + vbQuestion, "ETAT VEHICULE")

            If Rep = vbYes Then

                Range("V8").Select

                ActiveCell.FormulaR1C1 = "PRET"

            Else

                Range("V8").Select

                ActiveCell.FormulaR1C1 = "PAS PRET"

            End If

Pièce jointe:
xlsm HOME.xlsm   [ Taille: 28.61 Ko - Téléchargements: 454 ]
Hors Ligne
Rapport   Haut