Sur une feuille Excel, j'aimerais qu'apr=E8s avoir enfonc=E9=20
la touche "entr=E9e" que l'on aille de la cellule A5 =E0 B7,=20
ensuite de B7 =E0 C22, etc.... Autrement dit sans ordre=20
logique... J'ai 22 cellules =E0 entrer de l'info.
Je sais le faire avec Tab, mais pas avec la touche entr=E9e.
"Denys" wrote in message news:13b1901c44444$d3e5e3a0$ Bonjour Docm,
Merci infiniment,
Effectivement, ça fonctionne à merveille... très aimable de ta part...
Bonne fin de semaine
Denys
-----Original Message----- Bonjour Denys. Je te propose, sous toutes réserves, le code suivant, simple et apparemment
efficace.
Amicalement
Dim AdressePrecedente As String Dim ChangementProgrammer As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ChangementProgrammer = True Then AdressePrecedente = Target.Address ChangementProgrammer = False Exit Sub End If
If AdressePrecedente = "" Then AdressePrecedente = Target.Address Exit Sub End If
ChangementProgrammer = True Select Case AdressePrecedente
Case "$A$5"
Range("B7").Select
Case "$B$7"
Range("C22").Select
Case "$C$22"
Range("D2").Select
Case Else AdressePrecedente = Target.Address ChangementProgrammer = False End Select
End Sub
"Denys" wrote in message
news:1384e01c4441b$799f1110$ Bonjour à tous,
Sur une feuille Excel, j'aimerais qu'après avoir enfoncé la touche "entrée" que l'on aille de la cellule A5 à B7, ensuite de B7 à C22, etc.... Autrement dit sans ordre logique... J'ai 22 cellules à entrer de l'info.
Je sais le faire avec Tab, mais pas avec la touche entrée.
Peut être en VBA.
Z'auriez une idée ??
Merci
Denys
.
C'est un plaisir.
"Denys" <anonymous@discussions.microsoft.com> wrote in message
news:13b1901c44444$d3e5e3a0$a301280a@phx.gbl...
Bonjour Docm,
Merci infiniment,
Effectivement, ça fonctionne à merveille... très aimable
de ta part...
Bonne fin de semaine
Denys
-----Original Message-----
Bonjour Denys.
Je te propose, sous toutes réserves, le code suivant,
simple et apparemment
efficace.
Amicalement
Dim AdressePrecedente As String
Dim ChangementProgrammer As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As
Excel.Range)
If ChangementProgrammer = True Then
AdressePrecedente = Target.Address
ChangementProgrammer = False
Exit Sub
End If
If AdressePrecedente = "" Then
AdressePrecedente = Target.Address
Exit Sub
End If
ChangementProgrammer = True
Select Case AdressePrecedente
Case "$A$5"
Range("B7").Select
Case "$B$7"
Range("C22").Select
Case "$C$22"
Range("D2").Select
Case Else
AdressePrecedente = Target.Address
ChangementProgrammer = False
End Select
End Sub
"Denys" <anonymous@discussions.microsoft.com> wrote in
message
news:1384e01c4441b$799f1110$a301280a@phx.gbl...
Bonjour à tous,
Sur une feuille Excel, j'aimerais qu'après avoir enfoncé
la touche "entrée" que l'on aille de la cellule A5 à B7,
ensuite de B7 à C22, etc.... Autrement dit sans ordre
logique... J'ai 22 cellules à entrer de l'info.
Je sais le faire avec Tab, mais pas avec la touche entrée.
"Denys" wrote in message news:13b1901c44444$d3e5e3a0$ Bonjour Docm,
Merci infiniment,
Effectivement, ça fonctionne à merveille... très aimable de ta part...
Bonne fin de semaine
Denys
-----Original Message----- Bonjour Denys. Je te propose, sous toutes réserves, le code suivant, simple et apparemment
efficace.
Amicalement
Dim AdressePrecedente As String Dim ChangementProgrammer As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ChangementProgrammer = True Then AdressePrecedente = Target.Address ChangementProgrammer = False Exit Sub End If
If AdressePrecedente = "" Then AdressePrecedente = Target.Address Exit Sub End If
ChangementProgrammer = True Select Case AdressePrecedente
Case "$A$5"
Range("B7").Select
Case "$B$7"
Range("C22").Select
Case "$C$22"
Range("D2").Select
Case Else AdressePrecedente = Target.Address ChangementProgrammer = False End Select
End Sub
"Denys" wrote in message
news:1384e01c4441b$799f1110$ Bonjour à tous,
Sur une feuille Excel, j'aimerais qu'après avoir enfoncé la touche "entrée" que l'on aille de la cellule A5 à B7, ensuite de B7 à C22, etc.... Autrement dit sans ordre logique... J'ai 22 cellules à entrer de l'info.
Je sais le faire avec Tab, mais pas avec la touche entrée.
