Paramètrage TCD ou bien macro

Bonjour à tous

J'ai un souci que je n'arrive pas à résoudre. Dans un TCD on ne vois apparaitre que la 1ère valeur le reste est en blanc. Je ne trouve pas comment corrigé cela. Es un paramètre de windows 2007 à règler ? Peux être quelqu'un est capable si ce n'est possible, de créer une macro ? J'envoi un mini fichier pui prend avant et après.

Merci d'avance pour votre aide

Cdt

bonjour frankcin le forum

bah j'ai ouvert le fichier et après tu veux obtenir quoi en partant de ou ??? aucunes explications dans le fichier donc !!! ???

je sais c'est évident pour toi puisque c'est pour toi , mais nous ???

a+

papou

Bonjour

Dans le premier onglet c 'est lt TCD avant, avec comme expliqué des blancs qui remplacent la valeur du dessus et le deuxime onglet c'est après comme je le voudrais soit parce que je n'est pas paramétré le bon format soit parce qu'il faut absolument une macro pour arriver à ce résultat. Je précise que ce TCD fait des milliers de lignes. Encore merci de m'apporter votre aide

Bonsoir

Personne pour m'aider SVP ?

A bientot peut etre 8)

Bonsoir

Personne pour m'aider SVP ?

A bientot peut etre 8)

Bonsoir

Personne pour m'aider SVP ?

A bientot peut etre 8)

Bonsoir,

Avec ce code dans un module.

Sub test()
Dim i%, aCount%, bCount%, cCount%, dCount%, eCount%, fCount%, j%, k As Byte
Dim Data As Variant
With Sheets(1)
  ReDim Data(.Range("A1000").End(xlUp).Row - 4, 6)
  aCount = 1
  bCount = 1
  cCount = 1
  dCount = 1
  eCount = 1
  j = 1
  For i = 5 To .Range("A1000").End(xlUp).Row - 1
    If .Range("A" & i) <> "" Then
      Data(j, 0) = .Range("A" & i)
      aCount = 1
    Else
      Data(j, 0) = .Range("A" & i - aCount)
      aCount = aCount + 1
    End If
    If .Range("B" & i) <> "" Then
      Data(j, 1) = .Range("B" & i)
      bCount = 1
    Else
      Data(j, 1) = .Range("B" & i - bCount)
      bCount = bCount + 1
    End If
    If .Range("C" & i) <> "" Then
      Data(j, 2) = .Range("C" & i)
      cCount = 1
    Else
      Data(j, 2) = .Range("C" & i - cCount)
      cCount = cCount + 1
    End If
    If .Range("D" & i) <> "" Then
      Data(j, 3) = .Range("D" & i)
      dCount = 1
    Else
      Data(j, 3) = .Range("D" & i - dCount)
      dCount = dCount + 1
    End If
    If .Range("E" & i) <> "" Then
      Data(j, 4) = .Range("E" & i)
      eCount = 1
    Else
      Data(j, 4) = .Range("E" & i - eCount)
      eCount = eCount + 1
    End If
    Data(j, 5) = .Range("F" & i)
    j = j + 1
  Next
  For k = 0 To 5
    Data(0, k) = Cells(4, k + 1)
  Next k
  Data(UBound(Data), 0) = "Total"
  Data(UBound(Data), 5) = .Range("F1000").End(xlUp)
  Sheets(2).Range("A4:F" & .Range("F1000").End(xlUp).Row) = Data
End With
End Sub

Ça pique un peu les yeux, les puristes m'en voudront mais j'ai un peu la flemme d'alléger...

Dites moi quand même si ça vous convient.

Cdlt,

Darzou

Merci pour ce travail. Je vous dirais si ok a partir de dimanche car je post de Turquie.

Merci

Merci Bien Darzou c'est exactement ce qu'il me fallait.

Cdt