Recherche valeurs Excel grâce à VB
peanut0123
-
peanut0123 -
peanut0123 -
Bonjour,
Utilisant VB depuis seulement une semaine, je rencontre qq soucis...
Tout d'abord, j'ai créée un tableau Excel avec deux colonnes :
Nb de pièces Nb de racks
1 1
2 1
3 1
4 1
5 1
6 1
7 1
8 1
9 2
10 2
11 2
12 2
etc.
La colonne "Nb de racks" correspondant au nb de pièces divisé par la contenance (dans ce cas 8) avec un arrondi.sup
Je recherche à créer une boîte de dialogue permettant à l'utilisateur, d'entrer le nombre de pièces désirer pour ensuite qu'une autre boîte de dialogue lui donne le nb de racks nécessaires.
Dans cette idée, je me suis lancée dans cette commande:
Private Sub CommandButton1_Click()
If Besoins.TextBox1.Value = (Worksheets(4).Range(2, 1)) Then MsgBox (Worksheets(4).Range(2, 2))
End Sub
Mais évidement ca ne donne rien ...
Si qqun peut m'aider ca serait fantastique !!!
Merci d'avance
Utilisant VB depuis seulement une semaine, je rencontre qq soucis...
Tout d'abord, j'ai créée un tableau Excel avec deux colonnes :
Nb de pièces Nb de racks
1 1
2 1
3 1
4 1
5 1
6 1
7 1
8 1
9 2
10 2
11 2
12 2
etc.
La colonne "Nb de racks" correspondant au nb de pièces divisé par la contenance (dans ce cas 8) avec un arrondi.sup
Je recherche à créer une boîte de dialogue permettant à l'utilisateur, d'entrer le nombre de pièces désirer pour ensuite qu'une autre boîte de dialogue lui donne le nb de racks nécessaires.
Dans cette idée, je me suis lancée dans cette commande:
Private Sub CommandButton1_Click()
If Besoins.TextBox1.Value = (Worksheets(4).Range(2, 1)) Then MsgBox (Worksheets(4).Range(2, 2))
End Sub
Mais évidement ca ne donne rien ...
Si qqun peut m'aider ca serait fantastique !!!
Merci d'avance
2 réponses
-
Avec excel 2007, ce petit bout qui suit marche :
Private Sub CommandButton1_Click()
MsgBox (Int(Besoins.TextBox1 / 8) + 1)
End Sub
Si tu veux pouvoir renseigner ton nombre de pièce par racks, alors ajoute une textbox et remplace "8" par le nom de ta textbox.
en espérant que c'est ce que tu voulais, ciao -
