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

Créer une discussion

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 !

S'inscrire
N

Nonno 94

XLDnaute Occasionnel
Bonjour le Forum,

je viens demander votre aide pour résoudre la difficulté indiquée en intitulé.

J'utilise le code suivant pour sélectionner une plage de cellules sur une ligne dont je saisis le numéro dans l'InputBox.

Code: 
Private Sub CommandButton2_Click()
Dim nom$, a As Range
1 nom = InputBox("Saisissez le Numéro de la Ligne", "Modification d'une Saisie")


Set a = [AD6:AD304].Find(nom, LookIn:=xlValues, LookAt:=xlWhole)

If a Is Nothing Then MsgBox "Cette ligne n'a pas été saisie ! Veuillez recommencer.":     GoTo 1
On Error Resume Next 'si a n'est pas une ligne saisie
    a.Select
               
Intersect(a.EntireRow, Range("A:D")).Select        'Colonnes("A à D")

    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 11
        ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    
End Sub

Comment le compléter pour que la cellule "A2" de la feuille prenne la valeur saisie dans l'InputBox ?

Ainsi, si je saisis "10" dans l'InputBox, la cellule "A2" doit prendre la valeur "10".
Toutes mes tentatives pour parvenir à ce résultat ayant (lamentablement) échoué, je fais appel à votre expertise pour m'indiquer quelle modification apporter à ce code.

Je vous remercie pour vos réponses.
Cordialement.

Nonno 94.
 
Trier par date Trier par votes
Re : Récupérer dans une cellule la valeur saisie dans l'InputBox

Bonjour,

peut être pas tout compris, mais essaie ceci :
Code: 
Range("A2").Value = InputBox("saisie ???")

A noter dans ton code, les "ActiveWindow.ScrollColumn = 11" semblent inutiles...

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : Récupérer dans une cellule la valeur saisie dans l'InputBox

Bonjour Pierrot et merci pour la réponse,

celle-ci ne fonctionne malheureusement pas.

Afin de rendre ma demande + compréhensible, je te fais parvenir en PJ mon fichier d'essai.

A+ j'espère.

Nonno 94.
 
Vote positif 0 Vote négatif
Re : Récupérer dans une cellule la valeur saisie dans l'InputBox

Bonjour


En ajoutant la référence de la feuille, cela semble OK
(Ligne présente dans le code du CommanButton2)
Set a = ActiveSheet.[AD6:AD304].Find(nom, LookIn:=xlValues, LookAt:=xlWhole)
 
Vote positif 0 Vote négatif
Re : Récupérer dans une cellule la valeur saisie dans l'InputBox

Bonjour "temps qui .....passe" et merci pour la réponse.

Malheuresement, "cela n'est pas OK" car le numéro de la ligne saisi dans l'InputBox n'apparaît toujours pas dans la cellul "A2" !
Peut-être la lecture du fichier "Essai" joint au message #3 permettra-t-elle une meilleure compréhension de ma demande ?.

Dans l'attente, cordialement.

Nonno 94.
 
Vote positif 0 Vote négatif
Re : Récupérer dans une cellule la valeur saisie dans l'InputBox

Bonjour de nouveau

J'ai testé la modification que je propose avec ton fichier joint

et cela sélectionne les cellules A : D avec le numéro de ligne saisi dans l'inputbox.

(Sans le ActiveSheet il ne se passait rien)
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Récupérer dans une cellule la valeur saisie dans l'InputBox

Je parle de ce code

Code: 
Private Sub CommandButton2_Click()
Dim nom$, a As Range
1 nom = InputBox("Saisissez le Numéro de la Ligne", "Modification d'une Saisie")


Set a = [AD6:AD304].Find(nom, LookIn:=xlValues, LookAt:=xlWhole)

If a Is Nothing Then MsgBox "Cette ligne n'a pas été saisie ! Veuillez recommencer.":     GoTo 1
On Error Resume Next 'si a n'est pas une ligne saisie
    a.Select
               
