Faire afficher la donnée

[Manu62]

Bonjour,

J'ai mis en PJ un petit fichier.

Je recherche le code qui me permettrais d'avoir l'adresse 1 en fonction du choix du client.

Sachant qu'après j'ajouterais cela dans une base

Merci de votre aide.

Manu

 

[Efgé]

Re : Faire afficher la donnée

Bonjour Manu62,
Pas passé le fichier.
Cordialement

 

[Manu62]

Re : Faire afficher la donnée

oups la piece jointe

 

[Efgé]

Re : Faire afficher la donnée

Re
Une proposition en pièce jointe.
Cordialement

 

[Manu62]

Re : Faire afficher la donnée

Efgé, le forum

Perfect,

A+
Manu

 

[Manu62]

Re : Faire afficher la donnée

Re,

Désolé j'avais omis ce détail

En plus de la recherche, j'ai donc complété la suite, mais je voudrais si possible, avoir en fonction de l'année 2008-2009-2010.... avoir la valeur (en €)

Merci d'avance

Manu

 

[Manu62]

Re : Faire afficher la donnée

eh bien décidement

 

[Efgé]

Re : Faire afficher la donnée

Re
Voici le nouveau fichier. Il faut laissé les cellules f1:H1 de la feuille Infos au format texte.
Cordialement

 

[Efgé]

Re : Faire afficher la donnée

Re
Pour l'affichage en € il faut modifier la ligne

Me.Label12.Caption = Sheets("Infos").Cells(i, j).Value

Par

Me.Label12.Caption = Sheets("Infos").Cells(i, j).Value & " €"

Cordialement

 

[Manu62]

Re : Faire afficher la donnée

Salut,

Peux tu STP me traduire cela (i =1) (for j =6 to 8)


For i = 1 To derligne
For j = 6 To 8
If Sheets("Infos").Cells(i, 1).Value = Me.ComboBox1 And _
Sheets("Infos").Cells(1, j).Value = Me.ComboBox2 Then
Me.Label12.Caption = Sheets("Infos").Cells(i, j).Value & " €"

Je t'en remercie par avance

A+

Manu

 

[Efgé]

Re : Faire afficher la donnée

Re
On va utiliser deux boucles:
La première, pour vérifier la valeur de chaque cellule de la ligne 1 à la derniére ligne de la feuille
For i = 1 To derligne

La seconde pour les cellules des colonnes de 6 à 8
For j = 6 To 8

Condition: Si la cellule ligne 1 (i) colonne 1 est égale à la valeur de la ComboBox1 et Que la valeur de la cellule de la ligne 1 colonne 6 (j) est égale à la valeur de la ComboBox2 alors
If Sheets("Infos").Cells(i, 1).Value = Me.ComboBox1 And _
Sheets("Infos").Cells(1, j).Value = Me.ComboBox2 Then

Le label 12 prend la valeur (caption) de la cellule ligne i colonne j
Me.Label12.Caption = Sheets("Infos").Cells(i, j).Value & " €"

Fin de la Condition
End If

Prochain j (donc 7, puis 8)
Next j

Quand tous les j sont fini, on les refait avec la seconde ligne de la feuille
Next i (donc 2, puis 3 puis etc)
Cordialement

 

[Manu62]

Re : Faire afficher la donnée

Bonjour

J'ai bidouillé un petit truc, qui pouurait être utile.

recherche d'un code postal en fonction d'une ville choisi ou saisie.

mais je trouve que c'est un peu long, peux t'on accélerer la recherche


Cijoint.fr - Service gratuit de dépôt de fichiers

Merci

A+

Manu

 

[Manu62]

Re : Faire afficher la donnée

Bjr

Un petit hop pour la lenteur dfe recherche

Merci

Manu

 

[Efgé]

Re : Faire afficher la donnée

Bonjour à tous,
Manu62, une autre version, plus rapide.

Private Sub ComboBox3_Change()
Application.ScreenUpdating = False
Sheets("cpville").Activate
Cells.Find(What:=Me.ComboBox3, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
Me.TextBox1 = ActiveCell.Offset(0, 1).Value
Sheets("Menu").Activate
Application.ScreenUpdating = True
End Sub

Cordialement

 

[Manu62]

Re : Faire afficher la donnée

Bonjour,

J'ai un label qui me donne un chiffre (1000). (PU1)
j'ai un textbox ou j'entre un qte (1 ou 2) (QTE1)

j'ai un label montant1

j'ai mis :

Private Sub qte1_change()
On Error Resume Next
montant1.Value = pu1 * qte1
End Sub

il me dit : erreur de compilation : menbre de méthode ou de données introuvable

avez vous une idée

Manu