Discussion :

[CDGESTION]

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

[casefayere]

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

[CDGESTION]

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?

[Docmarti]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[CDGESTION]

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

Merci beaucoup