InputBox - Comment connaître la ligne du choix ?

Le
LANIMAL
Bonjour
Je voudrais utiliser une InputBox pour recueillir le numéro de la ligne
qui doit faire l'objet d'une procédure, avec le code ci-dessous.
-
Choix = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?"
-
Si je clique sur la cellule G25, y a-t-il un code qui me donnerait :

Ligne = .. (avec réponse = 25)

Bien sûr, je pourrais saisir directement le N° de la ligne, mais c'est
pour éviter des erreurs de saisie que je voudrais opérer par un clic,
n'importe où sur la ligne, selon la disposition des infos à considérer.
Merci et bonne journée
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #18340931
Bonjour.

On Error Resume Next
Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row
If Err.Number = 0 Then
Ligne = c.Row
Else
'...
End If

Cordialement.
Daniel

Bonjour
Je voudrais utiliser une InputBox pour recueillir le numéro de la ligne qui
doit faire l'objet d'une procédure, avec le code ci-dessous.
----------------------
Choix = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?"
----------------------
Si je clique sur la cellule G25, y a-t-il un code qui me donnerait :

Ligne = ........ (avec réponse = 25)

Bien sûr, je pourrais saisir directement le N° de la ligne, mais c'est pour
éviter des erreurs de saisie que je voudrais opérer par un clic,
n'importe où sur la ligne, selon la disposition des infos à considérer.
Merci et bonne journée


Daniel.C
Le #18341151
Oups.

Dim Ligne As Long
On Error Resume Next
Do While Ligne = 0
Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row
If Ligne = 0 Then
MsgBox "Veuillez saisir une cellule"
End If
Loop
On Error GoTo 0

Le code boucle jusqu'à ce que l'utilisateur ait choisi une cellule et
cliqué sur OK.

Daniel

Daniel

Bonjour.

On Error Resume Next
Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row
If Err.Number = 0 Then
Ligne = c.Row
Else
'...
End If

Cordialement.
Daniel

Bonjour
Je voudrais utiliser une InputBox pour recueillir le numéro de la ligne qui
doit faire l'objet d'une procédure, avec le code ci-dessous.
----------------------
Choix = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?"
----------------------
Si je clique sur la cellule G25, y a-t-il un code qui me donnerait :

Ligne = ........ (avec réponse = 25)

Bien sûr, je pourrais saisir directement le N° de la ligne, mais c'est pour
éviter des erreurs de saisie que je voudrais opérer par un clic,
n'importe où sur la ligne, selon la disposition des infos à considérer.
Merci et bonne journée




LANIMAL
Le #18341321
Ben oui, Daniel, mais quoi que je fasse, ça boucle !
Et puis, comme je l'expliquais, je souhaite faire une réponse par clic
sur n'importe quelle cellule de la ligne,
selon la disposition des infos du tableau.
Merci pour ton attention.

Daniel.C a écrit :
Oups.

Dim Ligne As Long
On Error Resume Next
Do While Ligne = 0
Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row
If Ligne = 0 Then
MsgBox "Veuillez saisir une cellule"
End If
Loop
On Error GoTo 0

Le code boucle jusqu'à ce que l'utilisateur ait choisi une cellule et
cliqué sur OK.

Daniel

Daniel

Bonjour.

On Error Resume Next
Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row
If Err.Number = 0 Then
Ligne = c.Row
Else
'...
End If

Cordialement.
Daniel

Bonjour
Je voudrais utiliser une InputBox pour recueillir le numéro de la
ligne qui doit faire l'objet d'une procédure, avec le code ci-dessous.
----------------------
Choix = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?"
----------------------
Si je clique sur la cellule G25, y a-t-il un code qui me donnerait :

Ligne = ........ (avec réponse = 25)

Bien sûr, je pourrais saisir directement le N° de la ligne, mais
c'est pour éviter des erreurs de saisie que je voudrais opérer par un
clic,
n'importe où sur la ligne, selon la disposition des infos à considérer.
Merci et bonne journée








Daniel.C
Le #18341521
???
Utilise alors :

Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row

et gère toi-même les cas où l'utilisateur ne saisis rien.

Daniel

Ben oui, Daniel, mais quoi que je fasse, ça boucle !
Et puis, comme je l'expliquais, je souhaite faire une réponse par clic sur
n'importe quelle cellule de la ligne,
selon la disposition des infos du tableau.
Merci pour ton attention.

Daniel.C a écrit :
Oups.

