remplacer select case par vlookup

Le
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 = 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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #17351041
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"
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
magic-dd
Le #17357201
merci jacky mais cela ne correspond pas tout a fait à ce que je
recherche.

je veux reellement remplacer le case par recherchev

merci
Publicité
Poster une réponse
Anonyme