Suite post Tableau evolutif

  • Initiateur de la discussion Initiateur de la discussion anber
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

anber

XLDnaute Occasionnel
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]
 

Pièces jointes

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]
 

Pièces jointes

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour