Insertion de lignes dans une colonne

Résolu
zhimai -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,


j'ai un fichier excel avec une numérotation incrémentée dans une colonne et je voudrais insérer 2 lignes sous chaque N° et copier ce n°.

Merci de votre aide.
A voir également:

2 réponses

Réponse 1 / 2
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour

et copier ce n°.
et le coller où ? dans les 2 lignes ?


combien de lignes environ?

0
zhimai
 
En fait je veux passer de
1
2
3
4
...
à
1
1
1
2
2
2
3
3
3
...
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314 > zhimai
 
bonjour

rappel:combien de lignes environ ?

quelle est la colonne de numérotation et combien de colonnes dans le tableau (par ex A à EZ)
0
zhimai > michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention  
 
Bonjour Michel,

J'ai 700 lignes et une seule colonne (A)
0
Réponse 2 / 2
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
proposition de code
départ de la restitution en A1 

Option Explicit
'------------------------------------------
Sub inserer_2lignes()
Dim Maxi As Integer
Dim T_out() As Integer, Cptr As Integer, Lig As Integer

    Application.ScreenUpdating = False
    
    Maxi = Application.Max(Columns("A"))
    ReDim T_out(1 To Maxi * 3)
    Cptr = 1
     For Lig = 1 To Maxi
        T_out(Cptr) = Lig
        T_out(Cptr + 1) = Lig
        T_out(Cptr + 2) = Lig
        Cptr = Cptr + 3
     Next
    Range("A1").Resize(UBound(T_out), 1) = Application.Transpose(T_out)
End Sub


si tu n'as pas activé les macros fait signe en précisant ta version Excel
0
zhimai
 
Merci.
J'ai bien activé les macros dans excel mais après, je fais quoi ?
J'ai enregistré une macro dans excel, j'ai copié la macro mais ça ne fonctionne pas !
Désolé mais je n'ai jamais utilisé de macro dans excel.
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314 > zhimai
 
je reprends toute la procédure d'installation XL>=2007

Activer les macros:
rond office- -options Excel
1/standard
cocher " onglet développeur dans ruban "
2/gestion confidentialité- paramètres centre gestion-confidentialité
Activer toutes les macros (il n'y a plus de risques en 2014...)

installer la macro

1/faire un copier de la macro
Alt+F11
Insertion -module
Coller la macro


ruban développeur
macros
exécuter
0
zhimai
 
C'est bon, j'ai trouvé et ça marche !!!
Super.
Merci beaucoup
0
zhimai
 
Dernière chose : comment je fais si je veux sauvegarder la macro ?
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314 > zhimai
 
lorsque tu sauvegardes ton classeur la macro est automatiquement sauvegardé
mais il est + plus prudent de le faire une fois la macro installée (clic sur icone disquettedans l'éditeur VBA)

Bon WE
0