Bonjour,
En surfant sur la toile, j'ai trouvé le code ci-dessous qui me permet d'insérer 2 lignes entre chacune des lignes sélectionnées et qui inscrit automatiquement un "X" dans la première colonne. (grâce aussi à l'aide d'autre internaute...) Parfait cela fonctionne bien, je l'ai testé dans un fichier "contenant des infos sans rapport avec ce que je dois faire à la maison).
Mon problème est le suivant :
Quand je colle un de mes tableaux dans la feuille du fichier test (en laissant les données présentes sur cette feuille) je peux sans problèmes exécuter la macro dans mon tableau nouvellement collé dedans!
Mais quand je supprime toutes les autres données et ne laisser que mon "beau" tableau la macro ne fonctionne plus...
Quelqu'un pourrait-il m'aider à faire en sorte que ce code VBA fonctionne dans tous mes fichiers?
Voici le code:
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub Insert2lignes() Dim x As Integer For x = Range("A65536").End(xlUp).Row To 1 Step -1 If Not Intersect(Range("A" & x), Selection) Is Nothing Then Rows(x).Insert Shift:=xlDown Cells(x, 1) = "X" Rows(x).Insert Shift:=xlDown Cells(x, 1) = "X" End If Next
Partager