Suite post Tableau evolutif

[anber]

Bonjour le Forum,

Besoin d'un coup de main pour finaliser mon code,

Il y a peut-être plus + simple et + court ?

J'ai fait ce que j'ai pu ...


Merci [file name=test_20060312131949.zip size=11071]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20060312131949.zip[/file]

 

[pierrejean]

bonjour anber

une autre version par des voies tres differentes

soit sur que si un de nos grands maitres passe par la il y aura bien mieux [file name=anber1.zip size=13092]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/anber1.zip[/file]

 

[anber]

Bonjour pierrejean

Merci pour ton code,

très nettement + pro


Cordialement

 

[pat1545.]

Salut anber

une autre façon qui devrait fonctionner:
Option Explicit
Sub COMPILA() ' patrick
Dim Cell As Range
Dim dep As Worksheet
Dim Myrange As Range
Dim tot, Titre
Set dep = Worksheets('base')
dep.Select
Dim I, Last
For Each Cell In Range('E1:IV1')
Titre = Cell.Value
If Cell.Value = 'Autre' Then Exit Sub
Last = Application.CountA(Rows(1))
For I = 2 To Last
If Cells(I, Cell.Column).Value = '' Then
Set Myrange = Sheets('GA').Range('A32000').End(xlUp)(2)
Myrange.Value = Titre
Myrange.Offset(0, 1).Value = tot
tot = 0
Exit For
GoTo suivant
End If
tot = Cells(I, Cell.Column).Value + tot
suivant:
Next
Next
End Sub

 

[anber]

Bonsoir pat1545


Merci pour ta réponse, j'essais aussi ton code

Cordialement