Intersect(a.EntireRow, Range("A:D")).Select        'Colonnes("A à D")

End Sub
 
Vote positif 0 Vote négatif
Re : Récupérer dans une cellule la valeur saisie dans l'InputBox

Bonjour Nonno 94, Pierrot, TempusFugit,

Hum, si vous voulez vraiment entrer une valeur en A2, ôtez donc la protection de la feuille !!

Code: 
ActiveSheet.Unprotect
[A2] = a
ActiveSheet.Protect
A+
 
Vote positif 0 Vote négatif
Re : Récupérer dans une cellule la valeur saisie dans l'InputBox

Bonjour de nouveau

En ajoutant cela
Code: 
Range("A2") = nom
avant
Code: 
Intersect(a.EntireRow, Range("A:D")).Select        'Colonnes("A à D")
Cela donne ce que tu veux non ?
 
Vote positif 0 Vote négatif
Re : Récupérer dans une cellule la valeur saisie dans l'InputBox

Re,

les modifications proposées répondent parfaitement à ma demande.

Merci messieurs et bonne journée.

A + peut-être pour de ......nouvelles "aventures" ?
Nonno 94.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

D
  • Résolu(e)
Microsoft 365 Récupérer la valeur d'une cellule d'un autre fichier
Réponses
7
Affichages
326
Diane272727
D
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
137
sylvanu
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
416
Webperegrino
W
D
  • Question Question
Microsoft 365 Récupérer une valeur présente dans un autre fichier dont le chemin et le nom est présent dans une cellule
Réponses
6
Affichages
177
wDog66
J
  • Question Question
XL 2019 Borné une extraction par date
2
Réponses
22
Affichages
3 K
jui42
J
S
  • Question Question
XL 2019 Bloquer la saisie dans une cellule si
Réponses
11
Affichages
723
Phil69970
A
  • Question Question
Microsoft 365 créer un lien vers une cellule dont la ligne est fluctuante
Réponses
3
Affichages
143
AtTheOne
  • Question Question
XL 2021 VBA Ajout d'une valeur en heure dans une cellule
2
Réponses
21
Affichages
862
TooFatBoy
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
316
Phil69970
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
930
fanfan38
C
  • Question Question
Microsoft 365 je cherche un code excel pour copier la couleur d'une cellule, à toutes les cellules qui ont la même valeur dans mon tableau.
Réponses
1
Affichages
302
sylvanu
P
  • Résolu(e)
Microsoft 365 Plafonner la saisie d'une valeur dans une cellule selon le contenu d'une autre
Réponses
6
Affichages
480
pat66
P
P
  • Question Question
XL 2019 Bloquer la saisie dans une colonne sous condition
Réponses
1
Affichages
556
sylvanu
P
  • Résolu(e)
Microsoft 365 Rechercher une valeur d'une cellule à partir d'un nom de feuille
Réponses
2
Affichages
405
paulng
P
T
  • Résolu(e)
Microsoft 365 Chercher si dans une plage de cellule la valeur d'une autre cellule est présente
Réponses
4
Affichages
388
TomJoad
T
A
  • Question Question
XL 2021 récupérer la valeur d'une variable en fin de boucle dans une autre procédure
Réponses
5
Affichages
462
Attila451
A
T
  • Résolu(e)
Microsoft 365 Insérer une image DANS une cellule
Réponses
12
Affichages
1 K
Thomi
T
V
  • Question Question
XL pour MAC Changer de cellule automatiquement après avoir entré une valeur dans la cellule.
Réponses
7
Affichages
841
TooFatBoy
F
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle selon la référence d'une cellule
Réponses
3
Affichages
660
filiph79
F
  • Résolu(e)
Microsoft 365 Remplir une cellule avec la valeur d'une autre sous condition
Réponses
2
Affichages
470
Droopyougo
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…