Comment savoir la cellule précédente qui était active ?
Voici mon problème, je détecte grâce à cette macro que l'on à écris "wo"
dans une des cellules de la colonne 38
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
If Target.Column = 38 Then
If Target = "wo" Then GoTo Suite
End If
GoTo Fin
Suite:
If Target = "" Then GoTo Fin
Load Usf2
Usf2.Show
Fin:
End Sub
Je souhaiterais après ceci traiter la cellule ou l'on à écris "wo" mais le
problème si j'utilise cette la fonction "ActiveCell.Cells.Address" j'ai
l'adresse de la cellule en dessous ou à coté car la personne qui à inscris
"wo" à soit pousser sur ENTER ou sur la flèche droite.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
En supposant que la bricole concerne la feuille "Feuil1" : Inspire toi de ce processus pour savoir "où tu es" et "d'où tu viens" :
Dans le module de ThisWorkbbok :
Private Sub Workbook_Open() Sheets("Feuil1").Select ActiveWorkbook.Names.Add Name:="xx", RefersTo:="þuil1!" & ActiveCell.Address End Sub
Dans le module de "Feuil1" :
Private Sub Worksheet_Change(ByVal zz As Range) ActiveWorkbook.Names.Add Name:="xx", RefersTo:="þuil1!" & zz.Address End Sub
Private Sub Worksheet_SelectionChange(ByVal zz As Range) MsgBox [xx].Address & " est la cellule active précédente" MsgBox zz.Address & " est la cellule active actuelle" ActiveWorkbook.Names.Add Name:="xx", RefersTo:="þuil1!" & zz.Address End Sub
AV
En supposant que la bricole concerne la feuille "Feuil1" :
Inspire toi de ce processus pour savoir "où tu es" et "d'où tu viens" :
Dans le module de ThisWorkbbok :
Private Sub Workbook_Open()
Sheets("Feuil1").Select
ActiveWorkbook.Names.Add Name:="xx", RefersTo:="þuil1!" & ActiveCell.Address
End Sub
Dans le module de "Feuil1" :
Private Sub Worksheet_Change(ByVal zz As Range)
ActiveWorkbook.Names.Add Name:="xx", RefersTo:="þuil1!" & zz.Address
End Sub
Private Sub Worksheet_SelectionChange(ByVal zz As Range)
MsgBox [xx].Address & " est la cellule active précédente"
MsgBox zz.Address & " est la cellule active actuelle"
ActiveWorkbook.Names.Add Name:="xx", RefersTo:="þuil1!" & zz.Address
End Sub
En supposant que la bricole concerne la feuille "Feuil1" : Inspire toi de ce processus pour savoir "où tu es" et "d'où tu viens" :
Dans le module de ThisWorkbbok :
Private Sub Workbook_Open() Sheets("Feuil1").Select ActiveWorkbook.Names.Add Name:="xx", RefersTo:="þuil1!" & ActiveCell.Address End Sub
Dans le module de "Feuil1" :
Private Sub Worksheet_Change(ByVal zz As Range) ActiveWorkbook.Names.Add Name:="xx", RefersTo:="þuil1!" & zz.Address End Sub
Private Sub Worksheet_SelectionChange(ByVal zz As Range) MsgBox [xx].Address & " est la cellule active précédente" MsgBox zz.Address & " est la cellule active actuelle" ActiveWorkbook.Names.Add Name:="xx", RefersTo:="þuil1!" & zz.Address End Sub
