Recherches De Donnees (vba)

[julien974]

Bonjour,

Voici des cout de transport pour 4 transporteurs differents et pour 4 envois differents.

Dans la colonne TRANSPORTEUR REEL, je choisis le transporteur que nous allons utiliser.

Je souhaiterai que le cout de se transporteur reel se mette dans la case de droite pour determiner le cout reel et ceci en VBA (quelque soit le nombre de lignes).

Ci joint le fichier.

Merci de votre aide precieuse,

Juli3n974

 

[Robert]

Re : Recherches De Donnees (vba)

Bonjour Julien, bonjour le forum,

Cette petite macro devrait te convenir :

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

 

[RENAUDER]

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))

 

[julien974]

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

 

[julien974]

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

 

[jeanpierre]

Re : Recherches De Donnees (vba)

Bonjour Eric, Robert Julien,

Une question : Pourquoi While Wend ?

 

[julien974]

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

 

[jeanpierre]

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...

 

[julien974]

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

 

[jeanpierre]

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

 

[julien974]

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

 

[jeanpierre]

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

 

[julien974]

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