Comparaison textbox vba

Fermé
lgvba Messages postés 5 Date d'inscription mercredi 14 novembre 2012 Statut Membre Dernière intervention 20 janvier 2013 - 14 nov. 2012 à 06:54
Morgothal Messages postés 1236 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 - 14 nov. 2012 à 09:56
Salu a tous


Je souhaiterai trouver un code vba qui me permettre de comparer deux poids qui sont dans ma textbox 1 et ma textbox 6 de mon formulaire ,

Le poids qui est le plus élevé entre la textbox 1 et la textbox 6 , sera selectionné automatiquement par la macro afin de m' afficher le prix qui correspond a ce poids grâce ma feuille de donnée « shipping price ».


Noter que ma feuille « shippingprice » a plus de 1000 lignes de detail poid / prix .


, Pourriez vous m' aider a completer mon code vba








Bien Cordialement
A voir également:

1 réponse

Réponse 1 / 1
Morgothal Messages postés 1236 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 183
14 nov. 2012 à 09:56
Bonjour,
Comme ça, avec les détails fournis je proposerais quelque chose de ce goût la : 
Dim poids As Integer
If userform.textbox1.Value > userform.textbox6.Value Then
poids = userform.textbox1.Value
Else
poids = userform.textbox6.Value
End If

MsgBox poids


A+
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur


'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

5 réponses
[VBA] format de date dans textbox
antic80 -
nabilone -

bonjour

voila j'aimerai savoir comment forcer en VBA sous excel , un utilisateur a mettre une date au format jjmmyy car si par exemple j'ecris 222 dans la textbox il me fais la conversion

je veux que l'utilisateur soit obliger de mettre par exemple 151205 qui sera converti en 15/12/2005

actuellement j'ai ca pour le formatage de la date en 15/12/2005

TXT_du = Left(TXT_du, 2) & "/" & Mid(TXT_du, 3, 2) & "/" & Right(TXT_du, 2)

merci a vous

15 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll


Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

0 réponse
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

3 réponses