Discussion :

[mzellebullee]

Bonjour à tous,

Etant une bleue des macros, je me permets de me tourner encore une fois vers ce forum...

En effet, je bug depuis une semaine sur un fichier que je dois transformer, sans succès . La réponse à mon problème doit être une macro car je n'y arrive pas via un simple tcd...

Je vous met en pj un exemple : de la base dont je dois partir, et du tableau final auquel je dois arriver...

Merci à tous ceux qui pourront me sortir de là :-)

Maurine

[defluc]

Bonjour,

C'est pas très clair mais voilà déjà une macro pour démarrer.

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
20
21
22
23
24
25
Option Explicit
Sub TableauFinal()
Dim RowNo As Long, FinShRow As Long
Dim Sh As Worksheet, FinSh As Worksheet
  RowNo = 2
  FinShRow = 3
  Set Sh = ThisWorkbook.Sheets("Base Exemple")
  Set FinSh = ThisWorkbook.Sheets("Tableau final ex")
  While Sh.Cells(RowNo, 1) <> ""
    If Sh.Cells(RowNo, 1) <> Sh.Cells(RowNo - 1, 1) Then
      FinSh.Cells(FinShRow, 1) = Sh.Cells(RowNo, 1)
      FinSh.Cells(FinShRow, 2) = Sh.Cells(RowNo, 2)
      FinSh.Cells(FinShRow, 3) = Sh.Cells(RowNo, 5)
      FinSh.Cells(FinShRow, 4) = Format(Sh.Cells(RowNo, 7), "mm/dd/yyyy")
      FinSh.Cells(FinShRow, 5) = Format(Sh.Cells(RowNo, 8), "mm/dd/yyyy")
      FinSh.Cells(FinShRow, 7) = Sh.Cells(RowNo, 6)
      FinShRow = FinShRow + 1
                                                    Else
 
    End If
    RowNo = RowNo + 1
  Wend
  Set Sh = Nothing
  Set FinSh = Nothing
End Sub

Tu devrais arriver à compléter en t'inspirant de ce code.

Bonne étude et bon travail

[mzellebullee]

Merci pour cette aide.

A priori le code soumit ne fait pas ce que je souhaite, mais je devrais (peut être :-) ) arriver à m'en inspirer pour traiter mon fichier.

Bonne journée!

[Philippe Tulliez]

Bonjour,
J'ajouterais que si tu veux obtenir plus de réponses il ne serait pas inutile que tu expliques par écrit sur ce forum et pas dans un classeur téléchargeable comment sont organisées tes données, ce que tu attends comme résultat et ce qui ne va pas dans le cas où tu aurais fait des essais.
En effet tous les participants n'ouvrent pas les classeurs.