Retour a la colonne

[Tibewan]

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.

 

[Paf]

Re : Retour a la colonne

Bonjour

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

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

A+

 

[Paf]

Re : Retour a la colonne

Re,

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

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

A+

 

[Tibewan]

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 :

 

[Paf]

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+

 

[Tibewan]

Re : Retour a la colonne

Re Paf,

J'ai suivi tes instructions et ça fait toujour la meme chose.

 

[Paf]

Re : Retour a la colonne

Re,

comme le dit la fenêtre d'alerte, le classeur doit être du type à recevoir des macros, donc en .xlsm.

Bonne suite

 

[Tibewan]

Re : Retour a la colonne

Re Paf ,

Ca y est j'ai réussi ca fonctionne merci beaucoup mais j'ai introduit ton 2 eme codes pour la suite c'est a dire B5 à C1, ca ne fontionne pas

 

[Paf]

Re : Retour a la colonne

Re

? , joignez votre classeur( sans données confidentielles) afin de pouvoir y jeter un oeil.

A+

 

[Tibewan]

Re : Retour a la colonne

Bonjour Paf ,

Je viens de t'envoyer le fichier demander

Merci.

 

[Paf]

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:

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