Re: RECHERCHE AUTOMATIQUE D'UNE FEUILLE A UNE AUTRE | ||
---|---|---|
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 |
|
|
RECHERCHE AUTOMATIQUE D'UNE FEUILLE A UNE AUTRE | ||
---|---|---|
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: Feuille GOLDEN; 'COPIE AUTOMATIQUEMENT LES LIGNES QUI CORRESPONDENT EN ATTENTE D'UNE REPONSE JE VOUS REMERCIE DEJA ENORMEMENT JUSTE POUR LA PEINE D'AVOIR LU MA DEMANDE... CI-JOINT LE FICHIER QUE J'AI REALISE |
|
|
Re: boucle mettant a la suite d'un tableau des données d'un autre tableau un nombre de fois donné. | ||
---|---|---|
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. Ce que j'ai fais:
En vous remerciant d'avance... CORDIALEMENT
Sub test_EXCEL() Pièce jointe:
TEST.xlsm [ Taille: 20.45 Ko - Téléchargements: 387 ] CA_2015_GIS - Copie.xlsx [ Taille: 27.62 Ko - Téléchargements: 475 ] |
|
|
boucle mettant a la suite d'un tableau des données d'un autre tableau un nombre de fois donné. | ||
---|---|---|
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() |
|
|
Re: Gérer plus de 3 messagebox dans une macro | ||
---|---|---|
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. |
|
|
Gérer plus de 3 messagebox dans une macro | ||
---|---|---|
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 |
|
|