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

Récupérer dans une cellule la valeur saisie dans l'InputBox

N

Nonno 94

XLDnaute Occasionnel
Bonsoir le Forum,

Je viens vous soumettre le problème suivant que je n'arrive pas à résoudre; à savoir récupérer dans une cellule la valeur saisie dans une Inputbox pour la comparer avec la valeur trouvée (sélectionnée) par celle-ci et m'assurer que ces 2 valeurs sont bien égales.
Ces valeurs cherchées dans une colonne sont des noms (et des prénoms) et je voudrais si je saisis le nom "Pierre" (prénom Jean) que la macro ne sélectionne pas le nom "Dupond" (prénom Pierre).
Je pense donc que pour cela il faut comparer le nom saisi dans l'InputBox avec celui qui va être sélectionné et afficher un message d'erreur si dans l'exemple ci-dessus le Prénom "Pierre" est sélectionné et pas le Nom "Pierre".



Le code que j'utilise est le suivant :

Code: 
Private Sub CommandButton31_Click()

  On Error GoTo GestErreur

noms = InputBox("Saisissez le Nom du Locataire", "Sélection du Locataire", xpos:=300, ypos:=300)
Range("G6").Select
a = [G6:G57].Find(What:=noms, after:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Address
    If a = "" Then
    
GestErreur:
  MsgBox "Ce Nom n'existe pas dans la Liste des Locataires!"
    
    End
    Else

    Range(a).Select
    
    
    End If

End Sub

Peut-être est-il plus simple d'afficher le message d"erreur tant que le Nom et le Prénom n'ont pas été saisis correctement ?

Je vous remercie pour vos réponses et vous souhaite une bonne soirée.

Cordialement.

Nonno 94.
 
Dernière édition:
Trier par date Trier par votes

laurent950

XLDnaute Barbatruc
Re : Récupérer dans une cellule la valeur saisie dans l'InputBox

Bonsoir Nonno 94,

je sais pas si cela correspond à cela ?

Code :

Private Sub CommandButton31_Click()

On Error GoTo GestErreur

noms = InputBox("Saisissez le Nom du Locataire", "Sélection du Locataire", xpos:=300, ypos:=300)
Range("G6").Select
a = [G6:G57].Find(What:=noms, after:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Address
If a = "" And noms = "" Then ' a = la recherche dans la liste et noms la variable qui
' qui contient le noms saisie de l 'iputbox (Enfin and =
' et entre les deux le comparateur absolu si ls deux
' deux condition sont réuni "la condition est vrais")

GestErreur:
MsgBox "Ce Nom n'existe pas dans la Liste des Locataires!"

End
Else

Range(a).Select


End If

End Sub

Laurent
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Re : Récupérer dans une cellule la valeur saisie dans l'InputBox

Bonsoir,

Code: 
Private Sub CommandButton31_Click()
Dim nom$, a As Range
nom = InputBox("Saisissez le Nom du Locataire", "Sélection du Locataire", xpos:=300, ypos:=300)
Set a = [G6:G57].Find(nom, LookIn:=xlValues, LookAt:=xlPart)
If a Is Nothing Then MsgBox "Ce Nom n'existe pas dans la Liste des Locataires!": Exit Sub
a.Select
End Sub
A+
 
Vote positif 0 Vote négatif
N

Nonno 94

XLDnaute Occasionnel
Re : Récupérer dans une cellule la valeur saisie dans l'InputBox

Bonsoir Laurent950 et Job 75 et merci pour vos réponses.

Celles-ci ne correspondent malheureusement pas à ma demande car vos codes sélectionnent les mots ou parties de mots présents dans la colonne.
Ainsi, dans la liste suivante,
- si je saisis "Ba"dans l'InputBox, je vais sélectionner "Bachelin" alors que je voudrais que s'affiche un message d'erreur car "Bailly" correspond également à la saisie dans l'InputBox.
- si je saisis "Fr", je vais sélectionner "Bachelin" parceque le prénom de Bachelin est "François".
- si je saisis "et", je vais sélectionner "Bachelin" parceque le "Locataire est "Bachelin Frank et Karine.

Dans ces 3 cas, la saisie dans l'Inputbox est erronée et ne devrait pas permettre de sélectionner un "Locataire" !


Code: 
Bailly Christelle
Bachelin Frank et Karine
Ferreira Sandrine
Lala Arf
Lala Arf 2

Aussi, ce que souhaiterais est d'être obligé de saisir le Nom et le Prénom pour être sur de bien sélectionner le "Locataire" voulu.
Dans le cas d'une saisie incomplète, un message d'erreur s"afficherait indiquant que ce nom n'existe pas dans la liste.

Est-ce possible ?
Faut-il comparer (tester) la Saisie dans l'InputBox avec le Locataire sélectionné et afficher un message d'erreur tant qu'ils ne sont pas identiques; à savoir Nom et Prénom saisis = Nom et Prénom du "Locataire" sélectionné dans la colonne ?

Bonne soirée.
Nonno 94.
 
Dernière édition:
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Re : Récupérer dans une cellule la valeur saisie dans l'InputBox

Re Nonno 94,

Comme maintenant nous savons que le nom est toujours avant le prénom avec l'espace comme séparateur :

Code: 
Private Sub CommandButton31_Click()
Dim nom$, a As Range
nom = InputBox("Saisissez le Nom du Locataire", "Sélection du Locataire", xpos:=300, ypos:=300)
Set a = [G6:G57].Find(nom & " *", LookIn:=xlValues, LookAt:=xlWhole)
If a Is Nothing Then MsgBox "Ce Nom n'existe pas dans la Liste des Locataires!": Exit Sub
a.Select
End Sub
Edit : Bien évidemment si vous voulez qu'on entre nom+prénom (laborieux...), il suffit d'utiliser :

Code: 
Private Sub CommandButton31_Click()
Dim nom$, a As Range
nom = InputBox("Saisissez le Nom du Locataire", "Sélection du Locataire", xpos:=300, ypos:=300)
Set a = [G6:G57].Find(nom, LookIn:=xlValues, LookAt:xlWhole)
If a Is Nothing Then MsgBox "Ce Nom n'existe pas dans la Liste des Locataires!": Exit Sub
a.Select
End Sub
A+
 
Dernière édition:
Vote positif 0 Vote négatif
N

Nonno 94

XLDnaute Occasionnel
Re : Récupérer dans une cellule la valeur saisie dans l'InputBox

Re Job 75,

je voulais peut-être prolonger le "suspense" ?
Bravo pour ce code qui permet de sélectionner le Nom voulu.
Mais, quid si 2 locataires portent le même nom ?
La liste n'est pas classée dans l'ordre alphabétique mais dans un ordre chronologique).
De ce fait, si Dupont Jean se trouve sur la ligne 1, Dupont Pierre sur la 50 (caché en bas de page) et si je saisis Dupont ignorant qu'il y a 2 Dupont dans la liste, je ne sélectionnerai jamais Dupont Pierre !

Une solution "à la Nonno" = renommer Dupont Pierre Dupond Pierre !
Une solution "informatiquement" correcte me semble s'imposer !

A+
 
Dernière édition:
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Re : Récupérer dans une cellule la valeur saisie dans l'InputBox

Bonjour Nonno 94, le fil,

Nonno 94 à dit:
Mais, quid si 2 locataires portent le même nom ? (...)

Une solution "informatiquement" correcte me semble s'imposer !
Cliquez pour agrandir...

Au lieu de se casser la tête avec du code VBA (bancal) utiliser la commande Rechercher d'Excel (Ctrl+F).

Elle a vraiment tout ce qu'il faut pour trouver toutes les cellules qui répondent au même critère.

A+
 
Vote positif 0 Vote négatif
N

Nonno 94

XLDnaute Occasionnel
Re : Récupérer dans une cellule la valeur saisie dans l'InputBox

Bonjour Job 75,

il est exact que la fonction "Recherche" me conviendrait parfaitement; à condition que la liste soit triée dans l'ordre alphabétique.
Ce n'est pas le cas. Aussi, je vais utiliser un des 2 codes transmis.

Encore merci et très bonne journée.
Cordialement.

Nonno 94.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

A
  • Question
Microsoft 365 règles pour modifier des noms dans un colonne
Réponses
5
Affichages
250
JHA
J
A
  • Question
XL 2021 récupérer la valeur d'une variable en fin de boucle dans une autre procédure
Réponses
5
Affichages
346
Attila451
A
S
  • Résolu(e)
Microsoft 365 Récupérer la date dans un calendrier
Réponses
2
Affichages
325
sebastien176
S
J
  • Question
XL 2019 Recopier valeur cellule plage nommée dans autre feuille sans VBA
Réponses
7
Affichages
740
joel31
J
  • Question
Microsoft 365 Conserver la valeur de ma variable pour l'utiliser dans un autre code
Réponses
3
Affichages
279
mapomme
  • Résolu(e)
Microsoft 365 Remplir une cellule avec la valeur d'une autre sous condition
Réponses
2
Affichages
214
Droopyougo
H
  • Question
Power Query Récupérer une donnée dans des classeurs pour afficher le résultat dans un autre classeur
Réponses
5
Affichages
438
hijackfr
H
P
  • Question
Microsoft 365 Excel - Mettre une date dans une autre cellule en fonction de....
Réponses
8
Affichages
514
JHA
J
  • Question
XL 2021 VBA Ajout d'une valeur en heure dans une cellule
2
Réponses
21
Affichages
570
TooFatBoy
B
  • Question
Autres Renvoyer un nom dans une cellule en fonction d'une résultat dans une autre
Réponses
8
Affichages
541
BabyDolphin30
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…