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.
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.
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.