Saisie automatique de toute une ligne ?

Bonjour à tous,

Je suis un nouvel inscrit sur ce site et j’aurais besoin de votre aide et de votre expertise :

Je suis en train de rentrer des données dans un tableau excel concernant des joueurs de football. Je rentre le nom de chaque joueur dans la colonne A, puis différentes informations dans les colonnes suivantes : date naissance (B), lieu de naissance (C)…

Existe-t-il un moyen pour que quand je rentre le nom de joueur, excel le reconnaisse et me rentre les informations de toute la ligne ?

Quelques précisions :

• je suis sur excel 2004 pour mac
• mon logiciel est en anglais
• j’importe le nom des joueurs dans la colonne A en faisant un collage

Merci d’avance pour votre aide.

Philippe.

Bonjour

Explications dans le fichier

https://www.excel-pratique.com/~files/doc/GU6E4Classeur2.xls

Cordialement

Bonjour Amadéus,

cette formule peut elle mise en vba afin de créer un userform de recherche parc que là, je bloque.

D'avance merci.

Bonjour

VBA n'est pas mon truc. Sur quoi bloques-tu ? C'est peut-être le moment d'apprendre quelque chose de plus?

Sinon, si tu es rebuté par les formules, il y a d'autres possibilités comme la commande "Données" "Formulaire" ou encore le Filtre.

Cordialement

Bonjour Amadeus,

Merci pour ta réponse et ton fichier-exemple.

Cependant je n'arrive pas à l'appliquer sur mon fichier (voir pj).

Dans un premier temps, j'ai sélectionné toute la colonne A et j'ai suivi tes indications:

Liste déroulante des noms des joueurs

Menu "Données" "Validation", dans "Autoriser", sélectionner "Liste"

Dans "source", taper = Joueur

Voir Formule nommée (Commande de menu "Insertion" "Nom" "Définir")

La Formule

=OFFSET(Sheet1!$A$2;;;COUNTA(Sheet1!$A:$A)-1)

est nommée Joueur

Ensuite je ne sais pas trop où mettre les deux autres formules

=VLOOKUP($F$1;$A$2:$C$20;2;FALSE)

=VLOOKUP($F$1;$A$2:$C$20;3;FALSE)

En dessous des lignes déjà rentrées? A côté?

Pardon je ne suis pas très doué sur excel...

Merci.

Philippe.

Voilà le fichier:

https://www.excel-pratique.com/~files/doc/94LzISaisie_auto.xls

C'est bon, j'ai réussi à faire ce que je voulais avec un macro:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Range

If Target.Column > 1 Then Exit Sub

With ActiveSheet.Range("A1:A" & Target.Offset(-1, 0).Row)

Set c = .Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)

If Not c Is Nothing Then

Range(c.Offset(0, 1), c.Offset(0, 6)).Copy

Range(Target.Offset(0, 1), Target.Offset(0, 6)).Select

ActiveSheet.Paste

Application.CutCopyMode = False

Target.Offset(1, 0).Select

End If

End With

End Sub

Merci pour votre aide.

Philippe.