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
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
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
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.
DanielBonjour
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
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
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.
DanielBonjour
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
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
DanielBonjour.
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.
DanielBonjour
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
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
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
DanielBonjour.
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.
DanielBonjour
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
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
DanielBonjour.
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.
DanielBonjour
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
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
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
DanielBonjour.
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.
DanielBonjour
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
???
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.
DanielBen 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
DanielBonjour.
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.
DanielBonjour
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
???
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
???
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.
DanielBen 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
DanielBonjour.
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.
DanielBonjour
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
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.
DanielBen 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
DanielBonjour.
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.
DanielBonjour
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
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
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.
DanielBen 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
DanielBonjour.
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.
DanielBonjour
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
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.
DanielEffectivement, 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.
DanielBen 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
DanielBonjour.
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.
DanielBonjour
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
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
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.
DanielEffectivement, 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.
DanielBen 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
DanielBonjour.
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.
DanielBonjour
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
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.
DanielEffectivement, 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.
DanielBen 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
DanielBonjour.
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.
DanielBonjour
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
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
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.
DanielEffectivement, 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.
DanielBen 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
DanielBonjour.
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.
DanielBonjour
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
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.
DanielEffectivement, 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.
DanielBen 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
DanielBonjour.
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.
DanielBonjour
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
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
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.
DanielEffectivement, 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.
DanielBen 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
DanielBonjour.
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.
DanielBonjour
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