Discussion :

[arbotch]

Bonjour, j'ai de nouveau un problème avec VBA Excel. A mon avis c'est tout simple à programmer mais étant débutant je n'y arrive pas. J'ai essayé pas mal de choses, en vain.

J'ai un tableau à 9 lignes, 4 colonnes (D9 :G17). Dans la cellule B3 se trouve un chiffre, et j'aimerais que le programme me donne dans trois cellules distinctes (par exemple A1, A2, A3) les valeurs de la colonne A, de la Colonne B et de la colonne C de mon tableau en fonction du chiffre de la cellule B3.

Voici le lien qui montre le fichier excel et le tableau :

http://www.cijoint.fr/cjlink.php?fil...cijwP4gkgr.xls

J'espère vraiment que vous pourrez m'aider.
Merci d'avance.

[laetitia]

bonjour arbotch le forum une evenementielle on peut le faire aussi par formules

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("b3")) Is Nothing Then
Dim c As Range
Set c = Range("d10:d17").Find(Cells(3, 2), LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then MsgBox " pas de valeur": Exit Sub
If Not c Is Nothing Then
Cells(1, 1) = c.Offset(0, 1): Cells(1, 2) = c.Offset(0, 2): Cells(1, 3) = c.Offset(0, 3)
End If: End If: Beep
End Sub

[arbotch]

En fait, dans mon cas la cellule où se trouve le chiffre est sur la feuil2 en A3.
Il faudrait, grâce à un bouton de commande sur la feuil1 et en utilisant VBA, que je puisse obtenir les trois résultats en feuil2 en C1, C2, C3.

Merci beaucoup.

[laetitia]

re, pas sur d avoir tout compris!! déja une evenementielle tu peus pas la mettre dans un userform
tu modifie la valeur de la cellule a3 de la feuille2 tu écris le résultat dans la feuille2 en c1,c2,c3. donc l' evénementielle tu la met dans la feuille2 sous cette forme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("a3")) Is Nothing Then
Dim c As Range
Set c = Sheets("Feuil1").Range("d10:d17").Find(Sheets("Feuil2").Cells(3, 1), LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then MsgBox " pas de valeur": Exit Sub
If Not c Is Nothing Then
Cells(1, 3) = c.Offset(0, 1): Cells(2, 3) = c.Offset(0, 2): Cells(3, 3) = c.Offset(0, 3)
End If: End If: Beep
End Sub

par contre je comprends pas ton user ??? si tu change la valeur de a3 en feuille2 userform & le bouton sert a rien!!

[alsimbad]

es tu sure qu'une formule n'est pas suffisante a ce que tu veux faire ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=RECHERCHEV($A$3;Feuil1!$D$10:$G$17;2;FAUX)

ou A3 est la cellule ou tu inscrit la tolerance que tu vas aller rechercher dans le tableau
le chiffre 2 represente la deuxieme colonne du tableau que tu remplacera par 3 et 4 pour les deux autres valeurs