Création d'en tête de colonne en fonction de données

[Sissou71]

Bonjour,

Je souhaiterais créer des en-têtes de colonne dans un onglet en fonction de données dans un autre onglet.

Un fichier joint que j'explique :
Dans l'onglet "Contrat Client" je définis les données pour lesquelles le client a contracté un contrat
Dans l'onglet Stats mensuelles" je voudrais récupérer en entête de colonne les données pour lesquelles il y a un chiffre dans l'onglet "Contrat Client"

Merci pour votre aide

 

[sousou]

Re : Création d'en tête de colonne en fonction de données

bonjour sissou
pas sur avec une formule.
Mais ce code installé dans la feuille stats peut t'inspirer.
Private Sub Worksheet_Activate()
ActiveSheet.Rows(1).ClearContents
Set r = ActiveSheet.Range("b1")
n = 0
For Each i In Sheets("contrat client").UsedRange.Columns(3).Rows
If IsNumeric(i) = True And i > 0 Then
r.Offset(0, n) = i.Offset(0, -1)
n = n + 1
End If
Next
End Sub

 

[Sissou71]

Re : Création d'en tête de colonne en fonction de données

Merci beaucoup
Ca fonctionne très bien