Formule Copier/Coller Automatique

Fermé
scelera Messages postés 39 Date d'inscription lundi 10 juin 2013 Statut Membre Dernière intervention 3 décembre 2021 - 16 févr. 2016 à 10:29
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 16 févr. 2016 à 12:07
Bonjour,

Je travaille actuellement sur un fichier excel avec des centaines lignes de cellules. J'aimerai pouvoir automatiquement couper/coller la valeur de A1 en B1 et de A4 en C1 et répéter la même action pour tout le classeur de sorte que A7 soit en B2 et A10 en C2 et ainsi de suite.

Merci de votre aide !

2 réponses

Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
16 févr. 2016 à 10:41
Sub test()

m = 1
n = 1

Do Until Cells(m,1) = "" And Cells(m+3,1) = ""
Cells(n,2) = Cells(m,1)
Cells(n,3) = Cells(m+3,1)

m = m + 6
n = n +1

Loop
End Sub
0
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
16 févr. 2016 à 10:42
Le code s'arrête lorsqu'il n'y a plus rien en Am et en A(m+3) (par exemple en A13 et en A16)
0
scelera Messages postés 39 Date d'inscription lundi 10 juin 2013 Statut Membre Dernière intervention 3 décembre 2021
16 févr. 2016 à 10:51
Merci pour votre réponse rapide !
Cependant je suis sur un document googledocs, n'y a t'il pas moyen de mettre une formule dans une cellule ?
0
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
16 févr. 2016 à 10:54
C'est du code VBA, donc à utiliser sur Excel.. vous pouvez extraire votre document sous excel puis le réimporter une fois la macro exécutée
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 311
16 févr. 2016 à 12:07
Bonjour Scelera

Sur Excel:
en B1
=DECALER($A1;(NBVAL($A1:A1)-1)*3;0)
et tu tires vers la droite

en espérant que ça marche sur Google...
0