Code VBA, transfert d'une textbox dans cellule, colonne et page spécifique

Bonsoir,

Je débute en vba et je rencontre un souci:

Je souhaite enregistrer le résultat de ma textbox selon le choix de mes combobox (nom joueur, tournois, semaine), dans une feuille définie, si mon tournoi est une rixe (choix combobox tournois, alors le résultat doit y être enregistré sur la ligne du joueur (choix combobox nom joueur) et dans la colonne de la bonne semaine (choix combobox semaine).

La textbox ne reçoit que des nombres

Je vous remercie par avance, pour une solution trouvée

Cordialement,

Amalys

Voici ce que j'ai déjà fait :

Private Sub ComboBox_Joueurs_Change()
If Not trouveCellule Is Nothing Then
TextBox_RESULTAT = trouveCellule
End If
End Sub

Private Sub ComboBox_Semaine_Change()
If Not trouveCellule Is Nothing Then
TextBox_RESULTAT = trouveCellule
End If
End Sub

Private Sub ComboBox_Tournois_Change()

Dim actWsh As String
actWsh = ComboBox_Tournois.Text
Worksheets(actWsh).Select
End Sub

Private Sub CommandButton_Fermer_Click()
Unload Me
End Sub

Private Sub CommandButton_valider_Click()
If Not trouveCellule Is Nothing Then
trouveCellule = CDbl(TextBox_RESULTAT)
End If
End Sub

Private Sub UserForm_Initialize()

'Affiche les semaines
ComboBox_Semaine.List = Application.WorksheetFunction.Transpose([_BASE_SEMAINE])

'Affiche les tournois dans combobox
Me.ComboBox_Tournois.Clear
For I = 1 To Sheets.Count
Me.ComboBox_Tournois.AddItem Sheets(I).Name
Next I
Me.ComboBox_Tournois.Value = ActiveSheet.Name
End Sub

Function trouveCellule() As Range
'Enregistrement de la ligne et de la colonne

Dim ws_data As Worksheets
Dim ligne As Integer, colonne As Integer
Dim c As Range

'Recherche de noms des joueurs

For Each c In [_BASE_JOUEURS]
If c = combobox_base_semaine Then ligne = c.Row
Next

'Rechrche des semaines
For Each c In [_BASE_SEMAINE]

If c = combobox_base_semaine Then colonne = c.Column
'Recherche l'onglet
For Each s In ActiveWorkbook.Sheets
Next s

Next
'si une ligne et une colonne ont été trouvées, nous retournons les coordonnées de la cellule de jonction
If ligne > 0 And colonne > 0 Then
Set trouveCellule = Cells(ligne, colonne)
'Sinon nous retournons en cellule d'erreur
Else
Set trouveCellule = Nothing

End If
End Function

Bonjour Amalys et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]
qui vous aidera dans vos demandes et réponses sur ce forum et notamment :

• Pour plus de lisibilité, utilisez le bouton </> pour insérer vos codes VBA (et si possible aussi pour vos formules Excel)

Sinon sans fichier, cela va être compliqué d'essayer et de tester

Merci de votre compréhension et de votre participation

Cordialement

Bonjour Bruno,

J'ai lu la charte hier, avant de poster ma demande.

Je viens de me présenter, désolée, trop pressée d'avoir une solution à mon problème.

Quant au fichier, je n'ai pas pu le joindre, trop lourd…. une soluce à m'apporter pour l'envoyer, je suis preneuse, merci ;-)

Re,

Sans connaitre la configuration du fichier, ce sera quasi impossible de vous aider, navré.

Il nous suffit d'avoir votre fichier avec 1 ou 2 ligne

A+

J'ai allégé le fichier, sachant, qu'il y a une 100taines de noms de joueurs, que les semaines peuvent aller jusque fin 2022

Merci de votre retour et de votre aide

Bien cordialement

Amalys