Bon dimanche à tous...
me revoila, avec un peu de retard:
J'ai travailler sur mes frais généraux et sur une macro dans mon classeur, avec la procédure Select case que j'utilise pour la première fois!
Et bien , ca va po!
Y a t il une bonne âme pour regarder à ma procédure vba!
Merci d'avance Claudy
Sub testFraisGeneraux()
Dim cel As Variant
For Each cel In Range("B2:B50")
Select Case cel.Value
Case cel.Value = Range("I2").Value 'Frais généraux1
Range("H1").End(xlDown).Offset(1, 0) = cel.Offset(0, 3).Value
Range("I1").End(xlDown).Offset(1, 0) = cel.Offset(0, 1).Value
Range("J1").End(xlDown).Offset(1, 0) = cel.Offset(0, 2).Value
Case cel = Range("M2").Value 'Frais généraux2
Range("L1").End(xlDown).Offset(1, 0) = cel.Offset(0, 3).Value
Range("M1").End(xlDown).Offset(1, 0) = cel.Offset(0, 1).Value
Range("N1").End(xlDown).Offset(1, 0) = cel.Offset(0, 2).Value
Case cel = Range("Q2").Value 'Frais généraux3
Range("P1").End(xlDown).Offset(1, 0) = cel.Offset(0, 3).Value
Range("Q1").End(xlDown).Offset(1, 0) = cel.Offset(0, 1).Value
Range("R1").End(xlDown).Offset(1, 0) = cel.Offset(0, 2).Value
End Select
Next
End Sub