Code VBA pour tableau a double entré

youky(BJ)

XLDnaute Barbatruc

• 1 Avril 2009

• #2

Re : Code VBA pour tableau a double entré

Bonsoir,
voici une petite macro
Utilise la touche entrer sur textbox2

Code:

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim col, lig As Integer
If KeyCode <> 13 Then Exit Sub 'touche entrer
If TextBox1.Text = "" Then Exit Sub
For r = 2 To Feuil1.[A65000].End(xlUp).Row ' nbr ligne à tester
If Val(TextBox1.Text) <= Feuil1.Cells(r, 1) Then lig = r: Exit For
Next
For k = 2 To Feuil1.[IV1].End(xlToLeft).Column 'nbr colonne à tester
If Val(TextBox2.Text) <= Feuil1.Cells(1, k) Then col = k: Exit For
Next
On Error Resume Next
TextBox3.Text = Format(Feuil1.Cells(lig, col), "0.00") 'on mets le prix
If Err > 0 Then MsgBox "Dépassement"
End Sub

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 1 Avril 2009

• #3

Re : Code VBA pour tableau a double entré

Bonsoir,

Code:

Sub calcul()
  Me.TextBox3 = ""
  On Error Resume Next
  Me.TextBox3 = Evaluate("INDEX(Prix,match(" & Me.TextBox1 & ",hauteur,-1),match(" & Me.TextBox2 & ",Largeur,-1))")
End Sub

JB

 

Pièces jointes

• FormEquivIndex.xls

  33.5 KB · Affichages: 49

Dernière édition: 1 Avril 2009

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 1 Avril 2009

• #4

Re : Code VBA pour tableau a double entré

bonjour josothy

vois si cela te convient

Edit : salut a tous

 

Pièces jointes

• josothy_Classeur1.zip

  14.8 KB · Affichages: 44
• josothy_Classeur1.zip

  14.8 KB · Affichages: 44
• josothy_Classeur1.zip

  14.8 KB · Affichages: 44

Vote positif 0 Vote négatif

J

josothy

Guest

• 1 Avril 2009

• #5

Re : Code VBA pour tableau a double entré

super sa marche niquel mais les colonnes et lignes sont inversé et comme je ne comprend pas très bien le code je ne sais pas comment les inverser. mais deja merci de ce que tu as fais en peu de temps si c'est bon j'ai réussi désolé pour ce message

 

Dernière modification par un modérateur: 1 Avril 2009

Vote positif 0 Vote négatif

J

josothy

Guest

• 1 Avril 2009

• #6

Re : Code VBA pour tableau a double entré

merci beaucoup sa marche super. est ce que avec ce code sans le changer je rajouter des valeurs et ligne et en colonnes ?

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 1 Avril 2009

• #7

Re : Code VBA pour tableau a double entré

Re

Si cest a moi que tu t'adresses !
considerant H/L en A1 j'ai compris H (hauteur) en vertical et L(Largeur) horizontal
Pour inverser tu peux au choix
Inverser les labels des textbox
Inverser dans le code TextBox1 et Textbox2
Si difficulté expliques mieux ou tu situes la largeur et la hauteur

 

Vote positif 0 Vote négatif

J

josothy

Guest

• 1 Avril 2009

• #8

Re : Code VBA pour tableau a double entré

Merci trois solutions différente c'est plus que je n'en demandais. et rapidement en plus. En faite je parlais a youky parce que j'avais pas actualiser la page et j'avais pas vu que j'avais plusieurs réponse mais merci a tous

Je me permet de redemander votre aide.

Admettons que j'ai un autre tableau double entré sur la feuille2 et que sur mon userform j'ai un combobox qui me dise de choisir entre feuille 1 et feuille 2 comment je devrais faire pour le code?

Je vous dis merci tout de suite vu que je ne doute pas que vous ayez la solution

 

Pièces jointes

• Classeur1.xls

  42.5 KB · Affichages: 54
• Classeur1.xls

  42.5 KB · Affichages: 59
• Classeur1.xls

  42.5 KB · Affichages: 54

Dernière modification par un modérateur: 1 Avril 2009

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 1 Avril 2009

• #9

Re : Code VBA pour tableau a double entré

Voir PJ

JB

 

Pièces jointes

• FormEquivIndex2.xls

  46.5 KB · Affichages: 56

Dernière édition: 1 Avril 2009

Vote positif 0 Vote négatif

J

josothy

Guest

• 1 Avril 2009

• #10

Re : Code VBA pour tableau a double entré

merci beaucoup c'est parfait comme d'habitude. je vais pouvoir me mettre au boulot.

 

Vote positif 0 Vote négatif

J

josothy

Guest

• 2 Avril 2009

• #11

Re : Code VBA pour tableau a double entré

bonjour,

J'ai changé le tableau et ca ne marche plus pour certaine case et je ne sais pas comment modifier le code.
De plus quand la ce que je rentre en largeur et hauteur des valeurs qui font reférence exacte, par exemple L500 H550 sa va automatiquement a la valeur du dessus. je voudrais que pour ces références exactes sa n'aille pas chercher les valeur du dessus.

J'espére que quelqu'un plus doué que moi pourra m'aider.

 

Pièces jointes

• josothy_Classeur1.zip

  16.6 KB · Affichages: 26
• josothy_Classeur1.zip

  16.6 KB · Affichages: 25
• josothy_Classeur1.zip

  16.6 KB · Affichages: 25

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Avril 2009

• #12

Re : Code VBA pour tableau a double entré

Re

Teste cette version

 

Pièces jointes

• josothy_Classeur1_c.zip

  17.9 KB · Affichages: 25
• josothy_Classeur1_c.zip

  17.9 KB · Affichages: 30
• josothy_Classeur1_c.zip

  17.9 KB · Affichages: 27

Vote positif 0 Vote négatif

J

josothy

Guest

• 3 Avril 2009

• #13

Re : Code VBA pour tableau a double entré

merci j'ai essayé sa marche super. je vais essayer de le passer a mon programme. qu'est ce que je ferais sans votre aide!!!!

bonne journée

 

Vote positif 0 Vote négatif

J

josothy

Guest

• 4 Avril 2009

• #14

Re : Code VBA pour tableau a double entré

Bonjour,

J'ai fais le passage a mon programme ce matin et je voulais savoir si il était possible par exemple pour les case jaunes il pouvait y avoir un msgbox qui se mette ? et si oui quel code je pourrais mettre ?

Merci

 

Pièces jointes

• josothy_Classeur1_c.zip

  17.5 KB · Affichages: 23
• josothy_Classeur1_c.zip

  17.5 KB · Affichages: 22
• josothy_Classeur1_c.zip

  17.5 KB · Affichages: 20

Vote positif 0 Vote négatif