Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA - Rechercher par contenu variable

Llyod

XLDnaute Nouveau
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
 
Dernière modification par un modérateur:

gilbert_RGI

XLDnaute Barbatruc
Re : VBA - Variable qui concatène 2 variables

si vous faites ce test est-ce ce que vous recherchez ???

VB:
Sub test()
Nom = "Durand" 'à remplacer par la valeur de la textbox1
Prenom = "Marcel" 'à remplacer par la valeur de la textbox2
concatener = "\" & Nom & "." & "\" & Prenom
MsgBox concatener
End Sub
 

Llyod

XLDnaute Nouveau
Re : VBA - Variable qui concatène 2 variables

Merci cela fonctionne mais quand j'essaye dans mon code, j'ai toujours la meme erreur d'incompatibilité de type !
Comment peux t-on faire une recherche par rapport à une variable ?

EDIT : Après test, ca bloque sur cette ligne :
Recherche = Plage.Cells.Find(what:=Concatener, lookat:=xlWhole)
 
Dernière modification par un modérateur:

Llyod

XLDnaute Nouveau
Re : VBA - Rechercher par contenu variable

Bonsoir,

Merci pour le fichier mais es-ce cela cherche vraiment ? Car j'ai essayé de changer de cellule Dupond.Marcel et il me sort qu'il ne l'a trouve pas..D'ailleurs je ne comprend pas la suite du code ou l'on indique ou se trouve la cellule !

MsgBox Recherche & " a été trouvé"
[G3] = "Dupond.Marcel"
MsgBox "recommencer pour voir l'erreur": Exit Sub
suite:

MsgBox "La Variable n'a pas été trouvée"
[G3] = "Dupont.Marcel"

J'ai essayé plusieurs solutions cette aprem, j'ai réussi à faire marcher un code un résolvant tout les problèmes d'incompatibilités. Cependant il me resort tout le temps la valeur Nothing
Je vous mets à disposition le fichier, ca sera plus parlant.
Il s'agit de ce bout de code dans userForm1, et vous pouvez l'essayer en appuyant sur le bouton Joueurs 2.0.


Je vous remercie,
Baptiste
 

Pièces jointes

  • Tournoi.xlsm
    262.7 KB · Affichages: 28
  • Tournoi.xlsm
    262.7 KB · Affichages: 36
Dernière modification par un modérateur:
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…