Récurrence

Résolu/Fermé

Vin100 - Modifié par Vin100 le 15/11/2011 à 08:34
Vin100 - 15 nov. 2011 à 10:07

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 !

1 réponse

Réponse 1 / 1

chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 308
15 nov. 2011 à 09:16

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.

Vin100
15 nov. 2011 à 09:24

Merci,

Je pensais passer par du VBA mais je n'y connais... rien

voici le lien :

http://cjoint.com/?AKpjye58PKP

Merci par avance

chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 308
15 nov. 2011 à 09:42

Voici un exemple : http://cjoint.com/11nv/AKpjPqz5y2W.htm.

Cordialement.

Vin100
15 nov. 2011 à 09:52

Merci, celà marche sur ton fichier mais sur le mien j'ai une erreur "Erreur d'exécution 6"
"Dépassement de capacité" et la ligne suivante est surligné en jaune :

derlig = Range("B" & Rows.Count).End(xlUp).Row

chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 308
Modifié par chossette9 le 15/11/2011 à 09:56

Effectivement, cela vient du fait que ma variable étant un entier, ne pourra prendre que des valeurs allant de -32768 à 32767.

Essaie de le passer en Double, ça devrait fonctionner. (remplacer Dim derlig As Integer par Dim derlig As Double).

Vin100
15 nov. 2011 à 10:07

Jte remercie, ça a mit du temps mais ça marche !

J'ai plus 'que' 5000 lignes maintenant !

Merci

Discussions similaires

Envoie email en récurrence

Prise aléatoire de valeur mais avec % de récurrence