Fonction REPT et vba

[WILFRIED]

Bonjour,

je bosse actuellement sur une petit appli pour quelqu'un du forum, sur sont fichier initial il utilise une formule :

=SI(V31>0;REPT("g";ARRONDI(V31/2;3));"")

le résultat est une barre allant de 0 à 100 de type histogramme horizontal. Pour peaufiné sont appli je voudrait lui mettre le même genre de chose en-dessous du textbox ou il faut remplir la valeur en %, seulement voila, premièrement je ne connait pas du tous la fonction rept, et deuxièmement je n'ai aucune idée de comment faire pour créer ce genre de chose pour que cela soit simple et jolie.

Je serai preneur de toutes idée.

MErci

A+

 

[vbacrumble]

Re : Fonction REPT et vba

Bonjour tous


REPT en VBA

Sub macro()
Dim chaine$
chaine = "abcd"
Dim wf As WorksheetFunction
Set wf = Application.WorksheetFunction
MsgBox wf.Rept(chaine, 3)
End Sub

En fait tu veux faire une sorte de progressbar ?

A+

 

[WILFRIED]

Re : Fonction REPT et vba

Merci pour ton info, mais à quoi sert exactement la fonction rept?

J'imaginais autre chose qu'un msgbox, j'avait en tête un label ou quelque chose du même gout.

A+

 

[mutzik]

Re : Fonction REPT et vba

Salut Wilfried, vbacrumble

la fonction rept ne fait que répéter n fois le nombre, chiffre ou symbole défini
par ex : rept("*",25) va mettre 25 étoiles dans ta cellule
je me sert beaucoup de cette fonction pour formatter des fichiers sorties texte qui doivent alimenter notre prog de paie qui n'accepte que des fichiers txt formattés selon certains paramètres
donc rept("*",5) est équivalent à "*****" (5 étoiles) mais est plus facile à mettre en oeuvre

 

[vbacrumble]

Re : Fonction REPT et vba

Re



Dans un userform insère un Label
Mets la police de sa caption en Wingdings 2

puis teste ce code

Private Sub UserForm_Click()
Dim i As Long
Dim d As Double
Dim Nbr As Long
For i = 1 To 30
d = i / 30
Nbr = d * 10
Label1.Caption = Application.Rept(Chr(162), Nbr)
Application.Wait Now + TimeSerial(0, 0, 1)
Next i
End Sub

A+

 

[WILFRIED]

Re : Fonction REPT et vba

Re,

Merci mutzik pour ton explication de rept, et merci vbacrumble pour ton code. En l'adaptant à mon appli cela fonctionne parfaitement. Je vais garder cela de coté car c'est une bonne méthode pour faire un progressbar simplement.

A+

 

[vbacrumble]

Re : Fonction REPT et vba

Re

Wielfried: tu peux poster ton code VBA, stp.

Cela peut intéresser d'autres ici.


A+

 

[WILFRIED]

Re : Fonction REPT et vba

Re,

voici en pj une extrapolation sous forme de progress bar avec label et fonction rept.

A+