SI

Bonjour Serena,

Voici la formule que tu pourrais recopier de G8 à O41 :
=+SI($A8='Direct Energie '&$H$6&' Normal '&Q$7&' KW';1;0)
et de Q8 à Y41 :
=+SI($A8='Direct Energie '&$Q$6&' Normal '&Q$7&' KW';1;0)

Cependant, après contrôle, on ne retrouve pas la totalités des 34 lignes car ton libellé n'est pas homogène : il y a en général un espace entre 'Energie' et 'Tarif', mais pas toujours ! Et du coup, la formule donne 0 pour quelques lignes.

Si tu t'appliques à homogénéiser tes libellés, tu obtiendra le bon résultat.

Autre possibilité très adapté à priori à tes besoins, le tableau croisé dynamique :
- tu sélectionne Navette!$A$7:$F$41 puis tu choisies l'option Rapport de tableau croisé dynamique dans le menu Données ;
- tu fais suivant et tu cliques sur Disposition ;
- tu fais glisser ton champs produit vers la zone Lignes et ton champs Nom client dans la zone Données (tu devrais alors voir apparaître 'Nb Nom client' dans cette zone) ;
- tu valide la Disposition et tu cliques sur Terminer

Dis-moi ce que tu en penses !

A plus

salut

alors voila ce que j ai reussit a faire avec l aide des personnes du forum
cependant a la ligne 23 il y a un souci je t envoie le fichier pour que tu puisses voir [file name=SiSerena_20050223151211.zip size=19176]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SiSerena_20050223151211.zip[/file]

Salut !

Pour le bon fonctionnement de votre Macro ;
Je vous suggère que le texte dans la colonne 'A' soit identique.
Dès fois le direct contient un e on plus l’espace entre Energie et Tarif.
Bonne continuation.

Private Sub Workbook_Open()
Dim Lig, i, n, ValKW As Integer
Worksheets('navette').Activate
Lig = Range('A8').End(xlDown).Row
Cells(5, 7).Value = Len(Cells(8, 1).Value)
For i = 8 To Lig

If Trim(Mid(Cells(i, 1), 33, 3)) = 3 Then
Cells(i, 7).Value = 1

ElseIf Trim(Mid(Cells(i, 1), 33, 3)) = 6 Then
Cells(i, 8).Value = 1

ElseIf Trim(Mid(Cells(i, 1), 33, 3)) = 9 Then
Cells(i, 9).Value = 1

ElseIf Trim(Mid(Cells(i, 1), 33, 3)) = 12 Then
Cells(i, 10).Value = 1

ElseIf Trim(Mid(Cells(i, 1), 33, 3)) = 15 Then
Cells(i, 11).Value = 1

ElseIf Trim(Mid(Cells(i, 1), 33, 3)) = 18 Then
Cells(i, 12).Value = 1

ElseIf Trim(Mid(Cells(i, 1), 33, 3)) = 24 Then
Cells(i, 13).Value = 1

ElseIf Trim(Mid(Cells(i, 1), 33, 3)) = 30 Then
Cells(i, 14).Value = 1

ElseIf Trim(Mid(Cells(i, 1), 33, 3)) = 36 Then
Cells(i, 15).Value = 1


End If
Next
End Sub
:ermm: [file name=Solution.zip size=14523]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Solution.zip[/file]