simplification des données dans un tableur excell

[sylvaing]

salut à tous.
Voila ma question
j'ai un tableau excelle contenant des chiffres (1 chiffre par cellule)
les chiffres sont assemblés en blocs par lots de 5 colonnes et 6 lignes.
par exemple :
11111555552222244444555558888877777
11111555552222244444555558888877777
11111555552222244444555558888877777
11111555552222244444555558888877777
11111555552222244444555558888877777
11111555552222244444555558888877777
99999000006666633333111117777766666
99999000006666633333111117777766666
99999000006666633333111117777766666
99999000006666633333111117777766666
99999000006666633333111117777766666
99999000006666633333111117777766666
moi je voudrais simplifier le fichier et n'avoir qu'un chiffre par bloc

ce qui donnerai dans mon exemple :
1524587
9063176

quelqu'un a une idée ????

merci d'avance
Sylvain

 

[Aliboron]

moi je voudrais simplifier le fichier et n'avoir qu'un chiffre par bloc

Dans quel contexte, quelle fréquence, etc ?

Tel que posé là, si c'est à faire une fois, tu sélectionnes les colonnes 2 à 9, tu supprimes, puis les colonnes 12 à 19, tu supprimes, etc. Ensuite, même chose pour les lignes...

Si c'est un travail répétitif (à refaire tous les jours, toutes les semaines...) si tu as Excel 2004, tu le fais par macro.

 

[sylvaing]

merci pour la demande de précision.
c'est un tableau de 150 colonnes par 100 lignes.
je dois le faire une seule fois je ne sais pas faire une macro.
j'imagine quelquechose comme select every 5 rows paste into sheet 2

select every 6 lines paste into sheet 2.

oui je ne suis pas programmeur :=)
sylvain

 

[Aliboron]

oui je ne suis pas programmeur

Bon, on va dire qu'on traite exactement ton exemple, il te restera à l'adapter aux conditions exactes.

Dans Excel, tu ouvres ton classeur de départ.
Puis tu vas dans "Outils" > "Macros..." > "Visual Basic Editor"
Dans le menu "Insertion" tu sélectionnes "Module" ce qui t'ouvrira une feuille blanche nommée "Module1"
Sur cette feuille tu colles le code ci-dessus.
Via le menu "Exécution", tu sélectionnes "Exécuter Sub/UserForm"
En principe, tout devrait bien se passer et tu peux faire "Pomme-Q" pour quitter l'éditeur et revenir à Excel. Là, il devrait y avoir un nouveau classeur avec une feuille unique, nommé "NouvelleFeuille" toute petite toute propre.

Sub Jivaro()
Sheets("MaFeuil").Copy  ' Remplacer "MaFeuil" par le nom de ta feuille
ActiveSheet.Name = "NouvelleFeuille" 

For i = 35 To 2 Step -5  ' Remplacer 35 par 150
Range(Cells(1, i), Cells(1, i - 3)).EntireColumn.Delete
Next i

For j = 12 To 2 Step -6   ' Remplacer 12 par la valeur appropriée (108 ?)
Range(Cells(j, 1), Cells(j - 4, 1)).EntireRow.Delete
Next j

End Sub

Si ça ne marche pas comme prévu, ton classeur d'origine n'a pas été touché. Décris précisément ce que tu observes et dis en quoi ça ne correspond pas à ce que tu voulais...