Bonsoir,
Je reviens encore vers vous pour savoir si je peux concaténer 2 variables de texte en 1 variable. Je suis entrain de simplifier au maximum la rentrée des joueurs pour un tournoi. Dans cet userform, on peux soit afficher un joueur et faire les modifications soit remplir des textbox pour que le joueur soit ajouté dans le tableau.
Cette partie est achevée, je souhaite lorsque je créai un joueur, avoir une vérification dans mon tableau pour ne pas qu'il soit crée 2 fois. J'ai donc concaténer dans une colonne du tableau, le "Nom". "Prénom". Ensuite j'ai voulu faire une recherche mais mon code bloque à la concaténation des 2 variables.
Après avoir regardé sur les forums, je trouve presque rien ou que avec variables de type numériques, es-ce que cela est possible avec du texte ? Y'a t-il une méthode plus simple pour faire cette recherche ?
EDIT: J'obtiens une "Erreur de compilation: Incompatibilité de type"
Je vous remercie,
Baptiste
Je reviens encore vers vous pour savoir si je peux concaténer 2 variables de texte en 1 variable. Je suis entrain de simplifier au maximum la rentrée des joueurs pour un tournoi. Dans cet userform, on peux soit afficher un joueur et faire les modifications soit remplir des textbox pour que le joueur soit ajouté dans le tableau.
Cette partie est achevée, je souhaite lorsque je créai un joueur, avoir une vérification dans mon tableau pour ne pas qu'il soit crée 2 fois. J'ai donc concaténer dans une colonne du tableau, le "Nom". "Prénom". Ensuite j'ai voulu faire une recherche mais mon code bloque à la concaténation des 2 variables.
Après avoir regardé sur les forums, je trouve presque rien ou que avec variables de type numériques, es-ce que cela est possible avec du texte ? Y'a t-il une méthode plus simple pour faire cette recherche ?
EDIT: J'obtiens une "Erreur de compilation: Incompatibilité de type"
Rechercher dans Feuil1 si le nom existe déjà -->
Dim Concatener As String, Plage As Range, Nom As String, Prenom As String, Recherche As String
Set Plage = ActiveSheet.Columns(7)
Nom = TextBox1.Value
Prenom = TextBox2.Value
Concatener = Nom & "." & Prenom
Recherche = Plage.Cells.Find(what:=Concatener, lookat:=xlWhole)
'Condition remplissage pour écrire sur la feuille suivante -->
If (ComboBox1.Value = "" And TextBox1.Value <> "" And TextBox2.Value <> "" And TextBox3.Value <> "" And TextBox4.Value <> "" And Recherche Is Nothing) Then
Worksheets("Feuil1").Activate
'Valeur de la case Nom dans le tableau
Dim a As Integer
With Worksheets("Feuil1")
'Déclaration de la variable "der_cell"
a = Columns("C").Find("", Range("C1"), xlValues).Row 'variable = recherche de la dernière ligne de la colonne "C"
Cells(a, "C") = TextBox1
...
Je vous remercie,
Baptiste
Dernière modification par un modérateur: