Rechercher une donnée dans un tableau et inscrire une autre dans la même ligne

  • Initiateur de la discussion Initiateur de la discussion rocornet
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

rocornet

XLDnaute Junior
Bonjour,
j'ai un assez grand problème, j'ai un document excel avec 5 pages (5 tours). Je n'ai pas encore créer les quatre autres, car elles sont déjà existantes dans un autre fichier. Je doit inscrire des données dans un tableau par rapport à un numéro d'équipe
et donc j'ai créer une fenêtre dans laquelle on insérerait les données et elles se classeraient automatiquement dans le tableau.
Mais je n'arrive même pas à rechercher la valeur dans le tableau.
J'ai déjà commencé quelques petites choses, ce serait sympa d'y jeter un petit coup d'œil
Merci d'avance
 

Pièces jointes

Dernière édition:
Re : Rechercher une donnée dans un tableau et inscrire une autre dans la même ligne

Salut

pour commencer, il faudrait mettre des noms à tes textbox et boutons
tous tes modules de classes et autres qui sont vides. sont ils necessaires?? si non, supprime, ca va éclaircir ton projet

j'ai nommé deux zones dans la feuille 1: zone "Equipe" C4:C23 qui contient le numéro de la première équipe (celle que tu saisis dans le TextBox 1)
puis la zone "EquipeAdverse" G4:G23

et j'ai mis ce code au clic bouton entrer

Code:
Private Sub entrer_Click()
Dim i As Integer
MsgBox TextBox1.Value

With Sheets("Feuil1").Range("Equipe")
    Set c = .Find(TextBox1.Value)
    If Not c Is Nothing Then
        ligne = c.Row
    End If
    MsgBox ligne
End With
    
    
  End Sub

cette macro ne fait que t'afficher le numéro de l'équipe que tu viens de saisir
et ensuite t'affiche le numéro de la ligne où apparait cette équipe..

ca devrait t'aider pour la suite
 
Re : Rechercher une donnée dans un tableau et inscrire une autre dans la même ligne

Allez.. regarde le fichier joint et testes le
à noter.. quelque soit le tour que tu sélectionnes, les scores sont rentrés dans le Tour3:
parce que pour le moment, je ne sais pas comment aller lire quel BoutonOption est sélectionné..

j'ai renommé tous tes controles..
 

Pièces jointes

Re : Rechercher une donnée dans un tableau et inscrire une autre dans la même ligne

Ce qui donne ceci au final: les scores sont saisis dans le bon onglet

attention. il n'y a pas de control de saisie; cad; si tu ne coches pas le tour..ca plante
 

Pièces jointes

Re : Rechercher une donnée dans un tableau et inscrire une autre dans la même ligne

C'est vraiment très sympa, mais:
S'il ne trouve pas d'équipe 3 par exemple, il prend l'équipe 13. Et ça c'est un gros problème.
pourrais-tu écrire juste une mini phrase pour que je comprenne comment ça marche.
Et encore juste pour que j'apprenne, pour insérer une condition, c'est if then else?
1000 merci déjà pour ce que tu as fais jusqu'ici
 

Pièces jointes

Dernière édition:
Re : Rechercher une donnée dans un tableau et inscrire une autre dans la même ligne

Salut

Ah oui. pardon.. j'avais pas fait attention:
dans la méthode find, il faut préciser que tu recherches la valeur exacte
Dans le code, remplace
Code:
Set c = .Find(CInt(NumEquipe.Value),  LookIn:=xlValues)
par
Code:
Set c = .Find(CInt(NumEquipe.Value), lookat:=xlWhole, LookIn:=xlValues)

pour expliquer le code voir les commentaires dans la PJ
j'ai légèrement modifié le code pour avoir un message lorsque l'équipe n'existe pas
 

Pièces jointes

Re : Rechercher une donnée dans un tableau et inscrire une autre dans la même ligne

comment j'ai appris?
La touche magique F1, un minimum de recherche sur Google et ce forum, et si ca ne suffit pas. question sur ce forum.
Il faut bien se dire que si tu as une question, tu n'es probablement pas le premier à te l'être posée.. et pas le dernier.;-)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour