Manip tableau excel

Bonjour,

j'ai une colle sur une manip excel svp

voici mon souci je dispose d'un premier tableau et souhaite en faire un second avec seulement une partie des données du premier tableau. voici l'exemple en pièce jointe.

Dans le second tableau je souhaite récupéré les données du premier tableau en excluant tous les zeros.
et comme j'ai pas mal d'autre tableau de ce genre j'aimerai automatiser cette tâche parce que manuellement ça demande beaucoup de temps.
une macro serait le top mais je vois pas comment je pourrais faire...

si vous avez des solutions n'hésitez pas ;)

Bonjour,

tes explications sont vraiment sommaires, comment veux-tu organiser ton tableau "résultat", pour l'instant je ne comprends pas trop au vu du fichier que tu proposes, d'accord il n'y a plus de zéros dans le 2ème.....la ligne a4 à f4 est transposée, les données ne sont plus dans le meme ordre, etc.

Expliques-toi mieux !

bonne soirée

oui desolé j'ai été un peu bref dans mes explications.

Donc le tableau se lis de façon croisé avec la colonne A et la ligne 4.
Le but étant de récupérer les données qui se croisent (en excluant les zéros) sous forme d'un nouveau tableau en trois colonnes :
Colonne 1 : le nombre à 6 chiffre.
Colonne 2 : valeur du croisement de la colonne A et de la ligne 4.
Colonne 3 : nombre à 3 chiffre de la ligne 4 à transposer en colonne.

La problématique semble-t-elle plus clair?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Set dest = Range("I5")   Set r = Range("A4:f14")   For col = 2 To r.Columns.Count   For lig = 2 To r.Rows.Count   If r.Cells(lig, col).Value <> 0 Then   DestLigne = DestLigne + 1 dest.Cells(DestLigne, 1).Value = r.Cells(lig, 1).Value dest.Cells(DestLigne, 2).Value = r.Cells(lig, col).Value dest.Cells(DestLigne, 3).Value = r.Cells(1, col).Value   End If   Next Next

---

Le code fonctionne parfaitement, cela repond à ma problématique.

Merci beaucoup :ccool: