Demande de macro

N

Nevil

XLDnaute Occasionnel

• 28 Décembre 2005

• #2

Peux tu envoyer ton fichier XL STP ca sera bien plus simple pour t'aider, surtout qu'il y a des petites choses que je ne comprend pas dans ta GRILLE TARIFAIRE.

Merci

 

Vote positif 0 Vote négatif

R

Roro34

Guest

• 28 Décembre 2005

• #3

Bonjour a tous,
Il faut certainement que tu concatene une colonne contenant ton critere de recherche puis que tu regarde du cote de VLOOKUP() (sorry for english formula).
@+

 

Vote positif 0 Vote négatif

B

Boreal91

Guest

• 28 Décembre 2005

• #4

Tu trouveras ci-joint le fichier XL.

 

Vote positif 0 Vote négatif

B

Boreal91

Guest

• 28 Décembre 2005

• #5

Boreal91 écrit:

Tu trouveras ci-joint le fichier XL.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

N

niki42

XLDnaute Occasionnel

• 28 Décembre 2005

• #6

Salut à tous

Boreal ci joint un lien qui te conduit au 'mode d'emploi' pour envoyer un fichier joint.

Lien supprimé


Voilà

Bon courage

 

Vote positif 0 Vote négatif

B

Boreal91

XLDnaute Nouveau

• 28 Décembre 2005

• #7

Fichier joint pour lequel je demande une macro

 

Vote positif 0 Vote négatif

B

Boreal91

XLDnaute Nouveau

• 28 Décembre 2005

• #8

Fichier XL ci-joint [file name=Coutstransport.zip size=23395]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Coutstransport.zip[/file]

 

Pièces jointes

• Coutstransport.zip

  22.8 KB · Affichages: 35

Vote positif 0 Vote négatif

Gruick

XLDnaute Accro

• 28 Décembre 2005

• #9

Bonsoir,
Travaillant s/mac, plus pratique, j'ai peur que le zip ne passe pas.
J'ai simplement dé fusionné les cellules de titre dans les tarifs, sauf la A1.
Tu te places donc s/la cellule rouge dans le tableau 'coût...', et tu exécutes la macro.
Je te donne l'idée générale, je te laisse le soin de la paufiner, j'ai mis des msgbox avec des apostrophes, tu peux les enlever, ou les rendre actives.
Je me suis bien amusé, j'avais un problème similaire, ça m'a boosté.

Voilà la bestiole

Sub SeleX()
' SeleX Macro
' Macro enregistrée le 28/12/05 par Gruick
' Touche de raccourci du clavier: Option+Cmd+s
colcat = Selection.Cells.Offset(0, -1).Value
ligdep = Selection.Cells.Offset(0, -3).Value
'MsgBox 'Catégorie ' & colcat & ' Département ' & ligdep
Sheets('Grille tarifaire Transport').Select
Range('a1').Select
ActiveCell.Offset(0, colcat).EntireColumn.Select
Set zone1 = Selection
Range('a1').Select
ActiveCell.Offset(ligdep, 0).EntireRow.Select
Set zone2 = Selection
Prix = Intersect(zone1, zone2)
'MsgBox 'la valeur est ' & Prix
Sheets('Coût Transport').Select
ActiveCell = Prix
End Sub

 

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 28 Décembre 2005

• #10

Bonsoir Boreal91, Nevil, Roro34, niki42, Gruick, Papa, Maman, l'univers

Boreal, Je te renvoie ton fichier avec des formules. Ainsi, tu auras le choix entre formule et macro

Amicalement
Charly [file name=Coutstransport_20051228184329.zip size=29596]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Coutstransport_20051228184329.zip[/file]

 

Pièces jointes

• Coutstransport_20051228184329.zip

  28.9 KB · Affichages: 32

Vote positif 0 Vote négatif

Gruick

XLDnaute Accro

• 29 Décembre 2005

• #11

Salut Charly2, et Boreal91
Quel idiot je suis ?
La commande INDEX, je l'avais oubliée, alors qu'elle était idéale.
Mais, pour mon cas personnel, elle avoue ses limites, j'ai adapté ma macro et hop. Le travail n'a pas été inutile. (import AS400, entre 15 et 20000 lignes...bref, un monument, mais j'arrive au bout.
Boreal demandait une macro, mais je lui conseille donc ta solution.
Bon, je reprends le manuel...

 

Vote positif 0 Vote négatif

B

Boreal91

XLDnaute Nouveau

• 29 Décembre 2005

• #12

Je te remercie pour cette info. Effectivement cela fonctionne très bien.
Je te souhaite de bonnes fêtes.

Merci encore.

 

Vote positif 0 Vote négatif

B

Boreal91

XLDnaute Nouveau

• 29 Décembre 2005

• #13

Merci pour ton aide.

Bonnes fêtes de fin d'année

 

Vote positif 0 Vote négatif