[RESOLU] Amélioration Code VBA / Recherche MAX

DEMERS · 28 Janvier 2015

Bonjour à vous tous,

J’appelle votre aide pour améliorer un code VBA dont la fonction, la recherche du MAX d’une valeur lié à une référence.

Le code fonctionne bien, néanmoins son inconvénient c’est quand la valeur MAX = 0 ou il n’existe pas dans la table, l’affichage reste bloqué sur la dernière valeur déjà recherché.

A cet effet, je m’adresse à vous en sollicitant votre aide pour la rectification de ce code de sorte que si la valeur max est 0, il doit afficher 0. Et si la valeur MAX n’existe pas dans la table, un message de notification doit se déclencher pour avertir l’absence d’un MAX avec invitation pour ajout d’un index de départ.

Je vous remercie.

laurent950 · 28 Janvier 2015

Re : Amélioration Code VBA / Recherche MAX

Bonsoir

supérieur ou égale a 0

If max# >= 0 Then TextBox2 = max#

Laurent

Paf · 28 Janvier 2015

Re : Amélioration Code VBA / Recherche MAX

Bonjour à tous

en début de Private Sub ComboBox1_Change() rajouter

TextBox2 = ""

S'il n'y a pas de Max, la textbox reste vierge.

A+

DEMERS · 28 Janvier 2015

Re : Amélioration Code VBA / Recherche MAX

laurent950 à dit:
Bonsoir

supérieur ou égale a 0

If max# >= 0 Then TextBox2 = max#

Laurent

Paf à dit:
Bonjour à tous

en début de Private Sub ComboBox1_Change() rajouter

TextBox2 = ""

S'il n'y a pas de Max, la textbox reste vierge.

A+

Bonsoir Laurant950 / Bonsoir Paf / et tout le forum.
Je vous remercie tellement de votre aimable aide.

effectivement avec la valeur 0 le problème a été résolu.
Mais avec valeur absente ("") il reste toujours l'affichage de la dernière valeur déjà affichés
En outre, je voulais ajouter un msg d'ajout d'index si ce dernier n'existe pas dans la table.

je vous remercie de votre aide et,

Cordialement.

Paf · 28 Janvier 2015

Re : Amélioration Code VBA / Recherche MAX

Re

Mais avec valeur absente ("") il reste toujours l'affichage de la dernière valeur déjà affichés

Mais, en effaçant la textbox en début de sub, le problème disparait ! (Cf Post #3)

Pour l'affichage du message d'alerte , tester si max est vide ou égal à 0, si oui message.

A+

DEMERS · 28 Janvier 2015

Re : Amélioration Code VBA / Recherche MAX

Re

Paf à dit:
Mais, en effaçant la textbox en début de sub, le problème disparait ! (Cf Post #3)

je l'ai déjà essayé, mais 0 persiste toujours même en absence d'index.

A+

laurent950 · 28 Janvier 2015

Re : Amélioration Code VBA / Recherche MAX

Bonsoir,

Voici la solution

VB:

Private Sub ComboBox1_Change()
Dim i&
Dim max#

For i& = 1 To UBound(var, 1)
    If ComboBox1 = CStr(var(i&, 1)) Then
        If IsNumeric(var(i&, 3)) Or var(i&, 3) <> "" Then
            If CDbl(var(i&, 3)) > max# Then
                max# = CDbl(var(i&, 3))
                TextBox2 = CDbl(var(i&, 3))
                Exit Sub
            Else
                TextBox2 = ""
                MsgBox "absence d’un MAX avec invitation pour ajout d’un index de départ"
                Exit Sub
            End If
        End If
    End If
Next i&
End Sub

Laurent

DEMERS · 28 Janvier 2015

Re : Amélioration Code VBA / Recherche MAX

ReBonsoir Laurent

Parfait / Empreinte de Génie / Bravo
Un grand Merci pour vous. Je vous suis bien reconnaissant.
Merci et Bonne soirée.

[RESOLU] Amélioration Code VBA / Recherche MAX

DEMERS

XLDnaute Nouveau

Pièces jointes

laurent950

XLDnaute Barbatruc

Paf

XLDnaute Barbatruc

DEMERS

XLDnaute Nouveau

Paf

XLDnaute Barbatruc

DEMERS

XLDnaute Nouveau

laurent950

XLDnaute Barbatruc

DEMERS

XLDnaute Nouveau

Discussions similaires

[RESOLU] Amélioration Code VBA / Recherche MAX

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency