Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Retour a la colonne

  • Initiateur de la discussion Initiateur de la discussion Tibewan
  • 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 !

Tibewan

XLDnaute Nouveau
Bonjour,

Quelqu'un pourrait-il m'aider si vous plait , actuellement je scanne des lettres recommandées avec une douchette , du colonne A1 au A5 mais par la suite j'aimerais et si possible qu'il passe automatiquement au colonne B1 au lieu de continuer A6 . Je recherche cette formule.

Merci d'avance pour vos aides.
 
Re : Retour a la colonne

Bonjour

peut-être en copiant ce code dans la feuille de code de la feuille utilisée

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$5" Then Range("B1").Select
End Sub

A+
 
Re : Retour a la colonne

Re,

et s'il faut ce décalage pour chaque colonne

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Row = 5 Then Cells(1, Target.Column + 1).Select
End Sub

A+
 
Re : Retour a la colonne

Bonjour Paf,

Merci pour ton aide, mais ceci dit je suis trés mauvais en macro.Lors que je veux mettre ton code puis enregistrer il me met ceci :

 

Pièces jointes

  • erreur.jpg
    42.6 KB · Affichages: 33
Re : Retour a la colonne

Re,

ben oui, vous avez copier le code dans un module standard, alors qu'il faut le copier dans le code de la feuille.

Sur l'onglet de la feuille concernée, faire clic droit puis visualiser le code, on arrive sur la feuille de code de la feuille concernée.
Y copier le code.

A+
 
Re : Retour a la colonne

re,

c'est généralement une mauvaise idée de fusionner des cellules, c'est le cas ici.

la modif qui permet, arrivé en fin de colonne 1 et 2 (mais pas la troisième), de décaler en tête de colonne suivante:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Row = 28 And Target.Column < 7 Then Cells(12, Target.Column + 4).Select
End Sub

Bonne suite
 
- 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

Discussions similaires

Réponses
9
Affichages
832
Réponses
4
Affichages
1 K
Réponses
125
Affichages
13 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…