erreur de compilaton avec la fonction GRANDE.VALEUR dans VBA

[scaleo]

Bonjour à tous


voila en gros la situation: j'utilise un userform pour gérer mes dossiers, et générer automatiquement un numéro de dossier du type "0000" , avec affichage des zéros, quand je clic sur le bouton valider.

étant donné que j'aurai un tableau de prés de 4000 dossiers, je pensais faire un truc du genre :

Private Sub valider_general_bouton_Click()

X = Range("b65536").End(xlUp).Row + 1

'numéro de dossier

Dim dossier As Integer

dossier=GRANDE.VALEUR(B13:B30;1)

Cells(X, 2) = dossier + 1

End Sub

maintenant j'ai 2 problèmes:

PB n°1 : "erreur de compilation, Attendu: séparateur de liste ou )" alors que dans une feuille ça fonctionne, et j'ai bien fais attention de mettre les cellules en " nombre" et pas en "standard"

PB n°2: Comment afficher les zéros genre : dossier n°0012, 0850 ,0001 ?

merci 😉

 

[Modeste geedee]

Re : erreur de compilaton avec la fonction GRANDE.VALEUR dans VBA

Bonsour®

VBA ne comprend que le langage US !!!
séparateur : ","

Pb1 : Dossier=evaluate("=LARGE(B13:B30,1)")

Pb2 : Cells(X, 2).Numberformat="0000"

 

[scaleo]

Re : erreur de compilaton avec la fonction GRANDE.VALEUR dans VBA

Ah ? pourtant dans la feuille, excel le comprend.. c'est un peu c**...

En tous cas ça marche nickel, merci 😉 mais comment le faire partir de "0000"? avec une fonction if ?

re, avec IF ça marche pas :

Dim dossier As Integer

Cells(X, 2).NumberFormat = "0000"
dossier = Evaluate("=LARGE(B13:B30,1)")

If dossier Is Null Then
Cells(X, 2) = 0

Else

Cells(X, 2) = dossier + 1
End If

ah et j'ai une nouvelle question: comment fait-on pour avoir le même format ( "0000") dans une textbox ?
-> trouvé : textbox= format ( variable, "0000")