possibilité de faure un select case

peux tu explicité ta demande ?
tu voudrais copier cette formula ou repeter la formule ?

si tu veux répéter la formule, tu la met dans un programme a part et ensuite tu rappel ce programe quand tu en a besoin...

Non cette ligne est dans un programme

mais au lieu de faire

if mid(Num,1,6)= 456219 then sortie=12739

 
if mid(Num,1,6)= 456220 then sortie=12740

 
if mid(Num,1,6)= 456222 then sortie=12741

 
40 autres ligne dans le même style suivent

j'aimerais faire un

select case num

 
case mid(num,1,6) = 45619

 
case etc....

 
end select

et pourquoi pas avec un for :

dim i as integer
for i = 0 to 39
   if mid(Num,1,6)= 456219+i then sortie=12739+i
Next

comme cela, il repete la même opération 40 fois....

non mais les nombres ne se suivent pas

Tu ne peux avoir que des constantes après Case !
Donc :

Select Case mid(num,1,6)

    Case "456219": sortie=12739

    Case "456220": sortie=12740

    Case "456222": sortie=12741

    ' x 40 -3

End Select

En passant, Mid() renvoie une chaîne de caractères (un Variant/String pour les puristes), pas un entier. Donc, Case "456219", pas Case 456219  

C'est plutot un truc dans ce style la que j'aurais, donc tout mélangé

if mid(Num,1,6)= 456219 then sortie=12739

 
if mid Num= 45622065 then sortie=12740

 
if mid(Num,1,4)= 4565 then sortie=12741

vaut mieux ke je reste avec mes if

La ligne 3, c'est pas du VB   (euh, c'est juste mid qu'il faut virer ?)
Et ça sert à quoi que je te dise de mettre des guillemets ?

Bon, et ça :

If Mid(num, 1, 6) ) = "123456" Then: Sortie = 654321
ElseIf num = 123456 Then: Sortie = 654321
ElseIf num = 154587 Then: Sortie = 856486
ElseIf ..
End If

Ou encore :

Dim tab_enreg(39) As enreg
Dim i As Integer
 
tab_enreg(0).borne1 = 1: tab_enreg(0).borne2 = 6:   tab_enreg(0).entree = 456219:   tab_enreg(0).sortie = 12739
tab_enreg(1).borne1 = 1: tab_enreg(1).borne2 = 100: tab_enreg(1).entree = 45622065: tab_enreg(1).sortie = 12740
tab_enreg(2).borne1 = 1: tab_enreg(2).borne2 = 4:   tab_enreg(2).entree = 4565:     tab_enreg(2).sortie = 12741
' // x 40 - 3 ...
 
For i = 0 To 39
    With tab_enreg(i)
        If Mid(Num, .borne1, .borne2) = .entree Then
            sortie = .sortie
            Exit For
        End If
    End With
Next

Qu'en penses-tu ?

je prendsl a premier la deuxième me conviens pas

Comme tu veux.  

Second code : ceux qui ont connu les tous premiers programmes BASIC des années 80's peuvent se payer un tranche de rigolade en faisant une analogie entre ma proposition et les lignes DATA de l'époque.

Qui qui s'en souvient ?

j'ai fais ton premier code il me met erreur de compilation else sans if

ElseIf n'est pas Else If  

j'ai écris exactement kom tu me l'a indiqué donc voila

...   ... regarde mieux ...   ...

voila mon code que me fait faire cette jolie erreur

If Mid(num, 1, 6) = "456219" Then: Nom_entites = 12739

    ElseIf Mid(num, 1, 6) = "456220" Then: Nom_entites = 12739

    ElseIf Mid(num, 1, 6) = "497219" Then: Nom_entites = 12739

    ElseIf Mid(num, 1, 6) = "497220" Then: Nom_entites = 12739

 
 
    ElseIf Mid(num, 1, 6) = "456256" Then: Nom_entites = 17499

    ElseIf Mid(num, 1, 6) = "457256" Then: Nom_entites = 17499

 
 
    ElseIf Mid(num, 1, 6) = "455809" Then: Nom_entites = 43799

    ElseIf Mid(num, 1, 6) = "455832" Then: Nom_entites = 43799

 
 
    ElseIf Mid(num, 1, 6) = "497625" Then: Nom_entites = 41539

    ElseIf Mid(num, 1, 6) = "497665" Then: Nom_entites = 41539

 
 
    ElseIf Mid(num, 1, 6) = "456164" Then: Nom_entites = 24659

    ElseIf Mid(num, 1, 6) = "497364" Then: Nom_entites = 24659

 
 
    ElseIf num = "49739930" Then: Nom_entites = 16960

    ElseIf num = "49739931" Then: Nom_entites = 16960

    ElseIf num = "49739932" Then: Nom_entites = 16960

 
 
    ElseIf num(bin, 1, 6) = "497645" Then: Nom_entites = 19139

    ElseIf num(bin, 1, 6) = "497985" Then: Nom_entites = 19139

    End If

Mon pauvre darkspoilt, il faut arrêter d'être logique avec VB.  
Ce langage est le pire qui soit.    

Et comme ça ?

If     Mid(num, 1, 6) = "456219"   Then

    Nom_entites = 12739

ElseIf Mid(num, 1, 6) = "456220"   Then

    Nom_entites = 12739

ElseIf Mid(num, 1, 6) = "497219"   Then

    Nom_entites = 12739

ElseIf Mid(num, 1, 6) = "497220"   Then

    Nom_entites = 12739

ElseIf Mid(num, 1, 6) = "456256"   Then

    Nom_entites = 17499

ElseIf Mid(num, 1, 6) = "457256"   Then

    Nom_entites = 17499

ElseIf Mid(num, 1, 6) = "455809"   Then

    Nom_entites = 43799

ElseIf Mid(num, 1, 6) = "455832"   Then

    Nom_entites = 43799

ElseIf Mid(num, 1, 6) = "497625"   Then

    Nom_entites = 41539

ElseIf Mid(num, 1, 6) = "497665"   Then

    Nom_entites = 41539

ElseIf Mid(num, 1, 6) = "456164"   Then

    Nom_entites = 24659

ElseIf Mid(num, 1, 6) = "497364"   Then

    Nom_entites = 24659

ElseIf num            = "49739930" Then

    Nom_entites = 16960

ElseIf num            = "49739931" Then

    Nom_entites = 16960

ElseIf num            = "49739932" Then

    Nom_entites = 16960

ElseIf num(bin, 1, 6) = "497645"   Then

    Nom_entites = 19139

ElseIf num(bin, 1, 6) = "497985"   Then

    Nom_entites = 19139

End If

Yes c'est bon

Nan. C'est pas bon. Ca marche, c'est tout.
Ce serait bon si VB n'était pas une merde finie en matière de syntaxe.

(j'trouve plus le bouton pour quitter le mode "vieux con grincheux"   )