Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel MAX dans un label

MAX dans un label

7 réponses
Avatar
Vincent
Bonjour.
J'ai une liste "Numéro_d'ordre" en colonne B2:B500.
Je souhaite avoir dans un label sur mon userform, le numéro suivant,
pour cela je fais =MAX+1, mais en VBA ?
Merci beaucoup
Vincent
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Clément Marcotte
Bonjour,

label1.caption = cint(label1.caption) + 1

"Vincent" a écrit dans le message de
news:%
Bonjour.
J'ai une liste "Numéro_d'ordre" en colonne B2:B500.
Je souhaite avoir dans un label sur mon userform, le numéro suivant,
pour cela je fais =MAX+1, mais en VBA ?
Merci beaucoup
Vincent




Avatar
Claude Trouet
Bonsoir,
Une solution .....

En C1 mettre la formule =MAX(B:B)
Dans le code du Userform, évènement Initialize

Private Sub UserForm_Initialize()
Label1.Caption = "Suivant : " & Sheets("Feuil1").Range("C1").Value + 1
End Sub

Est-ce suffisant ?

"Vincent" a écrit dans le message de news:
%
Bonjour.
J'ai une liste "Numéro_d'ordre" en colonne B2:B500.
Je souhaite avoir dans un label sur mon userform, le numéro suivant,
pour cela je fais =MAX+1, mais en VBA ?
Merci beaucoup
Vincent




Avatar
Vincent
Bonsoir
Claude en fait j'ai déjà cette solution, mais je voulais éviter d'avoir un
"fil à la patte"
Merci quand même
Vincent

"Claude Trouet" a écrit dans le message de
news:
Bonsoir,
Une solution .....

En C1 mettre la formule =MAX(B:B)
Dans le code du Userform, évènement Initialize

Private Sub UserForm_Initialize()
Label1.Caption = "Suivant : " & Sheets("Feuil1").Range("C1").Value + 1
End Sub

Est-ce suffisant ?

"Vincent" a écrit dans le message de news:
%
Bonjour.
J'ai une liste "Numéro_d'ordre" en colonne B2:B500.
Je souhaite avoir dans un label sur mon userform, le numéro suivant,
pour cela je fais =MAX+1, mais en VBA ?
Merci beaucoup
Vincent








Avatar
AV
Pour le smilblick :
Il n'est pas nécessaire de faire la calcul dans une feuille.
Tu peux le faire directement en vba soit avec la fonction vba Max (x1 à x3) soit
en utilisant la fonction de feuille de calcul MAX et la méthode Evaluate (x4 à
x5)

x1 = Application.Max(Sheets("Feuil1").Range("B:B"))
x2 = Application.Max(Range("Feuil1!B:B"))
x3 = Application.Max([Feuil1!B:B])
x4 = Evaluate("Max(Feuil1!B:B)")
x5 = [Max(Feuil1!B:B)]

AV
Avatar
Vincent
Bonsoir Clément,
je ne comprends pas le sens de cette formule ???
Merci
Vincent

"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

label1.caption = cint(label1.caption) + 1

"Vincent" a écrit dans le message de
news:%
Bonjour.
J'ai une liste "Numéro_d'ordre" en colonne B2:B500.
Je souhaite avoir dans un label sur mon userform, le numéro suivant,
pour cela je fais =MAX+1, mais en VBA ?
Merci beaucoup
Vincent







Avatar
Vincent
Bonsoir AV
En fait , j'essaie de faire ceci, j'ai bien inséré cette procédure dans
l'initialize de mon userform, cela ne donne rien.
Label3.Caption = Application.Max(Sheets("Fichier").Range("B3:B50")) + 1
Vincent


"AV" a écrit dans le message de
news:%
Pour le smilblick :
Il n'est pas nécessaire de faire la calcul dans une feuille.
Tu peux le faire directement en vba soit avec la fonction vba Max (x1 à
x3) soit

en utilisant la fonction de feuille de calcul MAX et la méthode Evaluate
(x4 à

x5)

x1 = Application.Max(Sheets("Feuil1").Range("B:B"))
x2 = Application.Max(Range("Feuil1!B:B"))
x3 = Application.Max([Feuil1!B:B])
x4 = Evaluate("Max(Feuil1!B:B)")
x5 = [Max(Feuil1!B:B)]

AV




Avatar
AV
En fait , j'essaie de faire ceci, j'ai bien inséré cette procédure dans
l'initialize de mon userform, cela ne donne rien.
Label3.Caption = Application.Max(Sheets("Fichier").Range("B3:B50")) + 1


Perso, je n'ai aucun souci avec cette ligne de code !

AV