Dim Ligne As Long
On Error Resume Next
Do While Ligne = 0
Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row
If Ligne = 0 Then
MsgBox "Veuillez saisir une cellule"
End If
Loop
On Error GoTo 0

Le code boucle jusqu'à ce que l'utilisateur ait choisi une cellule et
cliqué sur OK.

Daniel

Daniel

Bonjour.

On Error Resume Next
Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row
If Err.Number = 0 Then
Ligne = c.Row
Else
'...
End If

Cordialement.
Daniel

Bonjour
Je voudrais utiliser une InputBox pour recueillir le numéro de la ligne
qui doit faire l'objet d'une procédure, avec le code ci-dessous.
----------------------
Choix = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?"
----------------------
Si je clique sur la cellule G25, y a-t-il un code qui me donnerait :

Ligne = ........ (avec réponse = 25)

Bien sûr, je pourrais saisir directement le N° de la ligne, mais c'est
pour éviter des erreurs de saisie que je voudrais opérer par un clic,
n'importe où sur la ligne, selon la disposition des infos à considérer.
Merci et bonne journée










LANIMAL
Le #18342051
Effectivement, on ne se comprend pas,
je dis bien que je veux répondre par un CLIC.
Dans un tableau assez large, les noms sont en colonne A.
Actuellement j'ai le code suivant :
-------------------------------------
On Error Resume Next
NomATraiter = Application.InputBox _
(prompt:="Cliquer sur le nom à traiter." & vbLf & vbLf _
& "puis 'OK'" _
, Title:="NOM A TRAITER ?" _
LigneNom = Application.WorksheetFunction.Match(NomATraiter, _
Range("A1:A500"), 0)
If Err <> 0 Then Exit Sub
-------------------------------------
Dans ce cas l'InputBox donne en réponse le nom CLIQUÉ en COLONNE A
dont la ligne "LigneNom" est donnée par Application...Match.
Je souhaite obtenir le même résultat, mais en cliquant n'importe quelle
cellule de la ligne du nom (qui est très longue),selon les colonnes
observées.
Merci, Daniel, Peut-être à + ?


Daniel.C a écrit :
???
Utilise alors :

Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row

et gère toi-même les cas où l'utilisateur ne saisis rien.

Daniel

Ben oui, Daniel, mais quoi que je fasse, ça boucle !
Et puis, comme je l'expliquais, je souhaite faire une réponse par clic
sur n'importe quelle cellule de la ligne,
selon la disposition des infos du tableau.
Merci pour ton attention.

Daniel.C a écrit :
Oups.

Dim Ligne As Long
On Error Resume Next
Do While Ligne = 0
Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row
If Ligne = 0 Then
MsgBox "Veuillez saisir une cellule"
End If
Loop
On Error GoTo 0

Le code boucle jusqu'à ce que l'utilisateur ait choisi une cellule et
cliqué sur OK.

Daniel

Daniel

Bonjour.

On Error Resume Next
Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row
If Err.Number = 0 Then
Ligne = c.Row
Else
'...
End If

Cordialement.
Daniel

Bonjour
Je voudrais utiliser une InputBox pour recueillir le numéro de la
ligne qui doit faire l'objet d'une procédure, avec le code ci-dessous.
----------------------
Choix = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." &
vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?"
----------------------
Si je clique sur la cellule G25, y a-t-il un code qui me donnerait :

Ligne = ........ (avec réponse = 25)

Bien sûr, je pourrais saisir directement le N° de la ligne, mais
c'est pour éviter des erreurs de saisie que je voudrais opérer par
un clic,
n'importe où sur la ligne, selon la disposition des infos à
considérer.
Merci et bonne journée














Daniel.C
Le #18342251
Est-ce que tu as testé mon code ? Il te renvoie le numéro de ligne de
la cellule sur laquelle tu as cliqué. Si tu cliques sur G25, la
variable Ligne est égale à 25. Ce que tu demandais.
Daniel

Effectivement, on ne se comprend pas,
je dis bien que je veux répondre par un CLIC.
Dans un tableau assez large, les noms sont en colonne A.
Actuellement j'ai le code suivant :
-------------------------------------
On Error Resume Next
NomATraiter = Application.InputBox _
(prompt:="Cliquer sur le nom à traiter." & vbLf & vbLf _
& "puis 'OK'" _
, Title:="NOM A TRAITER ?" _
LigneNom = Application.WorksheetFunction.Match(NomATraiter, _
Range("A1:A500"), 0)
If Err <> 0 Then Exit Sub
-------------------------------------
Dans ce cas l'InputBox donne en réponse le nom CLIQUÉ en COLONNE A
dont la ligne "LigneNom" est donnée par Application...Match.
Je souhaite obtenir le même résultat, mais en cliquant n'importe quelle
cellule de la ligne du nom (qui est très longue),selon les colonnes
observées.
Merci, Daniel, Peut-être à + ?


Daniel.C a écrit :
???
Utilise alors :

Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row

et gère toi-même les cas où l'utilisateur ne saisis rien.

Daniel

Ben oui, Daniel, mais quoi que je fasse, ça boucle !
Et puis, comme je l'expliquais, je souhaite faire une réponse par clic sur
n'importe quelle cellule de la ligne,
selon la disposition des infos du tableau.
Merci pour ton attention.

Daniel.C a écrit :
Oups.

Dim Ligne As Long
On Error Resume Next
Do While Ligne = 0
Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row
If Ligne = 0 Then
MsgBox "Veuillez saisir une cellule"
End If
Loop
On Error GoTo 0

Le code boucle jusqu'à ce que l'utilisateur ait choisi une cellule et
cliqué sur OK.

Daniel

Daniel

Bonjour.

On Error Resume Next
Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row
If Err.Number = 0 Then
Ligne = c.Row
Else
'...
End If

Cordialement.
Daniel

Bonjour
Je voudrais utiliser une InputBox pour recueillir le numéro de la ligne
qui doit faire l'objet d'une procédure, avec le code ci-dessous.
----------------------
Choix = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?"
----------------------
Si je clique sur la cellule G25, y a-t-il un code qui me donnerait :

Ligne = ........ (avec réponse = 25)

Bien sûr, je pourrais saisir directement le N° de la ligne, mais c'est
pour éviter des erreurs de saisie que je voudrais opérer par un clic,
n'importe où sur la ligne, selon la disposition des infos à considérer.
Merci et bonne journée
















LANIMAL
Le #18342391
Oui, je l'avais essayé, tel quel.
Je vais reprendre de plus près, vers 14h
car maintenant je dois m'absenter.
Merci

Daniel.C a écrit :
Est-ce que tu as testé mon code ? Il te renvoie le numéro de ligne de la
cellule sur laquelle tu as cliqué. Si tu cliques sur G25, la variable
Ligne est égale à 25. Ce que tu demandais.
Daniel

Effectivement, on ne se comprend pas,
je dis bien que je veux répondre par un CLIC.
Dans un tableau assez large, les noms sont en colonne A.
Actuellement j'ai le code suivant :
-------------------------------------
On Error Resume Next
NomATraiter = Application.InputBox _
(prompt:="Cliquer sur le nom à traiter." & vbLf & vbLf _
& "puis 'OK'" _
, Title:="NOM A TRAITER ?" _
LigneNom = Application.WorksheetFunction.Match(NomATraiter, _
Range("A1:A500"), 0)
If Err <> 0 Then Exit Sub
-------------------------------------
Dans ce cas l'InputBox donne en réponse le nom CLIQUÉ en COLONNE A
dont la ligne "LigneNom" est donnée par Application...Match.
Je souhaite obtenir le même résultat, mais en cliquant n'importe
quelle cellule de la ligne du nom (qui est très longue),selon les
colonnes observées.
Merci, Daniel, Peut-être à + ?


Daniel.C a écrit :
???
Utilise alors :

Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row

et gère toi-même les cas où l'utilisateur ne saisis rien.

Daniel

Ben oui, Daniel, mais quoi que je fasse, ça boucle !
Et puis, comme je l'expliquais, je souhaite faire une réponse par
clic sur n'importe quelle cellule de la ligne,
selon la disposition des infos du tableau.
Merci pour ton attention.

Daniel.C a écrit :
Oups.

Dim Ligne As Long
On Error Resume Next
Do While Ligne = 0
Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row
If Ligne = 0 Then
MsgBox "Veuillez saisir une cellule"
End If
Loop
On Error GoTo 0

Le code boucle jusqu'à ce que l'utilisateur ait choisi une cellule
et cliqué sur OK.

Daniel

Daniel

Bonjour.

On Error Resume Next
Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." &
vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row
If Err.Number = 0 Then
Ligne = c.Row
Else
'...
End If

Cordialement.
Daniel

Bonjour
Je voudrais utiliser une InputBox pour recueillir le numéro de la
ligne qui doit faire l'objet d'une procédure, avec le code
ci-dessous.
----------------------
Choix = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." &
vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?"
----------------------
Si je clique sur la cellule G25, y a-t-il un code qui me donnerait :

Ligne = ........ (avec réponse = 25)

Bien sûr, je pourrais saisir directement le N° de la ligne, mais
c'est pour éviter des erreurs de saisie que je voudrais opérer
par un clic,
n'importe où sur la ligne, selon la disposition des infos à
considérer.
Merci et bonne journée




















LANIMAL
Le #18344541
Voilà l'erreur :
Je travaille avec un dinosaure (Excel 2000)! ! !
qui ne comprend pas ...., Type:=8).Row,
du moins l'aide n'en parle pas,
et l'exécution de ton code me répond invariablement Ligne = 0
Je vais devoir passer à la caisse de Microsoft un de ces jours
pour rajeunir !

En attendant, j'ai eu l'idée de passer l'annonce :
"Sélectionner une cellule de la ligne à traiter."
à l'aide d'une TextBox placée dans un volet figé de la feuille,
de détecter la sélection par un code "SelectionChange"
et d'effacer la TextBox dans la suite du code.
Mais je ne sais pas comment écrire le code qui réalise cet effacement.
Alors, peut-être toi, tu sauras me dire ça,
...ou une autre solution...
Encore merci pour ton attention... persistante.
LANIMAL


Daniel.C a écrit :
Est-ce que tu as testé mon code ? Il te renvoie le numéro de ligne de la
cellule sur laquelle tu as cliqué. Si tu cliques sur G25, la variable
Ligne est égale à 25. Ce que tu demandais.
Daniel

Effectivement, on ne se comprend pas,
je dis bien que je veux répondre par un CLIC.
Dans un tableau assez large, les noms sont en colonne A.
Actuellement j'ai le code suivant :
-------------------------------------
On Error Resume Next
NomATraiter = Application.InputBox _
(prompt:="Cliquer sur le nom à traiter." & vbLf & vbLf _
& "puis 'OK'" _
, Title:="NOM A TRAITER ?" _
LigneNom = Application.WorksheetFunction.Match(NomATraiter, _
Range("A1:A500"), 0)
If Err <> 0 Then Exit Sub
-------------------------------------
Dans ce cas l'InputBox donne en réponse le nom CLIQUÉ en COLONNE A
dont la ligne "LigneNom" est donnée par Application...Match.
Je souhaite obtenir le même résultat, mais en cliquant n'importe
quelle cellule de la ligne du nom (qui est très longue),selon les
colonnes observées.
Merci, Daniel, Peut-être à + ?


Daniel.C a écrit :
???
Utilise alors :

Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row

et gère toi-même les cas où l'utilisateur ne saisis rien.

Daniel

Ben oui, Daniel, mais quoi que je fasse, ça boucle !
Et puis, comme je l'expliquais, je souhaite faire une réponse par
clic sur n'importe quelle cellule de la ligne,
selon la disposition des infos du tableau.
Merci pour ton attention.

Daniel.C a écrit :
Oups.

Dim Ligne As Long
On Error Resume Next
Do While Ligne = 0
Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row
If Ligne = 0 Then
MsgBox "Veuillez saisir une cellule"
End If
Loop
On Error GoTo 0

Le code boucle jusqu'à ce que l'utilisateur ait choisi une cellule
et cliqué sur OK.

Daniel

Daniel

Bonjour.

On Error Resume Next
Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." &
vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row
If Err.Number = 0 Then
Ligne = c.Row
Else
'...
End If

Cordialement.
Daniel

Bonjour
Je voudrais utiliser une InputBox pour recueillir le numéro de la
ligne qui doit faire l'objet d'une procédure, avec le code
ci-dessous.
----------------------
Choix = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." &
vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?"
----------------------
Si je clique sur la cellule G25, y a-t-il un code qui me donnerait :

Ligne = ........ (avec réponse = 25)

Bien sûr, je pourrais saisir directement le N° de la ligne, mais
c'est pour éviter des erreurs de saisie que je voudrais opérer
par un clic,
n'importe où sur la ligne, selon la disposition des infos à
considérer.
Merci et bonne journée




















michdenis
Le #18345051
Te retourne le numéro de la ligne du coin supérieur gauche
que l'usager a sélectionné à l'aide de la procédure.

'----------------------------
Sub test()

Dim X As Range
On Error Resume Next
Set X = Application.InputBox(Prompt:="Cliquer sur une cellule", _
Type:=8)
If Err <> 0 Then
MsgBox "L'usager à cliquer sur annuler."
Exit Sub
Else
MsgBox X(1, 1).Row
End If
End Sub
'----------------------------



"LANIMAL"
Voilà l'erreur :
Je travaille avec un dinosaure (Excel 2000)! ! !
qui ne comprend pas ...., Type:=8).Row,
du moins l'aide n'en parle pas,
et l'exécution de ton code me répond invariablement Ligne = 0
Je vais devoir passer à la caisse de Microsoft un de ces jours
pour rajeunir !

En attendant, j'ai eu l'idée de passer l'annonce :
"Sélectionner une cellule de la ligne à traiter."
à l'aide d'une TextBox placée dans un volet figé de la feuille,
de détecter la sélection par un code "SelectionChange"
et d'effacer la TextBox dans la suite du code.
Mais je ne sais pas comment écrire le code qui réalise cet effacement.
Alors, peut-être toi, tu sauras me dire ça,
...ou une autre solution...
Encore merci pour ton attention... persistante.
LANIMAL


Daniel.C a écrit :
Est-ce que tu as testé mon code ? Il te renvoie le numéro de ligne de la
cellule sur laquelle tu as cliqué. Si tu cliques sur G25, la variable
Ligne est égale à 25. Ce que tu demandais.
Daniel

Effectivement, on ne se comprend pas,
je dis bien que je veux répondre par un CLIC.
Dans un tableau assez large, les noms sont en colonne A.
Actuellement j'ai le code suivant :
-------------------------------------
On Error Resume Next
NomATraiter = Application.InputBox _
(prompt:="Cliquer sur le nom à traiter." & vbLf & vbLf _
& "puis 'OK'" _
, Title:="NOM A TRAITER ?" _
LigneNom = Application.WorksheetFunction.Match(NomATraiter, _
Range("A1:A500"), 0)
If Err <> 0 Then Exit Sub
-------------------------------------
Dans ce cas l'InputBox donne en réponse le nom CLIQUÉ en COLONNE A
dont la ligne "LigneNom" est donnée par Application...Match.
Je souhaite obtenir le même résultat, mais en cliquant n'importe
quelle cellule de la ligne du nom (qui est très longue),selon les
colonnes observées.
Merci, Daniel, Peut-être à + ?


Daniel.C a écrit :
???
Utilise alors :

Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row

et gère toi-même les cas où l'utilisateur ne saisis rien.

Daniel

Ben oui, Daniel, mais quoi que je fasse, ça boucle !
Et puis, comme je l'expliquais, je souhaite faire une réponse par
clic sur n'importe quelle cellule de la ligne,
selon la disposition des infos du tableau.
Merci pour ton attention.

Daniel.C a écrit :
Oups.

Dim Ligne As Long
On Error Resume Next
Do While Ligne = 0
Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." & vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row
If Ligne = 0 Then
MsgBox "Veuillez saisir une cellule"
End If
Loop
On Error GoTo 0

Le code boucle jusqu'à ce que l'utilisateur ait choisi une cellule
et cliqué sur OK.

Daniel

Daniel

Bonjour.

On Error Resume Next
Ligne = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." &
vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?", Type:=8).Row
If Err.Number = 0 Then
Ligne = c.Row
Else
'...
End If

Cordialement.
Daniel

Bonjour
Je voudrais utiliser une InputBox pour recueillir le numéro de la
ligne qui doit faire l'objet d'une procédure, avec le code
ci-dessous.
----------------------
Choix = Application.InputBox _
(prompt:="Cliquer sur une cellule de la ligne à traiter." &
vbLf _
& "puis 'OK'", Title:="LIGNE A TRAITER ?"
----------------------
Si je clique sur la cellule G25, y a-t-il un code qui me donnerait :

Ligne = ........ (avec réponse = 25)

Bien sûr, je pourrais saisir directement le N° de la ligne, mais
c'est pour éviter des erreurs de saisie que je voudrais opérer
par un clic,
n'importe où sur la ligne, selon la disposition des infos à
considérer.
Merci et bonne journée




















michdenis
Le #18345101
J'allais oublier de mentionner le plus important :
Excel 2000 n'a rien à voir avec les problèmes que tu
éprouves avec Application.InputBox.
Publicité
Poster une réponse
Anonyme