Macro permettant de remplacer la formule rechercheV

[a26]

Bonsoir,
Je suis professeur d'eps, et je cherche à construire un fichier pour le cross du Collège.

Pour éviter de rentrer des formules (ex rechercheV), pour me renvoyer les données
Ici après saisie du dossard, le Nom, le Prénom, la Catégorie et la Classe.
j'ai inséré une macro intéressante trouvé sur le site,
ce qui me permet d'avoir le même résultat sauf le problème ci-contre.

Lorsque je saisi le N°5, je n'ai pas de résultat quelque soit la ligne de saisie
Sur un autre fichier que j'ai testé, les N° 2,3,4,5 ne donnent pas de résultats

Merci pour l'aide,
Voir le fichier joint.

 

[BOISGONTIER]

Re : Macro permettant de remplacer la formule rechercheV

Bonsoir,

Set Est = .[A:A].Find(Target)

JB

 

[a26]

Re : Macro permettant de remplacer la formule rechercheV

Merci pour cette réponse rapide, mais je ne suis pas assez compétent en VBA pour saisir le code au bon emplacement. Pouvez-vous me retourner mon fichier avec votre correction.

 

[Compte Supprimé 979]

Re : Macro permettant de remplacer la formule rechercheV

Bonsoir A26

Pas assez compétent pour faire un copier/coller ... 🙄 je pense que tu exagères ...

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Co As Byte, Est As Range
  If Target.Count > 1 Or Target.Row = 1 Then Exit Sub
  Co = Target.Column
  If Co <> 2 Then Exit Sub
  With Sheets("liste")
    Set Est = .Range("A:A").Find(Target)
    If Est Is Nothing Then
      Application.EnableEvents = False: Target = "": Application.EnableEvents = True
      Exit Sub
    End If
    ' Empècher les évènements
    Application.EnableEvents = False
    For Co = 1 To 4
      Cells(Target.Row, Target.Column + Co) = .Cells(Est.Row, Est.Column + Co).Value
    Next
    Application.EnableEvents = True
  End With
End Sub

A+

 

[pierrejean]

Re : Macro permettant de remplacer la formule rechercheV

Bonsoir a26

Ton fichier modifié
(La recherche n'est plus faite que dans la colonne A et elle est specifiée en recherche valeur exacte)

NB: Que BB ne veuille pas apparaitre dans un cross n'avait a priori rien d'extraordinaire

Edit: à la bourre moi !!
Salut JB
Salut bruno 🙂 🙂

 

[a26]

Re : Macro permettant de remplacer la formule rechercheV

Je viens de tester, mais sans résultats apparents. Je ne sais pas ou je me plante...Peux-tu me renvoyer le fichier avec la correction.

 

[a26]

Re : Macro permettant de remplacer la formule rechercheV

Merci à tous les deux. Le résultat correspond tout à fait à ce que je souhaitais.
Bonne soirée.