F° recherche

GeoTrouvePas

XLDnaute Impliqué

• 31 Août 2010

• #2

Re : F° recherche

Bonjour,

Voilà qui devrait faire l'affaire

Bonne journée

 

Pièces jointes

• Copie de essai.xls

  24 KB · Affichages: 45
• Copie de essai.xls

  24 KB · Affichages: 49
• Copie de essai.xls

  24 KB · Affichages: 43

Vote positif 0 Vote négatif

C

chris541

Guest

• 31 Août 2010

• #3

Re : F° recherche

Bonjour,
je souhaite avoir la valeur dans la même celulle que la lettre en non en dessous est ce possible pour faire en sorte que quand je tape "A" , dans la même celulle que "A" aparaisse la valeur "ALAIN" ....

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 31 Août 2010

• #4

Re : F° recherche

C'est effectivement possible mais c'est plus cher ! 😛

Par contre ça ne peut pas se faire par une formule (puisque tu l'effacerais à chaque fois que tu saisirais ta recherche).

Par contre par une macro, c'est possible. Place celle - ci dans le module réservé à la feuille 1 :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '
    Valeur = Cells(12, 2).Value
    Cells(12, 2).FormulaR1C1 = "=INDEX(R[-9]C[1]:R[-6]C[3],MATCH(" & Chr(34) & Valeur & Chr(34) & ",R[-9]C[1]:R[-6]C[1],0),3)"
End Sub

L'évenement SelectionChange n'est surement pas le mieux adapté à ta situation mais je te laisse choisir celui qui te conviendra le mieux.

Bonne journée

 

Vote positif 0 Vote négatif

C

chris541

Guest

• 31 Août 2010

• #5

Re : F° recherche

Merci pour ton aide précieuse.
Est il possible d'appliquer cette macro sur une plage disons de "B12à B37" au lieu de "B12" uniquement.....merci d'avance !
comment supprimer les valeurs "N/A" lorsqui'il n'y a rien?

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 31 Août 2010

• #6

Re : F° recherche

Désolé mais pas trop le temps cet après midi.

Tu dois pouvoir remplacer la 1ère macro par celle - ci. C'est pas très propre à mon goût mais ça devrait marcher :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '

For i = 12 To 37
    Valeur = Cells(i, 2)
    Cells(i, 2).FormulaR1C1 = "=INDEX(R[-" & i - 3 & "]C[1]:R[-" & i - 6 & "]C[3],MATCH(" & Chr(34) & Valeur & Chr(34) & ",R[-" & i - 3 & "]C[1]:R[-6]C[1],0),3)"
Next

End Sub

Edit : Pour éviter les #N/A, tu dois pouvoir t'en sortir en utilisant un "If" et "WorksheetFunction.IsNA"

 

Dernière édition: 31 Août 2010

Vote positif 0 Vote négatif