Bonjour à tous
@tulipe_4
merci pour ta proposition, elle fonction, j'ai reproduit les colonnes en jaune en vba, pas de soucis pour ca(code ci-joint)...par contre la formule sommeprod ne fonctionne plus quand on change les colonnes ....(ici j'ai M,N,O)...
Je ne vois ou se trouve l'erreur....tu peux m'éclairer....j'ai exactement les mêmes chiffres...que dans tes colonnes jaunes et j'ai une div/0
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim A As Integer
'Domaine Musique
For A = 3 To 29
If Cells(A, 3) = "" Then
Cells(A, 13) = ""
Else
If Cells(A, 1) = "" Then
Cells(A, 13) = Application.WorksheetFunction.Max(Range("A3:A" & A - 1))
Else
Cells(A, 13) = Cells(A, 1)
End If
End If
Next A
' Domaine Parole
For A = 3 To 29
If Cells(A, 5) = "" Then
Cells(A, 14) = ""
Else
If Cells(A, 1) = "" Then
Cells(A, 14) = Application.WorksheetFunction.Max(Range("A3:A" & A - 1))
Else
Cells(A, 14) = Cells(A, 1)
End If
End If
Next A
' Domaine Danse
For A = 3 To 29
If Cells(A, 7) = "" Then
Cells(A, 15) = ""
Else
If Cells(A, 1) = "" Then
Cells(A, 15) = Application.WorksheetFunction.Max(Range("A3:A" & A - 1))
Else
Cells(A, 15) = Cells(A, 1)
End If
End If
Next A
End Sub
@Rrradassse, Jean-Eric
Merci pour vos propositions, Je les regarde en détails et je reviens vers vous tout à l'heure...
Oli