saut de cellule sur excel

[angele67]

Bonjour,
je ne m'y connais pas trop pour les macros, mais j'ai trouvé des choses sur internet.
Pouvez-vous me dire comment faire pour, qu'à la fin d'une ligne d'un tableau dans excel, je puisse aller directement à la suite dans la colonne A (-1 ligne,-10 colonnes).
Pour aller à une cellule, c'est simple, mais j'aimerai appliquer à toute une colonne d'aller en cellule (-1,-10).

Pour ceux qui savent, merci de m'aider...😕

 

[Tibo]

Re : saut de cellule sur excel

Bonjour Angele,

Une solution toute simple qui ne nécessite pas de macro :

Sélectionne ton tableau (en laissant surtout la sélection active)

Tu saisis la 1ère donnée puis en validant, tu vas passer à la cellule suivante. Arrivé à la dernière colonne, le fait de valider te fait passer à la ligne suivante.

Durant toute la phase de saisie, la sélection doit rester active.

Essaye et dis nous

@+

 

[angele67]

Re : saut de cellule sur excel

Bonjour,
Je te remercie pour ton message. mais ce tableau servira pour des opérateurs, et le tableau est immense. les données seront écrites directement par un appareil de mesure. c'est vrai que c'est plus simple, mais j'aimerai qu'il existe une autre manière de faire. j'aimerai même que quand on arrive à la fin de la ligne, quand on fait "entrée", on arrive directement à la ligne suivante colonne 1. mais apparemment il faut acheter un logiciel pour ça...
Merci encore!
@+

 

[Tibo]

Re : saut de cellule sur excel

Bonjour,

Dans ce cas, je pense que le recours au VBA s'impose. Je laisse sur ce point mes camarades Vbaïstes te répondre.

Je ne vois pas pourquoi tu parles d'acheter un logiciel, et lequel ?

Précise nous les caractéristiques de ton tableau (nombre de colonnes, nombre de lignes)

@+

 

[angele67]

Re : saut de cellule sur excel

C'est bon, j'ai trouvé sur un autre forum la réponse :

Sub Macro2()
ligne = ActiveCell.Row
Cells(ligne + 1, 1).Activate
End Sub

--> (il faut attribuer une touche ctrl+...)

OU

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim ColDeb, ColFin As Integer

ColDeb = 1 ' Colonne de départ
ColFin = 15 ' colonne de fin

If Target.Column = ColFin + 1 Then
Cells(Target.Row + 1, ColDeb).Select
End If

End Sub

-->(marche avec entrée vers la droite, + les flèches)

OU

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ColDeb, ColFin As Integer

ColDeb = 1 ' Colonne de départ
ColFin = 15 ' colonne de fin

If Target.Column = ColFin Then
Cells(Target.Row + 1, ColDeb).Select
End If

End Sub

-->(pour la dernière : il faut avoir écrit qq chose dans la dernière case pour que ca marche)

Merci quand meme!@+