besoin d aide concernant les cellules(resolu)

  • Initiateur de la discussion Initiateur de la discussion scal
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S

scal

Guest
bonjour,

je voudrais tous simplement passer de la cellule A1 a la cellule C1 et revenir a la cellule A2 puis C2 ect......

je joint un fichier pour plus d explication et moin de charabia😀

merci d avance pour votre aide
 

Pièces jointes

Dernière modification par un modérateur:
Re : besoin d aide concernant les cellules

bonsoir,
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 4 Or Target.Count > 1 Then Exit Sub
If Target.Column = 2 Then Target.Offset(0, 5).Select
If Target.Column = 7 Then Target.Offset(1, -5).Select
End Sub
A+
kjin
 
Re : besoin d aide concernant les cellules

Bonjour scal
Salut kjin 🙂

Une autre solution (mais peut-être que j'enfonce une porte ouverte!?):
  • sélectionner les cellules où l'encodage doit pouvoir se faire, en colonnes B et G
  • format de cellule > onglet Protection > décocher "Verrouillée"
  • protéger la feuille (onglet Révision) en décochant "Sélectionner les cellules verrouillées"
  • les touches Tabulation ou Enter permettent dès lors de parcourir les cellules dé-verrouillées
 
Re : besoin d aide concernant les cellules

bonsoir,
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 4 Or Target.Count > 1 Then Exit Sub
If Target.Column = 2 Then Target.Offset(0, 5).Select
If Target.Column = 7 Then Target.Offset(1, -5).Select
End Sub
A+
kjin

kjin ,j avais oublié comment je fais pour mettre ton code dans mon tableau

merci
 
Re : besoin d aide concernant les cellules

bonsoir

voila mon claseur a un peu evoluer par rapport a l ancien et tous est OK grace a vous.
mais il y a un mais comment mette en surbrillance la ligne d erreur apres avoir repondu au message
pour une meilleur visibilité.

merci
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
10
Affichages
410
Réponses
2
Affichages
240
Réponses
16
Affichages
579
Retour