Bonjour à tous,

J'ai encore quelque difficulté avec le VBA et voilà pourquoi je vous sollicité.

J'aimerai insérer une ligne ,dans un tableau, au milieu de la colonne "A" mais certaines cellules sont fusionnées. Il faut également savoir que j'aurai plusieurs feuilles excel avec des cellules fusionnées et c'est pour cela que j'aimerai créer une macro.


J'ai alors trouvé un autre moyen : en comptant les cellules non vide avec la fonction Application.WorksheetFunction.CountA.
Mais voilà la ligne n'est pas créer au bon endroit car il ne prend pas en compte le nombre de cellule mais le numéro de ligne.

Vous trouverez ci-dessous le code ainsi que mon fichier:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub compter()
 
ws = Worksheet
 
With ws
 
X = Application.WorksheetFunction.CountA(Range("A1:A" & Range("A65536").End(xlUp).Row))
Mil = Int(X / 2)
Cells(Mil).Activate
ActiveCell(Mil).Offset(1).Resize(1, 1).EntireRow.Insert
ActiveCell(Mil).Value = "milieu"
End With
End Sub
Sur le fichier, il y a une cellule en rouge et c'est à partir de la que je souhaite insérer une ligne.

Merci pour vos réponses
vba comptage.xlsx