Recherches De Donnees (vba)

Robert

XLDnaute Barbatruc

Repose en paix

• 31 Juillet 2008

• #2

Re : Recherches De Donnees (vba)

Bonjour Julien, bonjour le forum,

Cette petite macro devrait te convenir :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim pl As Range 'déclare la variable pl
Set pl = Range("H2:H" & Range("H65536").End(xlUp).Row) 'définit la variable pl
 
If Application.Intersect(pl, Target) Is Nothing Then Exit Sub 'si le changement à lieu ailleurs que dans la colonne H, sort de la procédure
If Selection.Cells.Count > 1 Then Exit Sub 'si plusieurs cellules sont sélectionnées, sort de la procédure
 
Select Case Target.Value 'sélection selon le cas, en fonction de la valeur éditée en H
    Case "TR1" 'cas "TR1"
        Target.Offset(0, 1).Value = Cells(Target.Row, 4) 'affiche la valeur de la colonne D
    Case "TR2" 'cas "TR2"
        Target.Offset(0, 1).Value = Cells(Target.Row, 5) 'affiche la valeur de la colonne E
    Case "TR3" 'cas "TR3"
        Target.Offset(0, 1).Value = Cells(Target.Row, 6) 'affiche la valeur de la colonne F
    Case "TR4" 'cas "TR4"
        Target.Offset(0, 1).Value = Cells(Target.Row, 7) 'affiche la valeur de la colonne G
    Case Else 'tous les autres cas
        Target.Offset(0, 1).Value = "" 'vide le coût réel
End Select 'fin de la sélection selon le cas
 
End Sub

 

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 31 Juillet 2008

• #3

Re : Recherches De Donnees (vba)

Bonjour,
Sans VBA ça marche bien
Ton fichier avec les formules à recopier vers le bas
=INDIRECT(ADRESSE(LIGNE();EQUIV(H2;$D$1:$G$1;0)+3))

 

Pièces jointes

• TARIFS TR.xls

  16.5 KB · Affichages: 49
• TARIFS TR.xls

  16.5 KB · Affichages: 54
• TARIFS TR.xls

  16.5 KB · Affichages: 52

Dernière édition: 31 Juillet 2008

Vote positif 0 Vote négatif

julien974

XLDnaute Occasionnel

• 31 Juillet 2008

• #4

Re : Recherches De Donnees (vba)

Merci pr vos reponses

Je vais essayer les deux

Mais je pense que le VBA me conviendra mieux

Tchuss

Julien974

 

Vote positif 0 Vote négatif

julien974

XLDnaute Occasionnel

• 1 Août 2008

• #5

Re : Recherches De Donnees (vba)

Robert

Je ne comprend pas, ta macro ne fonctionne pas...

t'aurais pas une solution avec une boucle while wend?

Si des personnes ont des solution en VBA, ne pas hesiter,

Merci d'avance,

Julien

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 1 Août 2008

• #6

Re : Recherches De Donnees (vba)

Bonjour Eric, Robert Julien,

Une question : Pourquoi While Wend ?

 

Vote positif 0 Vote négatif

julien974

XLDnaute Occasionnel

• 1 Août 2008

• #7

Re : Recherches De Donnees (vba)

Slt

peut importe en fait,

Je vous redonne ma nouvelle trame.

Je me reexplique et met un nouveau fichier joint.

Je souhaiterais que dans la colonne "COSTOS TR REALES" les tarif correspondant s'inscrivent en fonction des choix de la colonne "TR
REAL"

Dans ce cas:


TR REAL COSTOS TR REALES
TR1 48,82 €
TR2 0,00 €
TR3 112,00 €

Et ce quelque soit le nombre de lignes de la colonne TR REAL.

J'espere avoir été le plus clair possible,

Merci de votre implication,

Julien974

 

Pièces jointes

• COUT TRANSPORT.xls

  16.5 KB · Affichages: 50
• COUT TRANSPORT.xls

  16.5 KB · Affichages: 50
• COUT TRANSPORT.xls

  16.5 KB · Affichages: 53

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 1 Août 2008

• #8

Re : Recherches De Donnees (vba)

Re,

Désolé, je viens de voir ton fichier et je ne comprends toujours rien...

Attendre de meilleurs que moi...

 

Vote positif 0 Vote négatif

julien974

XLDnaute Occasionnel

• 1 Août 2008

• #9

Re : Recherches De Donnees (vba)

Bonjour Jean Pierre,

Ma demande en plus clair:

J'ai 4 Transporteurs (TR 1, TR2, TR3 et TR4). Pour un Code postal donné, un pays, un type de camion et un nombre de palette, j'ai des tarifs qui s'affichent. Cette étape est maintenant finalisée.

Par la suite, il faut choisir le transporteur souhaité, ce qui est fait dans la colonne J grace a une liste deroulante... bref

Ce que je souhaite:

Mettre dans la colonne suivante (La K), le prix (situé dans les 4 colonnes TR 1, TR2, TR3 et TR4) correspondant au transporteur choisi. En gros, une sorte de rechercheH mais avec du VBA. Ce sur chaque ligne et qq soit le nombre de ligne (une ligne = un envoi)

J'espere avoir éte clair, n hesitez pas a me demander d'autre infos.

Cordialement,

julien974

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 1 Août 2008

• #10

Re : Recherches De Donnees (vba)

Re,

En J, il n'y a pas de liste déroulante...

Pour le reste un SOMMEPROD pourrait le faire et sans Vba.. Donc...

Jean-Pierre

 

Vote positif 0 Vote négatif

julien974

XLDnaute Occasionnel

• 1 Août 2008

• #11

Re : Recherches De Donnees (vba)

Non il n'y en a pas su ce fichier ms je l'ai sur l'officiel...

En fait je souhaiterai du VBA, ce n'est pas possible tu crois?

Julien974

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 1 Août 2008

• #12

Re : Recherches De Donnees (vba)

Re,

Redépose un fichier à jour, au besoin Zippé pour plus d'infos...), avec tes étapes finalisées, et celles qui ne sont pas...

Explications et résultats attendus

Jean-Pierre

 

Vote positif 0 Vote négatif

julien974

XLDnaute Occasionnel

• 6 Août 2008

• #13

Re : Recherches De Donnees (vba)

merci les amis,

J ai réussi a faire ce que je souhaitais ac IF end IF dc tt va bien, ca fonctionne

Merci encore

Juli3n974

 

Vote positif 0 Vote négatif