Renvoi automatique à une autre celluleRésolu

Question

J'ai conscience que cela peut paraître facile pour les pros mais moi je cale...
Dans une feuille précise, je souhaiterais que lorsqu'une cellule est sélectionnée le curseur  se, positionne dans une autre !
Ex : si a10 est sélectionnée se rendre directement dans la cellule b1 sans message d'erreur...
Merci d'avance,
Oliv'

Utilisateur anonyme · Accepted Answer

ajouter 1, c'est pourtant pas bien compliquer.



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Row > 50 Then
    ActiveSheet.Cells(1, Target.Column + 1).Select
  End If
End Sub,

----

(Nouveau forum VBA/Office

Utilisateur anonyme · Answer

Salut,

Faut donner plus de présisions. Cellule donc tableau, quel sorte de tableau utilise-tu ?






__________
Kenji

( 


Nouveau forum VBA/Office

oliveler · Answer

Oups !
Il s'agit d'un tableau Excel qui sert a totaliser des montants. Il y a 5 colonnes de 50 lignes et la 51ème (qui renferme le total de la colonne) est protégée. En fait une fois 50ème montant rentré, je voudrais que la touche "Entrée' ait pour conséquence directe la sélection de la 1ère cellule de la deuxième colonne et non celle qui renferme le total. Bref, pouvoir saisir les 250 montants sans avoir de message d'erreur lorsque l'on se trouve sur la 51ème ligne.
J'espère avoir été clair...
Merci,
Oliv'

Utilisateur anonyme · Answer

Donc, tu vba Excel !

Utilise les événement de ta feuille :



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Row > 50 Then
    ActiveSheet.Cells(1, Target.Column).Select
  End If
End Sub,

----

(Nouveau forum VBA/Office

Utilisateur anonyme · Answer

Ha, il faut aussi ajouter 1 à la colonne courante pour passer à la suivante.







__________
Kenji

( 


Nouveau forum VBA/Office

oliveler · Answer

Merci, ça marche nickel pour les lignes mais je n'ai pas trouvé la soluce pour ajouter 1 à la colonne courante. Je suis une buse mais je fais des erreurs de syntaxe et Excel aime pas trop !
J'espère ne pas trop abuser de votre gentillesse...
Merci,
Oliv'

oliveler · Answer

En effet, quand on le sait. Merci Beaucoup.

Renvoi automatique à une autre cellule

7 réponses

Votre réponse

Discussions similaires