XL 2016 Macro pour dupliquer une colone

[3dbillard]

Bonjour,

Dans le fichier si joint j'ai mes question en colonne C et les réponses en D je voudrais pouvoir saisir mes réponses et affecter une macro au + pour créer une nouvelle colonne identique à D mais vide et si possible avant celle ci pour que la colonne à remplir soit toujours juste à droite des questions.

Question déplacement dans ma feuilles j'ai des flèches est il possible que celles haut et bas appelle la question suivante plutôt que la ligne suivante. J'ai réussi la macro de déplacement mais la je ne trouve pas.

Cordialement

 

[D.D.]

Bonjour,

Tu as déjà enregistré des macros on dirait, mais sans renseigner la colonne à dupliquer.
Le code
Columns("E:E").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
te convient-il ?

DD

 

[D.D.]

Sinon, j'ai pas bien compris l'histoire des flèches.

 

[3dbillard]

Merci Beaucoup D.D. ça fonctionne parfaitement, pour les flèches je voudrait pouvoir que quand je clique sur la flèche allant vers le bas faire remonter la question suivante plutôt que la ligne suivante, je ne peux pas faire une incrémentation régulière du fait que les questions non pas toute le même nombre de réponse.
Le but étant d'avoir la question à remplir juste sous le volet figé du haut

 

[3dbillard]

un exemple qui va surement te parler je voudrais que la flèche du bas fasse défiler la feuille avec des points d'ancrages à chaque question un peu comme dans un site web mais c'est lointain pour moi tout ça...

 

[D.D.]

Peut être
ActiveCell.Offset(1, 0).Select
au lieu de
ActiveWindow.SmallScroll Down:=1
par exemple ?

 

[3dbillard]

Non ça le fait pas enfin pas ce que je veux.

 

[3dbillard]

La ligne 7 est figé sous la 7 j'ai la 8 qui est la première question je voudrais que quand je clique sur la flèche basse la ligne 13 qui est la question suivante vienne sous la ligne 7 par un scroll afin d'avoir toujours la ligne à saisir sous la ligne 7.
C'est juste ergonomique

 

[D.D.]

Ah oui. Je vois.

 

[3dbillard]

Hahahaha pas facile d'être clair surtout que je n'avais pas mis les mains dans Excel depuis très très longtemps...

 

[D.D.]

Voila:
Tu mets les "arrêts" dans la colonne B, sous forme d'un 1 (donc en B8, B13, B19, etc....)
et dans Sub Scrollbas() tu mets
Do
ActiveCell.Offset(1, 0).Select
Loop Until Range("B" & ActiveCell.Row) = 1

Ca devrait répondre à ton besoin.

 

[3dbillard]

l'idée est là mais ça ne me fait pas le scroll de la feuille mais juste un placement de sélection de ligne mais c'est exactement l'idée

 

[D.D.]

Ajoute le
ActiveWindow.SmallScroll Down:=1
juste avant le
ActiveCell.Offset(1, 0).Select
peut être (chez moi ca scrolle bien pourtant).

 

[3dbillard]

j'avais essayé il y a un bog tu peux me donner le code complet que tu as, désolé

 

[D.D.]

Voila, le fichier.