bonjour,
La question et dans le code
Sub modif_travail_QuandClic()
Dim li
Selection.End(xlToLeft).Select
li = ActiveCell.Value + 42 'à la gauche de le ligne, la valeur de la
cellule
'corespond au N° de la ligne (sur une autre
feuille)
'des valeurs trouvées par index-equiv
Application.Goto Reference:="annee"
ActiveCell.Offset(li, -1).Select
'en fin de code, je souhaiterai avoir un
message box
'qui me propose de revenir à la cellule
active en début de code
End Sub
merci de vos réponses
bonjour,
La question et dans le code
Sub modif_travail_QuandClic()
Dim li
Selection.End(xlToLeft).Select
li = ActiveCell.Value + 42 'à la gauche de le ligne, la valeur de la
cellule
'corespond au N° de la ligne (sur une autre
feuille)
'des valeurs trouvées par index-equiv
Application.Goto Reference:="annee"
ActiveCell.Offset(li, -1).Select
'en fin de code, je souhaiterai avoir un
message box
'qui me propose de revenir à la cellule
active en début de code
End Sub
merci de vos réponses
bonjour,
La question et dans le code
Sub modif_travail_QuandClic()
Dim li
Selection.End(xlToLeft).Select
li = ActiveCell.Value + 42 'à la gauche de le ligne, la valeur de la
cellule
'corespond au N° de la ligne (sur une autre
feuille)
'des valeurs trouvées par index-equiv
Application.Goto Reference:="annee"
ActiveCell.Offset(li, -1).Select
'en fin de code, je souhaiterai avoir un
message box
'qui me propose de revenir à la cellule
active en début de code
End Sub
merci de vos réponses
Bonjour,
Par exemple, sans avoir testé tout le code
en début de macro
x = ActiveCell.Address
et en fin de macro
Range(x).Activate
ou
Range(x).Select
--
Salutations
JJ
"nicolas S2" a écrit dans le message de
news: 4622042b$0$29881$bonjour,
La question et dans le code
Sub modif_travail_QuandClic()
Dim li
Selection.End(xlToLeft).Select
li = ActiveCell.Value + 42 'à la gauche de le ligne, la valeur de la
cellule
'corespond au N° de la ligne (sur une
autre
feuille)
'des valeurs trouvées par index-equiv
Application.Goto Reference:="annee"
ActiveCell.Offset(li, -1).Select
'en fin de code, je souhaiterai avoir un
message box
'qui me propose de revenir à la cellule
active en début de code
End Sub
merci de vos réponses
Bonjour,
Par exemple, sans avoir testé tout le code
en début de macro
x = ActiveCell.Address
et en fin de macro
Range(x).Activate
ou
Range(x).Select
--
Salutations
JJ
"nicolas S2" <NmcnSsaillardP@libertysurf.fr> a écrit dans le message de
news: 4622042b$0$29881$426a34cc@news.free.fr...
bonjour,
La question et dans le code
Sub modif_travail_QuandClic()
Dim li
Selection.End(xlToLeft).Select
li = ActiveCell.Value + 42 'à la gauche de le ligne, la valeur de la
cellule
'corespond au N° de la ligne (sur une
autre
feuille)
'des valeurs trouvées par index-equiv
Application.Goto Reference:="annee"
ActiveCell.Offset(li, -1).Select
'en fin de code, je souhaiterai avoir un
message box
'qui me propose de revenir à la cellule
active en début de code
End Sub
merci de vos réponses
Bonjour,
Par exemple, sans avoir testé tout le code
en début de macro
x = ActiveCell.Address
et en fin de macro
Range(x).Activate
ou
Range(x).Select
--
Salutations
JJ
"nicolas S2" a écrit dans le message de
news: 4622042b$0$29881$bonjour,
La question et dans le code
Sub modif_travail_QuandClic()
Dim li
Selection.End(xlToLeft).Select
li = ActiveCell.Value + 42 'à la gauche de le ligne, la valeur de la
cellule
'corespond au N° de la ligne (sur une
autre
feuille)
'des valeurs trouvées par index-equiv
Application.Goto Reference:="annee"
ActiveCell.Offset(li, -1).Select
'en fin de code, je souhaiterai avoir un
message box
'qui me propose de revenir à la cellule
active en début de code
End Sub
merci de vos réponses
Merci pour ta réponse
J'ai fait ceci
Sub modif_travail_QuandClic()
Dim li, x
x = ActiveCell.Address
Selection.End(xlToLeft).Select
li = ActiveCell.Value + 42 'à la gauche de le ligne, la valleur de la
cellule
'corespond au N° de la ligne (sur une autre
feuille)
'des valleurs trouvée parindex-equiv
Application.Goto Reference:="annee"
ActiveCell.Offset(li, -1).Select
'en fin de code, je souhaiterai avoir un
message box
'qui me propose de revenir à la dellule
active en début de code
If MsgBox("Voulez-vous revenir au tableau précédent ", 4) = 6 Then
Sheets("utilisation").Select Range(x).Activate
End Sub
A+
Merci pour ta réponse
J'ai fait ceci
Sub modif_travail_QuandClic()
Dim li, x
x = ActiveCell.Address
Selection.End(xlToLeft).Select
li = ActiveCell.Value + 42 'à la gauche de le ligne, la valleur de la
cellule
'corespond au N° de la ligne (sur une autre
feuille)
'des valleurs trouvée parindex-equiv
Application.Goto Reference:="annee"
ActiveCell.Offset(li, -1).Select
'en fin de code, je souhaiterai avoir un
message box
'qui me propose de revenir à la dellule
active en début de code
If MsgBox("Voulez-vous revenir au tableau précédent ", 4) = 6 Then
Sheets("utilisation").Select Range(x).Activate
End Sub
A+
Merci pour ta réponse
J'ai fait ceci
Sub modif_travail_QuandClic()
Dim li, x
x = ActiveCell.Address
Selection.End(xlToLeft).Select
li = ActiveCell.Value + 42 'à la gauche de le ligne, la valleur de la
cellule
'corespond au N° de la ligne (sur une autre
feuille)
'des valleurs trouvée parindex-equiv
Application.Goto Reference:="annee"
ActiveCell.Offset(li, -1).Select
'en fin de code, je souhaiterai avoir un
message box
'qui me propose de revenir à la dellule
active en début de code
If MsgBox("Voulez-vous revenir au tableau précédent ", 4) = 6 Then
Sheets("utilisation").Select Range(x).Activate
End Sub
A+
Merci pour ta réponse
J'ai fait ceci
Sub modif_travail_QuandClic()
Dim li, x
x = ActiveCell.Address
Selection.End(xlToLeft).Select
li = ActiveCell.Value + 42 'à la gauche de le ligne, la valleur de la
cellule
'corespond au N° de la ligne (sur une autre
feuille)
'des valleurs trouvée parindex-equiv
Application.Goto Reference:="annee"
ActiveCell.Offset(li, -1).Select
'en fin de code, je souhaiterai avoir un
message box
'qui me propose de revenir à la dellule
active en début de code
If MsgBox("Voulez-vous revenir au tableau précédent ", 4) = 6 Then
Sheets("utilisation").Select
Range(x).Activate
End Sub
A+
Merci pour ta réponse
J'ai fait ceci
Sub modif_travail_QuandClic()
Dim li, x
x = ActiveCell.Address
Selection.End(xlToLeft).Select
li = ActiveCell.Value + 42 'à la gauche de le ligne, la valleur de la
cellule
'corespond au N° de la ligne (sur une autre
feuille)
'des valleurs trouvée parindex-equiv
Application.Goto Reference:="annee"
ActiveCell.Offset(li, -1).Select
'en fin de code, je souhaiterai avoir un
message box
'qui me propose de revenir à la dellule
active en début de code
If MsgBox("Voulez-vous revenir au tableau précédent ", 4) = 6 Then
Sheets("utilisation").Select
Range(x).Activate
End Sub
A+
Merci pour ta réponse
J'ai fait ceci
Sub modif_travail_QuandClic()
Dim li, x
x = ActiveCell.Address
Selection.End(xlToLeft).Select
li = ActiveCell.Value + 42 'à la gauche de le ligne, la valleur de la
cellule
'corespond au N° de la ligne (sur une autre
feuille)
'des valleurs trouvée parindex-equiv
Application.Goto Reference:="annee"
ActiveCell.Offset(li, -1).Select
'en fin de code, je souhaiterai avoir un
message box
'qui me propose de revenir à la dellule
active en début de code
If MsgBox("Voulez-vous revenir au tableau précédent ", 4) = 6 Then
Sheets("utilisation").Select
Range(x).Activate
End Sub
A+
RE...
'------------------
Sub modif_travail_QuandClic()
Dim li
x$ = ActiveCell.Address
y$ = ActiveSheet.Name
'--------
'--------
'--------
'-------
If MsgBox("Voulez-vous revenir au tableau précédent ", 4) = 6 Then
Sheets(y).Select
Range(x).Select
End If
End Sub
'-------------
--
Salutations
JJ
"nicolas S2" a écrit dans le message de
news: 46223c74$0$27205$Merci pour ta réponse
J'ai fait ceci
Sub modif_travail_QuandClic()
Dim li, x
x = ActiveCell.Address
Selection.End(xlToLeft).Select
li = ActiveCell.Value + 42 'à la gauche de le ligne, la valleur de la
cellule
'corespond au N° de la ligne (sur une
autre feuille)
'des valleurs trouvée parindex-equiv
Application.Goto Reference:="annee"
ActiveCell.Offset(li, -1).Select
'en fin de code, je souhaiterai avoir un
message box
'qui me propose de revenir à la dellule
active en début de code
If MsgBox("Voulez-vous revenir au tableau précédent ", 4) = 6 Then
Sheets("utilisation").Select
Range(x).Activate
End Sub
A+
RE...
'------------------
Sub modif_travail_QuandClic()
Dim li
x$ = ActiveCell.Address
y$ = ActiveSheet.Name
'--------
'--------
'--------
'-------
If MsgBox("Voulez-vous revenir au tableau précédent ", 4) = 6 Then
Sheets(y).Select
Range(x).Select
End If
End Sub
'-------------
--
Salutations
JJ
"nicolas S2" <NmcnSsaillardP@libertysurf.fr> a écrit dans le message de
news: 46223c74$0$27205$426a74cc@news.free.fr...
Merci pour ta réponse
J'ai fait ceci
Sub modif_travail_QuandClic()
Dim li, x
x = ActiveCell.Address
Selection.End(xlToLeft).Select
li = ActiveCell.Value + 42 'à la gauche de le ligne, la valleur de la
cellule
'corespond au N° de la ligne (sur une
autre feuille)
'des valleurs trouvée parindex-equiv
Application.Goto Reference:="annee"
ActiveCell.Offset(li, -1).Select
'en fin de code, je souhaiterai avoir un
message box
'qui me propose de revenir à la dellule
active en début de code
If MsgBox("Voulez-vous revenir au tableau précédent ", 4) = 6 Then
Sheets("utilisation").Select
Range(x).Activate
End Sub
A+
RE...
'------------------
Sub modif_travail_QuandClic()
Dim li
x$ = ActiveCell.Address
y$ = ActiveSheet.Name
'--------
'--------
'--------
'-------
If MsgBox("Voulez-vous revenir au tableau précédent ", 4) = 6 Then
Sheets(y).Select
Range(x).Select
End If
End Sub
'-------------
--
Salutations
JJ
"nicolas S2" a écrit dans le message de
news: 46223c74$0$27205$Merci pour ta réponse
J'ai fait ceci
Sub modif_travail_QuandClic()
Dim li, x
x = ActiveCell.Address
Selection.End(xlToLeft).Select
li = ActiveCell.Value + 42 'à la gauche de le ligne, la valleur de la
cellule
'corespond au N° de la ligne (sur une
autre feuille)
'des valleurs trouvée parindex-equiv
Application.Goto Reference:="annee"
ActiveCell.Offset(li, -1).Select
'en fin de code, je souhaiterai avoir un
message box
'qui me propose de revenir à la dellule
active en début de code
If MsgBox("Voulez-vous revenir au tableau précédent ", 4) = 6 Then
Sheets("utilisation").Select
Range(x).Activate
End Sub
A+
Le problème est que tant que le msgbox est visible, la feuille n'est pas
active et donc non modifiable. Ma question est donc : est il possible de
travailler sur une feuille pendant l'affichage d'un msgbox ?
Le problème est que tant que le msgbox est visible, la feuille n'est pas
active et donc non modifiable. Ma question est donc : est il possible de
travailler sur une feuille pendant l'affichage d'un msgbox ?
Le problème est que tant que le msgbox est visible, la feuille n'est pas
active et donc non modifiable. Ma question est donc : est il possible de
travailler sur une feuille pendant l'affichage d'un msgbox ?
Bonsour® nicolas S2 avec ferveur ;o))) vous nous disiez :Le problème est que tant que le msgbox est visible, la feuille n'est pas
active et donc non modifiable. Ma question est donc : est il possible de
travailler sur une feuille pendant l'affichage d'un msgbox ?
la réponse est NON !!!
par défaut : 0 vbApplicationModal
Boîte de dialogue modale.
L'utilisateur doit répondre au message affiché dans la zone de message
avant de pouvoir continuer de travailler dans l'application en cours.
on peut même faire pire ;o)))
4096 vbSystemModal
Modal système.
Toutes les applications sont interrompues jusqu'à ce que l'utilisateur
réponde au message affiché dans la zone de message
Le contournement est possible (au-dela de EXCEL 97) par un userform
personnalisé mimant la MsgBox (par exemple USF_Msgbx) et en indiquant que
son affichage est modal ou pas
USF_Msgbx .ShowModalúlse
--
--
@+
;o)))
Bonsour® nicolas S2 avec ferveur ;o))) vous nous disiez :
Le problème est que tant que le msgbox est visible, la feuille n'est pas
active et donc non modifiable. Ma question est donc : est il possible de
travailler sur une feuille pendant l'affichage d'un msgbox ?
la réponse est NON !!!
par défaut : 0 vbApplicationModal
Boîte de dialogue modale.
L'utilisateur doit répondre au message affiché dans la zone de message
avant de pouvoir continuer de travailler dans l'application en cours.
on peut même faire pire ;o)))
4096 vbSystemModal
Modal système.
Toutes les applications sont interrompues jusqu'à ce que l'utilisateur
réponde au message affiché dans la zone de message
Le contournement est possible (au-dela de EXCEL 97) par un userform
personnalisé mimant la MsgBox (par exemple USF_Msgbx) et en indiquant que
son affichage est modal ou pas
USF_Msgbx .ShowModalúlse
--
--
@+
;o)))
Bonsour® nicolas S2 avec ferveur ;o))) vous nous disiez :Le problème est que tant que le msgbox est visible, la feuille n'est pas
active et donc non modifiable. Ma question est donc : est il possible de
travailler sur une feuille pendant l'affichage d'un msgbox ?
la réponse est NON !!!
par défaut : 0 vbApplicationModal
Boîte de dialogue modale.
L'utilisateur doit répondre au message affiché dans la zone de message
avant de pouvoir continuer de travailler dans l'application en cours.
on peut même faire pire ;o)))
4096 vbSystemModal
Modal système.
Toutes les applications sont interrompues jusqu'à ce que l'utilisateur
réponde au message affiché dans la zone de message
Le contournement est possible (au-dela de EXCEL 97) par un userform
personnalisé mimant la MsgBox (par exemple USF_Msgbx) et en indiquant que
son affichage est modal ou pas
USF_Msgbx .ShowModalúlse
--
--
@+
;o)))
Bonsour® nicolas S2 avec ferveur ;o))) vous nous disiez :Le problème est que tant que le msgbox est visible, la feuille n'est pas
active et donc non modifiable. Ma question est donc : est il possible de
travailler sur une feuille pendant l'affichage d'un msgbox ?
la réponse est NON !!!
par défaut : 0 vbApplicationModal
Boîte de dialogue modale.
L'utilisateur doit répondre au message affiché dans la zone de message
avant de pouvoir continuer de travailler dans l'application en cours.
on peut même faire pire ;o)))
4096 vbSystemModal
Modal système.
Toutes les applications sont interrompues jusqu'à ce que l'utilisateur
réponde au message affiché dans la zone de message
Le contournement est possible (au-dela de EXCEL 97) par un userform
personnalisé mimant la MsgBox (par exemple USF_Msgbx) et en indiquant que
son affichage est modal ou pas
USF_Msgbx .ShowModalúlse
--
--
@+
;o)))
Bonsour® nicolas S2 avec ferveur ;o))) vous nous disiez :
Le problème est que tant que le msgbox est visible, la feuille n'est pas
active et donc non modifiable. Ma question est donc : est il possible de
travailler sur une feuille pendant l'affichage d'un msgbox ?
la réponse est NON !!!
par défaut : 0 vbApplicationModal
Boîte de dialogue modale.
L'utilisateur doit répondre au message affiché dans la zone de message
avant de pouvoir continuer de travailler dans l'application en cours.
on peut même faire pire ;o)))
4096 vbSystemModal
Modal système.
Toutes les applications sont interrompues jusqu'à ce que l'utilisateur
réponde au message affiché dans la zone de message
Le contournement est possible (au-dela de EXCEL 97) par un userform
personnalisé mimant la MsgBox (par exemple USF_Msgbx) et en indiquant que
son affichage est modal ou pas
USF_Msgbx .ShowModalúlse
--
--
@+
;o)))
Bonsour® nicolas S2 avec ferveur ;o))) vous nous disiez :Le problème est que tant que le msgbox est visible, la feuille n'est pas
active et donc non modifiable. Ma question est donc : est il possible de
travailler sur une feuille pendant l'affichage d'un msgbox ?
la réponse est NON !!!
par défaut : 0 vbApplicationModal
Boîte de dialogue modale.
L'utilisateur doit répondre au message affiché dans la zone de message
avant de pouvoir continuer de travailler dans l'application en cours.
on peut même faire pire ;o)))
4096 vbSystemModal
Modal système.
Toutes les applications sont interrompues jusqu'à ce que l'utilisateur
réponde au message affiché dans la zone de message
Le contournement est possible (au-dela de EXCEL 97) par un userform
personnalisé mimant la MsgBox (par exemple USF_Msgbx) et en indiquant que
son affichage est modal ou pas
USF_Msgbx .ShowModalúlse
--
--
@+
;o)))
Bonsoir modest,
sur EXCEL 2003, j'ai fait comme ceci:
Private Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "User32" _
(ByVal hWnd As Long, ByVal bEnable As Long) As Long
Private Sub UserForm_Activate()
EnableWindow FindWindowA("XLMAIN", Application.Caption), 1
End Sub
C'est ce que j'ai fait il y a quelques années après des conseils obtenus
ici.
Merci à vous tous
Bonne soirée, bonne nuit, bonne digestion, et bonne................
"Modeste" a écrit dans le message de news:Bonsour® nicolas S2 avec ferveur ;o))) vous nous disiez :Le problème est que tant que le msgbox est visible, la feuille n'est pas
active et donc non modifiable. Ma question est donc : est il possible de
travailler sur une feuille pendant l'affichage d'un msgbox ?
la réponse est NON !!!
par défaut : 0 vbApplicationModal
Boîte de dialogue modale.
L'utilisateur doit répondre au message affiché dans la zone de message
avant de pouvoir continuer de travailler dans l'application en cours.
on peut même faire pire ;o)))
4096 vbSystemModal
Modal système.
Toutes les applications sont interrompues jusqu'à ce que l'utilisateur
réponde au message affiché dans la zone de message
Le contournement est possible (au-dela de EXCEL 97) par un userform
personnalisé mimant la MsgBox (par exemple USF_Msgbx) et en indiquant que
son affichage est modal ou pas
USF_Msgbx .ShowModalúlse
--
--
@+
;o)))
Bonsoir modest,
sur EXCEL 2003, j'ai fait comme ceci:
Private Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "User32" _
(ByVal hWnd As Long, ByVal bEnable As Long) As Long
Private Sub UserForm_Activate()
EnableWindow FindWindowA("XLMAIN", Application.Caption), 1
End Sub
C'est ce que j'ai fait il y a quelques années après des conseils obtenus
ici.
Merci à vous tous
Bonne soirée, bonne nuit, bonne digestion, et bonne................
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
uDaTlS4fHHA.4872@TK2MSFTNGP03.phx.gbl...
Bonsour® nicolas S2 avec ferveur ;o))) vous nous disiez :
Le problème est que tant que le msgbox est visible, la feuille n'est pas
active et donc non modifiable. Ma question est donc : est il possible de
travailler sur une feuille pendant l'affichage d'un msgbox ?
la réponse est NON !!!
par défaut : 0 vbApplicationModal
Boîte de dialogue modale.
L'utilisateur doit répondre au message affiché dans la zone de message
avant de pouvoir continuer de travailler dans l'application en cours.
on peut même faire pire ;o)))
4096 vbSystemModal
Modal système.
Toutes les applications sont interrompues jusqu'à ce que l'utilisateur
réponde au message affiché dans la zone de message
Le contournement est possible (au-dela de EXCEL 97) par un userform
personnalisé mimant la MsgBox (par exemple USF_Msgbx) et en indiquant que
son affichage est modal ou pas
USF_Msgbx .ShowModalúlse
--
--
@+
;o)))
Bonsoir modest,
sur EXCEL 2003, j'ai fait comme ceci:
Private Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "User32" _
(ByVal hWnd As Long, ByVal bEnable As Long) As Long
Private Sub UserForm_Activate()
EnableWindow FindWindowA("XLMAIN", Application.Caption), 1
End Sub
C'est ce que j'ai fait il y a quelques années après des conseils obtenus
ici.
Merci à vous tous
Bonne soirée, bonne nuit, bonne digestion, et bonne................
"Modeste" a écrit dans le message de news:Bonsour® nicolas S2 avec ferveur ;o))) vous nous disiez :Le problème est que tant que le msgbox est visible, la feuille n'est pas
active et donc non modifiable. Ma question est donc : est il possible de
travailler sur une feuille pendant l'affichage d'un msgbox ?
la réponse est NON !!!
par défaut : 0 vbApplicationModal
Boîte de dialogue modale.
L'utilisateur doit répondre au message affiché dans la zone de message
avant de pouvoir continuer de travailler dans l'application en cours.
on peut même faire pire ;o)))
4096 vbSystemModal
Modal système.
Toutes les applications sont interrompues jusqu'à ce que l'utilisateur
réponde au message affiché dans la zone de message
Le contournement est possible (au-dela de EXCEL 97) par un userform
personnalisé mimant la MsgBox (par exemple USF_Msgbx) et en indiquant que
son affichage est modal ou pas
USF_Msgbx .ShowModalúlse
--
--
@+
;o)))