Discussion :

[foxgarde]

Bonjour
je suis débutant avec VBA sur excel
je fais un userform
dans Private Sub UserForm_Initialize()
je dois clacul une variable qui doit etre egale à:
8,10,12,15 ou20
donc j'ai creer deux variable
la première Np est le resultat réel de l'equation et en fonction de ce résultat je trouve MA variable à afficher que j'ai appelé Npp.
exemple: je calcul je trouve Np=6,532 donc Npp=8
Np= 10,532 donc Npp=12

j'ai penser à faire une boucle do until

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim Np As Single, Su As Long, Spi As Long, Ele As Variant, Npp As Single
'les variable de calcul se trrouvant dans un tableau excel
Su = Sheets("Projet 1").Range("B10")
Ele = Sheets("Projet 1").Range("B9")
Spi = Sheets("Projet 1").Range("B8")
Np = ((3 * Su) / (Spi * NL * LL)) 'le résultat réel de l'équation
Do Until Npp = 8 Or Npp = 10
Npp = Int(Np) + 1 'la valeur que je veux afficher 8 10 12 15 ou 20
Exit Do
Loop
 
TextBox9 = Npp

Le problème c'est que la boucle s'arrete au premier plus 1
exemple : pour Np=6,532 Npp=7 au lieu de 8

Merci pour votre aide

[anasecu]

Bonjour

j'ai penser à faire une boucle do until

Tu remplaces ta boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Do Until Npp = 8 Or Npp = 10
Npp = Int(Np) + 1 'la valeur que je veux afficher 8 10 12 15 ou 20
Exit Do
Loop

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Npp = Application.Choose(Application.Match(Np, Array(0, 8, 10, 12, 15, 20), 1), 8, 10, 12, 15, 20)

[Jean-Philippe André]

Salut,

sans parler de ton énoncée quelque peu bancal, je me contente de travailler sur la boucle en elle même, en gardant ici une syntaxe approximative pour coller a ton code d'origine :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Npp=Int(Np)
Do Until Npp = 8 Or Npp = 10 Or Npp = 12 or Or Npp = 15 or Or Npp = 20
Npp = Int(Npp) + 1 'la valeur que je veux afficher 8 10 12 15 ou 20
Exit Do
Loop

[foxgarde]

SALUT
merci a vous deux pour ces réponses
anasecu ça marche nickel
mais Jean-Philippe André sur ta deuxième ligne j'ai une erreur de syntaxe. si je devait la corrigé comme je peu faire
et encore une fois merciiiiiiiiiiiiii

[Jean-Philippe André]

Une erreur de copier/coller :o

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do Until Npp = 8 Or Npp = 10 Or Npp = 12 Or Npp = 15 Or Npp = 20

[foxgarde]

Pardon si j'abuse de votre gentillesse

comment peu-ton simplifier un IF avec plusieurs condition IF OR OR... il suffit d'une vrai pour faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
If Ele = A Or Ele = A2 Or Ele = ASM Or Ele = B1 Or Ele = B2 Or Ele = B3 Or Ele = C Or Ele = D Or Ele = E Or Ele = F Or Ele = G2 Or Ele = H Or Ele = H2 Or Ele = HSM Then
 
Npp = Application.Choose(Application.Match(Np, Array(0, 8, 10, 12, 15, 20), 1), 8, 10, 12, 15, 20)
Else
 If Ele = j Or Ele = K Then
 Npp = Npp = Application.Choose(Application.Match(Np, Array(0, 3, 4, 5), 1), 3, 4, 5)
End If
End If

merci

[unparia]

Bonjour
Intéresse-toi à l'instruction Select Case -->> rubrique Select Case, instruction de ton aide interne VBA

Tu devrais saisir cette occasion pour lire une très récente discussion :
https://www.developpez.net/forums/d1...d/#post9801987