XL 2016 Macro pour dupliquer une colone

D

D.D.

XLDnaute Impliqué

• 23 Novembre 2017

• #2

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

 

Vote positif 0 Vote négatif

D

D.D.

XLDnaute Impliqué

• 23 Novembre 2017

• #3

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

 

Vote positif 0 Vote négatif

3

3dbillard

XLDnaute Junior

• 23 Novembre 2017

• #4

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

 

Vote positif 0 Vote négatif

3

3dbillard

XLDnaute Junior

• 23 Novembre 2017

• #5

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...

 

Vote positif 0 Vote négatif

D

D.D.

XLDnaute Impliqué

• 23 Novembre 2017

• #6

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

 

Vote positif 0 Vote négatif

3

3dbillard

XLDnaute Junior

• 23 Novembre 2017

• #7

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

 

Vote positif 0 Vote négatif

3

3dbillard

XLDnaute Junior

• 23 Novembre 2017

• #8

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

 

Vote positif 0 Vote négatif

D

D.D.

XLDnaute Impliqué

• 23 Novembre 2017

• #9

Ah oui. Je vois.

 

Vote positif 0 Vote négatif

3

3dbillard

XLDnaute Junior

• 23 Novembre 2017

• #10

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

 

Vote positif 0 Vote négatif

D

D.D.

XLDnaute Impliqué

• 23 Novembre 2017

• #11

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.

 

Vote positif 0 Vote négatif

3

3dbillard

XLDnaute Junior

• 23 Novembre 2017

• #12

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

 

Vote positif 0 Vote négatif

D

D.D.

XLDnaute Impliqué

• 23 Novembre 2017

• #13

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

 

Vote positif 0 Vote négatif

3

3dbillard

XLDnaute Junior

• 23 Novembre 2017

• #14

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

 

Vote positif 0 Vote négatif

D

D.D.

XLDnaute Impliqué

• 23 Novembre 2017

• #15

Voila, le fichier.

 

Pièces jointes

• Matrice Excel Test.xlsm

  31 KB · Affichages: 18

Vote positif 0 Vote négatif