Bonsoir
Je souhaite avoir dans un label qui se trouve sur un userform
la valeur la plus élevé + 1
j'essaie d'écrire quelque chose comme cela :
Label2.Caption = [MAX((Feuil1B3:B30000))] et [MAX((Feuil2B3:B30000))] +1
Je vous remercie
Didier
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
Pierre Archambault
Salut Didier,
Essaie ceci:
Public Sub Max() Dim A As Integer Dim B As Integer Dim C As Integer
A = WorksheetFunction.Max(Range("C4:C7")) B = WorksheetFunction.Max(Range("D4:D7")) If A > B Then C = A + 1 Else C = B + 1
Debug.Print C
End Sub
"Didier NOVARIN" a écrit dans le message de news: e8$
Bonsoir Je souhaite avoir dans un label qui se trouve sur un userform la valeur la plus élevé + 1 j'essaie d'écrire quelque chose comme cela : Label2.Caption = [MAX((Feuil1B3:B30000))] et [MAX((Feuil2B3:B30000))] +1 Je vous remercie Didier
Salut Didier,
Essaie ceci:
Public Sub Max()
Dim A As Integer
Dim B As Integer
Dim C As Integer
A = WorksheetFunction.Max(Range("C4:C7"))
B = WorksheetFunction.Max(Range("D4:D7"))
If A > B Then C = A + 1 Else C = B + 1
Debug.Print C
End Sub
"Didier NOVARIN" <didier.n@club-internet.fr> a écrit dans le message de
news: e8$goVkRHHA.2212@TK2MSFTNGP02.phx.gbl...
Bonsoir
Je souhaite avoir dans un label qui se trouve sur un userform
la valeur la plus élevé + 1
j'essaie d'écrire quelque chose comme cela :
Label2.Caption = [MAX((Feuil1B3:B30000))] et [MAX((Feuil2B3:B30000))] +1
Je vous remercie
Didier
Public Sub Max() Dim A As Integer Dim B As Integer Dim C As Integer
A = WorksheetFunction.Max(Range("C4:C7")) B = WorksheetFunction.Max(Range("D4:D7")) If A > B Then C = A + 1 Else C = B + 1
Debug.Print C
End Sub
"Didier NOVARIN" a écrit dans le message de news: e8$
Bonsoir Je souhaite avoir dans un label qui se trouve sur un userform la valeur la plus élevé + 1 j'essaie d'écrire quelque chose comme cela : Label2.Caption = [MAX((Feuil1B3:B30000))] et [MAX((Feuil2B3:B30000))] +1 Je vous remercie Didier
anonymousA
Bonjour,
tant qu'à utiliser Max, après tout autant aller jusqu'au bout
With Application.WorksheetFunction MsgBox .Max(.Max(Range("C4:D7")), .Max(Range("D4:D7"))) + 1 End With
Cordialement,
A+
On 2 fév, 01:33, "Pierre Archambault" wrote:
Salut Didier,
Essaie ceci:
Public Sub Max() Dim A As Integer Dim B As Integer Dim C As Integer
A = WorksheetFunction.Max(Range("C4:C7")) B = WorksheetFunction.Max(Range("D4:D7")) If A > B Then C = A + 1 Else C = B + 1
Debug.Print C
End Sub
"Didier NOVARIN" a écrit dans le message de news: e8$goVkRHHA.2__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$ MSFTNGP02.phx.gbl...
Bonsoir Je souhaite avoir dans un label qui se trouve sur un userform la valeur la plus élevé + 1 j'essaie d'écrire quelque chose comme cela : Label2.Caption = [MAX((Feuil1B3:B30000))] et [MAX((Feuil2B3:B30000)) ] +1 Je vous remercie Didier- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
tant qu'à utiliser Max, après tout autant aller jusqu'au bout
With Application.WorksheetFunction
MsgBox .Max(.Max(Range("C4:D7")), .Max(Range("D4:D7"))) + 1
End With
Cordialement,
A+
On 2 fév, 01:33, "Pierre Archambault"
<pierre.archamba...@videotron.ca> wrote:
Salut Didier,
Essaie ceci:
Public Sub Max()
Dim A As Integer
Dim B As Integer
Dim C As Integer
A = WorksheetFunction.Max(Range("C4:C7"))
B = WorksheetFunction.Max(Range("D4:D7"))
If A > B Then C = A + 1 Else C = B + 1
Debug.Print C
End Sub
"Didier NOVARIN" <didie...@club-internet.fr> a écrit dans le message de news: e8$goVkRHHA.2__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z__@TK2 MSFTNGP02.phx.gbl...
Bonsoir
Je souhaite avoir dans un label qui se trouve sur un userform
la valeur la plus élevé + 1
j'essaie d'écrire quelque chose comme cela :
Label2.Caption = [MAX((Feuil1B3:B30000))] et [MAX((Feuil2B3:B30000)) ] +1
Je vous remercie
Didier- Masquer le texte des messages précédents -
tant qu'à utiliser Max, après tout autant aller jusqu'au bout
With Application.WorksheetFunction MsgBox .Max(.Max(Range("C4:D7")), .Max(Range("D4:D7"))) + 1 End With
Cordialement,
A+
On 2 fév, 01:33, "Pierre Archambault" wrote:
Salut Didier,
Essaie ceci:
Public Sub Max() Dim A As Integer Dim B As Integer Dim C As Integer
A = WorksheetFunction.Max(Range("C4:C7")) B = WorksheetFunction.Max(Range("D4:D7")) If A > B Then C = A + 1 Else C = B + 1
Debug.Print C
End Sub
"Didier NOVARIN" a écrit dans le message de news: e8$goVkRHHA.2__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$ MSFTNGP02.phx.gbl...
Bonsoir Je souhaite avoir dans un label qui se trouve sur un userform la valeur la plus élevé + 1 j'essaie d'écrire quelque chose comme cela : Label2.Caption = [MAX((Feuil1B3:B30000))] et [MAX((Feuil2B3:B30000)) ] +1 Je vous remercie Didier- Masquer le texte des messages précédents -
"Didier NOVARIN" a écrit dans le message de news: e8$
Bonsoir Je souhaite avoir dans un label qui se trouve sur un userform la valeur la plus élevé + 1 j'essaie d'écrire quelque chose comme cela : Label2.Caption = [MAX((Feuil1B3:B30000))] et [MAX((Feuil2B3:B30000))] +1 Je vous remercie Didier
au bout d'un an quand même.....
jps
"Didier NOVARIN" <didier.n@club-internet.fr> a écrit dans le message de
news: eErE3ZkRHHA.4756@TK2MSFTNGP03.phx.gbl...
"Didier NOVARIN" <didier.n@club-internet.fr> a écrit dans le message de
news: e8$goVkRHHA.2212@TK2MSFTNGP02.phx.gbl...
Bonsoir
Je souhaite avoir dans un label qui se trouve sur un userform
la valeur la plus élevé + 1
j'essaie d'écrire quelque chose comme cela :
Label2.Caption = [MAX((Feuil1B3:B30000))] et [MAX((Feuil2B3:B30000))] +1
Je vous remercie
Didier
"Didier NOVARIN" a écrit dans le message de news: e8$
Bonsoir Je souhaite avoir dans un label qui se trouve sur un userform la valeur la plus élevé + 1 j'essaie d'écrire quelque chose comme cela : Label2.Caption = [MAX((Feuil1B3:B30000))] et [MAX((Feuil2B3:B30000))] +1 Je vous remercie Didier
