Insertion de lignes dans une colonne
Résolu
zhimai
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 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.
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.
2 réponses
-
Bonjour
et copier ce n°.
et le coller où ? dans les 2 lignes ?
combien de lignes environ?
-
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
-
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.- 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
-
-
-
