Boucle sur no pas continue

[Temjeh]

Bonjour et merci d'avance

Surement tres simple.
Je cherche dans ma base sans solution valable


Je veut simplement boucler sur 1,2,3,5,6 (pas sur 4)
Je peut évidemment écrire ...si i = 4 then go to suiv et y mettre un suiv: mais je cherche la bonne facon de l'écrire.

For i = 1 to 6
UserForm1.Controls("CommandButton" & (i)).Enabled = False
Next i

Ceci n'est pas bon:Array(1, 2, 3, 5, 6)

Merci

Temjeh

 

[Papou-net]

Re : Boucle sur no pas continue

Bonjour Temjeh,

Pour répondre rapidement :

For i = 1 to 6
If i<>4 Then UserForm1.Controls("CommandButton" & (i)).Enabled = False
Next i

Ce n'est pas très "technique" mais ça marche.

Cordialement.

 

[Temjeh]

Re : Boucle sur no pas continue

Merci

J'avais plus pensé a une genre de suite car si dans une boucle futur sur boucle de 10 item je ne vei=ut pas la 3, 6, 7 par exemple le code se rallonge.

Il y a surement moyen de lui dire en premiere ligne ...

For i = (1,2,3,5,6)

Merci

Temjeh

 

[Papou-net]

Re : Boucle sur no pas continue

Re bonjour,

Peut-être comme cela :

ch="12356")
For n=1 to Len(ch)
  UserForm1.Controls("CommandButton" & Cint(Mid(ch,n,1)).Enabled = False
Next

Je n'ai pas testé, ce n'est toujours pas très "élégant", mais ça doit fonctionner.

Cordialement.

 

[Temjeh]

Re : Boucle sur no pas continue

Merci de ton aide

¨Pas mal comme code sauf erreur sur

UserForm1.Controls("CommandButton" & Cint(Mid(ch,n,1)).Enabled = False

A++

Temjeh

 

[Temjeh]

Re : Boucle sur no pas continue

Ok parfait merci beaucoup

Il manquait une parenthese avant le .Enabled

ch = ("12356")
For n = 1 To Len(ch)
UserForm1.Controls("CommandButton" & CInt(Mid(ch, n, 1))).Enabled = False
Next n

A++

Temjeh

 

[PascalXLD]

Re : Boucle sur no pas continue

Bonjour

Par contre il faudra s'arrêter au numéro 9

 

[Papou-net]

Re : Boucle sur no pas continue

Re bonjour,

C'est exact, PascalXLD, dans ce cas on peut utiliser un tableau.

Par exemple :

num = Array(1, 3, 5, 7, 9, 11,13,15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25)
For Each n In num
  UserForm1.Controls("CommandButton" & CInt(Mid(ch, n, 1))).Enabled = False
Next

Ainsi, il n'y a plus de limitation en nombre de contrôles à traiter.

Espérant avoir répondu.

Cordialement.

 

[Temjeh]

Re : Boucle sur no pas continue

Ouen merci

J'y avais pensé mais pour le moment ca me convenais.

Il y a par-contre ERREUR 13 INCOMPATIBILITÉ DE TYPE sur le nouveau code

UserForm1.Controls("CommandButton" & CInt(Mid(ch, n, 1))).Enabled = False

Merci beaucoup

Temjeh

 

[Mytå]

Re : Boucle sur no pas continue

Salut le forum

Dim Tablo
Dim I As Byte
Tablo = Array(1, 3, 5, 7, 9, 11, 13, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25)
For I = 0 To UBound(Tablo)
  UserForm1.Controls("CommandButton" & Tablo(I)).Enabled = False
Next I

Mytå

 

[Papou-net]

Re : Boucle sur no pas continue

Bonjour Temjeh, le Forum,

Autant pour moi, voici la correction :

num = Array(1, 3, 5, 7, 9, 11, 13, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25)
For Each n In num
  UserForm1.Controls("CommandButton" & n).Enabled = False
Next

Bonne journée.

 

[Temjeh]

Re : Boucle sur no pas continue

Merci beaucoup à vous deux

L'un pour le départ et l'autre pour la fin

LA PERFECTION!!!


A+++

Temjeh