recopier plusieur cellule avec incrementation

[nenex]

[RESOLU] recopier plusieur cellule avec incrementation

slt
Je ne savais pas quoi metre comme titre clair 😱 . Dans une colonne je voudrais mettre 6 fois le meme chiffre dans 6 cellule l'une au dessous de l'autre et que ca soit repeter vers le bas mais les chiffre change. Je supose que ca ne doit pas etre clair mon exmplication. Donc voici un exemple :

1
1
1
1
1
1
2
2
2
2
2
2
3
3
3
3
3

Chaque chiffre etant une celulle. Se que j'ai fait c'est taper le chiffre, selectionner les cellule en dessous et ctrl+b pour recopier le meme chiffre, et comme ca pour cgaque "serie". Y aurait il une maniere beaucoup plus simple et rapide ?
Merci d'avance.

 

[bertgrav]

Re : recopier plusieur cellule avec incrementation

bonjour,

oui il y a plus rapide, d'autant plus si tu vas vers des chiffres trés élevés

en A1 jusqu'en A6 tu mets 1
en A7 tu tapes = A1 + 1
puis tu sélectionnes le petit carré de la cellule A7 coin inférieur droit et tu tires jusqu'à la cellule qui te faut (exemple A1000)

ensuite tu sélectionnes toutes la colonne A

tu fais édition copier puis édition collage spécial / valeur

chantal

 

[Compte Supprimé 979]

Re : recopier plusieur cellule avec incrementation

Salut Nenex, bertgrav,

Ou avec un petit code du style :

Sub Test()
Dim NbSerie As Integer, NumLig As Integer
For NbSerie = 1 To 10
  For NumLig = 1 To 6
    Range("A" & NumLig + (6 * (NbSerie - 1))) = NbSerie
  Next NumLig
Next NbSerie
End Sub

Voilà 😉

 

[nenex]

Re : recopier plusieur cellule avec incrementation

merci a vous 2 pour votre aide. Dsl BrunoM45 mais la methode de bertgrav est plus simple 😀 Mais merci quand meme pour ton aide.