Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel remplacer select case par vlookup

remplacer select case par vlookup

2 réponses
Avatar
magic-dd
bonjour

comment remplacer ces longues recherche par la fonction case par un
vlookup (recherchev)

ex
Sub abdo(i)

'BAREMES VERIFIES ET CONFORMES'

age =3D Range("g" & i)
sexe =3D Range("h" & i)
ABDOS =3D Range("R" & i)
VERIF_APTITUDE =3D Range("i" & i)

If VERIF_APTITUDE =3D "INAPTE" Then
Range("S" & i) =3D "NA"
End If

If sexe =3D "H" And VERIF_APTITUDE =3D "APTE" Then ' si le candidat
est un homme et apte

Select Case age 'colonne age

Select Case age 'colonne age

Case 18 To 39: ' de 18 ans =E0 39 ans

' pour lES abdos

Select Case ABDOS
Case "":
NOTE_ABDO =3D ""
Case 0 To 17:
NOTE_ABDO =3D "0"
Case 18 To 20:
NOTE_ABDO =3D "1"
Case 21 To 23:
NOTE_ABDO =3D "2"
Case 24 To 26:
NOTE_ABDO =3D "3"
Case 27 To 29:
NOTE_ABDO =3D "4"
Case 30 To 34:
NOTE_ABDO =3D "5"
Case 35 To 39:
NOTE_ABDO =3D "6"
Case 40 To 44:
NOTE_ABDO =3D "7"
Case 45 To 49:
NOTE_ABDO =3D "8"
Case 50 To 54:
NOTE_ABDO =3D "9"
Case 55 To 100:
NOTE_ABDO =3D "10"
Case "ne", "NE":
NOTE_ABDO =3D "0"
Case "IN", "in":
NOTE_ABDO =3D "NA"
End Select

remplacer par UN RECHERCHE V

merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Bonsoir,
Une piste peut-être, sans Vba
=SI(H2="NON";"NA";SI(G2="H";RECHERCHEV(F2;plage;2;0);RECHERCHEV(F2;plage;3;0)))
voir ici
http://cjoint.com/?jBafcSARRA
--
Salutations
JJ


"magic-dd" a écrit dans le message de news:

bonjour

comment remplacer ces longues recherche par la fonction case par un
vlookup (recherchev)

ex
Sub abdo(i)

'BAREMES VERIFIES ET CONFORMES'

age = Range("g" & i)
sexe = Range("h" & i)
ABDOS = Range("R" & i)
VERIF_APTITUDE = Range("i" & i)

If VERIF_APTITUDE = "INAPTE" Then
Range("S" & i) = "NA"
End If

If sexe = "H" And VERIF_APTITUDE = "APTE" Then ' si le candidat
est un homme et apte

Select Case age 'colonne age

Select Case age 'colonne age

Case 18 To 39: ' de 18 ans à 39 ans

' pour lES abdos

Select Case ABDOS
Case "":
NOTE_ABDO = ""
Case 0 To 17:
NOTE_ABDO = "0"
Case 18 To 20:
NOTE_ABDO = "1"
Case 21 To 23:
NOTE_ABDO = "2"
Case 24 To 26:
NOTE_ABDO = "3"
Case 27 To 29:
NOTE_ABDO = "4"
Case 30 To 34:
NOTE_ABDO = "5"
Case 35 To 39:
NOTE_ABDO = "6"
Case 40 To 44:
NOTE_ABDO = "7"
Case 45 To 49:
NOTE_ABDO = "8"
Case 50 To 54:
NOTE_ABDO = "9"
Case 55 To 100:
NOTE_ABDO = "10"
Case "ne", "NE":
NOTE_ABDO = "0"
Case "IN", "in":
NOTE_ABDO = "NA"
End Select

remplacer par UN RECHERCHE V

merci
Avatar
magic-dd
merci jacky mais cela ne correspond pas tout a fait à ce que je
recherche.

je veux reellement remplacer le case par recherchev

merci