Récurrence
Résolu
Vin100
-
Vin100 -
Vin100 -
Bonjour,
J'ai un fichier de 35000 lignes, dans ce fichier j'ai tout le temps le même tableau qui se repète X fois, il fait 8 lignes et je souhaiterai à a chaque fois supprimé les lignes 2/4/5/6/7/8, juste garder 1 et 3, comment faire pour éviter de le faire manuellement ?
De plus que jouhaite que la ligne 3 se mette sur la ligne 1 en colonne C (Colonne A = libellé, B = information , C = vide )
Je pourrais joindre le fichier mais j'ai peur qu'il soit trop volumineux.
Cordialement et bonne journée !
J'ai un fichier de 35000 lignes, dans ce fichier j'ai tout le temps le même tableau qui se repète X fois, il fait 8 lignes et je souhaiterai à a chaque fois supprimé les lignes 2/4/5/6/7/8, juste garder 1 et 3, comment faire pour éviter de le faire manuellement ?
De plus que jouhaite que la ligne 3 se mette sur la ligne 1 en colonne C (Colonne A = libellé, B = information , C = vide )
Je pourrais joindre le fichier mais j'ai peur qu'il soit trop volumineux.
Cordialement et bonne journée !
1 réponse
Bonjour,
je pense qu'il est possible de faire ce que tu veux via une macro VBA.
Peux-tu nous joindre un extrait de ton fichier ? Mets-nous quelques tableaux dans une première feuille, correspondant à ton départ, et dans une seconde feuille le même nombre de tableaux selon leur forme finale.
Dépose ton fichier sur cjoint.com, et colle ensuite le lien donné dans ta réponse.
Cordialement.
je pense qu'il est possible de faire ce que tu veux via une macro VBA.
Peux-tu nous joindre un extrait de ton fichier ? Mets-nous quelques tableaux dans une première feuille, correspondant à ton départ, et dans une seconde feuille le même nombre de tableaux selon leur forme finale.
Dépose ton fichier sur cjoint.com, et colle ensuite le lien donné dans ta réponse.
Cordialement.
Je pensais passer par du VBA mais je n'y connais... rien
voici le lien :
http://cjoint.com/?AKpjye58PKP
Merci par avance
Cordialement.
"Dépassement de capacité" et la ligne suivante est surligné en jaune :
derlig = Range("B" & Rows.Count).End(xlUp).RowEssaie de le passer en Double, ça devrait fonctionner. (remplacer Dim derlig As Integer par Dim derlig As Double).
J'ai plus 'que' 5000 lignes maintenant !
Merci