Fonction "ou" en VBA

[Chasse]

Bonsoir le forum
Pouvez vous me donner un coup de main car toutes mes tentatives ont pour le moment échouées

Si ma cellule contient la valeur « 719119 » ou « 719121 » ou « 719126 »
Les instructions sont les mêmes

Comment faire pour déclarer ces 3 valeurs

avec ce code je n'ai qu'une valeur

If feuil1.Range("B" & ma_variable) = "719119" Then

instructions

Set rg5 = wsPL.Range("PL_Livré_sans_Remb").End(xlUp).Offset(1, 0)      
       
        rg5 = ws1.Range("A" & ma_variable) 'N° ordre TMS
        rg5.Offset(0, 1) = ws1.Range("D" & ma_variable) 'Expéditeur
        rg5.Offset(0, 2) = ws1.Range("E" & ma_variable)  'CP
        rg5.Offset(0, 3) = ws1.Range("F" & ma_variable)  'Localité
        rg5.Offset(0, 4) = ws1.Range("G" & ma_variable) 'Destinataire
        rg5.Offset(0, 5) = ws1.Range("H" & ma_variable)  'CP
        rg5.Offset(0, 6) = ws1.Range("I" & ma_variable)  'Localité
        rg5.Offset(0, 7) = ws1.Range("J" & ma_variable)  'n° envoie
        rg5.Offset(0, 9) = ws1.Range("K" & ma_variable)  'n
        rg5.Offset(0, 10) = ws1.Range("L" & ma_variable)

Merci de votre aide

 

[Compte Supprimé 979]

Re : Fonction "ou" en VBA

Salut Chasse,

Effectivement, ce n'est pas utilisable comme la fonction sur Excel

If feuil1.Range("B" & ma_variable) = "719119" Or feuil1.Range("B" & ma_variable) = "719121 Or feuil1.Range("B" & ma_variable) = "719126"  Then

Sinon tu as plus court

If Instr(1,"719119 719121 719126",feuil1.Range("B" & ma_variable))>0 Then

A+

 

[Chasse]

Re : Fonction "ou" en VBA

Bonsoir BrunoM45 & carcharodon-carcharias

Merci de vos réponses ultra rapides

Très bon Week-end a vous tous

 

[kjin]

Re : Fonction "ou" en VBA

Bonzoir,

Select Case Feuil1.Range("B" & ma_variable)
Case 719119, 719121, 719126
'instruction
End Select

A+
kjin