Macro Excel -> Suppression de Lignes [VBA] - VB/VBA/VBS - Programmation
Marsh Posté le 09-06-2005 à 14:45:20
tu peux être un poil plus précis sur le "Ca marche pas"
parce que chez moi ca marche trés bien !!
Marsh Posté le 09-06-2005 à 15:07:16
disons que le script marche en règle générale mais pas sur ma feuille.
anyway, j'ai contourné le problème en détectant les lignes où il y avait effectivement une valeur et en copiant toutes ces lignes dans uen autre feuille.
Merci
Marsh Posté le 09-06-2005 à 13:53:14
Bonjour à tous
Je travaille actuellement sur une feuille Excel qui sert à une déclaration de TVA.
Le principe même de la TVA est que le nombre de lignes est toujours différent à chaque mois. Aussi, j'ai recopié certaines formules de retraitement sur environ 1000 lignes afin de bien prendre en compte toutes les lignes.
Cependant le logiciel qui importe la feuille Excel a un "petit" problème, Excel aussi d'ailleurs.
Malgré une macro ne recopiant que les valeurs (et non les formules), Excel garde environ 200 ou 300 lignes vides (pas de formule, pas de valeurs) mais impossible de supprimer ces lignes. Lors de l'importation vers le logiciel, celui-ci détecte (à tort) des lignes en trop et importe des données vides également.
J'ai testé plusieurs scripts VBA pour supprimer les lignes vides à partir de la première ligne "vide" mais pas possible. J'ai des lignes en trop.
Quelqu'un a une idée ?
Ci joint, le code utilisé pour enlever les lignes vides, qui ne marche pas dans mon cas.
Sub Coupe_Ligne()
nbligne = ActiveSheet.UsedRange.Rows.Count
nbligne = nbligne + ActiveSheet.UsedRange.Row - 1
Application.ScreenUpdating = False 'Supprime les lignes vides
For i = nbligne To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then Rows(i).Delete
Next i
End Sub
Merci !
Oizo
Message édité par Oizo10 le 09-06-2005 à 13:58:06