C
CHRIST46
Guest
bonjour a tous et a toutes,
j'ai editer une formule (voir ci desous)pour pouvoir avec un seul tableau faire plusieur personne avec un bouton toupi.cela fonctionne mai me prend que 12 nom alor que qu'il men faudrais plus ,je ne c'est pas ou est l'erreur j'espere que vous pouraient medait
Private Sub SpinButton1_Change()
NOM = Range("C1")
If NOM = "" Then Exit Sub
If NOM > 100 Then Exit Sub
Range("B1") = Choose(NOM, "AA", "BB", "CC", "DD", "EE", "FF", "GG", "HH", "II", "JJ", "KK", "LL", "MM", "NN", "OO", "PP", "QQ", "RR", "SS", "TT", "UU", "VV", "WW")
Range("B1😀1").Select
col = Choose(NOM, 33, 34, 35, 36, 37, 38, 39, 40, 24, 19, 42, 44, 20, 34, 35, 36, 37, 38, 39, 40, 24, 19, 42, 44, 33, 34, 35, 36, 37, 24)
Selection.Interior.ColorIndex = col
Range("D24").Select
Selection.Interior.ColorIndex = col
Range("A3😀23").Select
Selection.ClearContents
With Worksheets("FRAIS").Range("E27:E3000")
Set ladate = .Find(NOM * 1.1, LookIn:=xlValues)
If Not ladate Is Nothing Then
FirstADdress = ladate.Address
Do
a = a + 1
Cells(a + 2, 1) = ladate.Offset(0, -4)
Cells(a + 2, 2) = ladate.Offset(0, -3)
Cells(a + 2, 3) = ladate.Offset(0, -2)
Cells(a + 2, 4) = ladate.Offset(0, -1)
Set ladate = .FindNext(ladate)
Loop While Not ladate Is Nothing And ladate.Address <> FirstADdress
End If
End With
On Error GoTo bugg
Range("D24") = Cells(23, 4) + Cells(22, 4) + Cells(21, 4) + Cells(20, 4) + Cells(19, 4) + Cells(18, 8) + Cells(17, 4) + Cells(16, 4) + Cells(15, 4) + Cells(14, 4) + Cells(13, 4) + Cells(12, 4) + Cells(11, 8) + Cells(10, 4) + Cells(9, 4) + Cells(8, 4) + Cells(7, 8) + Cells(6, 8) + Cells(5, 8) + Cells(4, 4) + Cells(3, 4)
Range("D1").Select
Exit Sub
bugg:
Range("D1").Select
MsgBox ("Attention! à corriger sur le listing ci-dessous : il manque un montant sur le Nom : " & Range("B1"))
End Sub
merci a tous toute ,
j'ai editer une formule (voir ci desous)pour pouvoir avec un seul tableau faire plusieur personne avec un bouton toupi.cela fonctionne mai me prend que 12 nom alor que qu'il men faudrais plus ,je ne c'est pas ou est l'erreur j'espere que vous pouraient medait
Private Sub SpinButton1_Change()
NOM = Range("C1")
If NOM = "" Then Exit Sub
If NOM > 100 Then Exit Sub
Range("B1") = Choose(NOM, "AA", "BB", "CC", "DD", "EE", "FF", "GG", "HH", "II", "JJ", "KK", "LL", "MM", "NN", "OO", "PP", "QQ", "RR", "SS", "TT", "UU", "VV", "WW")
Range("B1😀1").Select
col = Choose(NOM, 33, 34, 35, 36, 37, 38, 39, 40, 24, 19, 42, 44, 20, 34, 35, 36, 37, 38, 39, 40, 24, 19, 42, 44, 33, 34, 35, 36, 37, 24)
Selection.Interior.ColorIndex = col
Range("D24").Select
Selection.Interior.ColorIndex = col
Range("A3😀23").Select
Selection.ClearContents
With Worksheets("FRAIS").Range("E27:E3000")
Set ladate = .Find(NOM * 1.1, LookIn:=xlValues)
If Not ladate Is Nothing Then
FirstADdress = ladate.Address
Do
a = a + 1
Cells(a + 2, 1) = ladate.Offset(0, -4)
Cells(a + 2, 2) = ladate.Offset(0, -3)
Cells(a + 2, 3) = ladate.Offset(0, -2)
Cells(a + 2, 4) = ladate.Offset(0, -1)
Set ladate = .FindNext(ladate)
Loop While Not ladate Is Nothing And ladate.Address <> FirstADdress
End If
End With
On Error GoTo bugg
Range("D24") = Cells(23, 4) + Cells(22, 4) + Cells(21, 4) + Cells(20, 4) + Cells(19, 4) + Cells(18, 8) + Cells(17, 4) + Cells(16, 4) + Cells(15, 4) + Cells(14, 4) + Cells(13, 4) + Cells(12, 4) + Cells(11, 8) + Cells(10, 4) + Cells(9, 4) + Cells(8, 4) + Cells(7, 8) + Cells(6, 8) + Cells(5, 8) + Cells(4, 4) + Cells(3, 4)
Range("D1").Select
Exit Sub
bugg:
Range("D1").Select
MsgBox ("Attention! à corriger sur le listing ci-dessous : il manque un montant sur le Nom : " & Range("B1"))
End Sub
merci a tous toute ,
