Sub modifactif(grade, datee, adresse, cp, ville, telfixe, telpro, telport, mail)
'modification de la feuille effectif_actifs
Sheets("effectif_actifs").Activate
With UserForm3.ComboBox1
If .ListIndex <> -1 Then
Cells(.ListIndex + 5, 3).Value = grade
Cells(.ListIndex + 5, 4).Value = datee
Cells(.ListIndex + 5, 5).Value = adresse
Cells(.ListIndex + 5, 6).Value = cp
Cells(.ListIndex + 5, 7).Value = ville
Cells(.ListIndex + 5, 9).Value = telfixe
Cells(.ListIndex + 5, 11).Value = telpro
Cells(.ListIndex + 5, 10).Value = telport
Cells(.ListIndex + 5, 12).Value = mail
End If
End With
'modification de la feuille effectif_amicale
Sheets("effectif_amicale").Activate
With UserForm3.ComboBox1
If .ListIndex <> -1 Then
Cells(.ListIndex + 5, 3).Value = grade
Cells(.ListIndex + 5, 4).Value = datee
Cells(.ListIndex + 5, 5).Value = adresse
Cells(.ListIndex + 5, 6).Value = cp
Cells(.ListIndex + 5, 7).Value = ville
Cells(.ListIndex + 5, 9).Value = telfixe
Cells(.ListIndex + 5, 11).Value = telpro
Cells(.ListIndex + 5, 10).Value = telport
End If
End With
'modification de la feuille manifestation
Sheets("manifestation").Activate
With UserForm3.ComboBox1
If .ListIndex <> -1 Then
Cells(.ListIndex + 11, 3).Value = grade
Cells(.ListIndex + 11, 5).Value = telfixe
Cells(.ListIndex + 11, 6).Value = telpro
Cells(.ListIndex + 11, 7).Value = telport
End If
End With
'modification de la feuille emargements
Sheets("emargements").Activate
With UserForm3.ComboBox1
If .ListIndex <> -1 Then
Cells(.ListIndex + 6, 3).Value = grade
End If
End With
'modification de la feuille emargements_amicale
Sheets("emargements_amicale").Activate
With UserForm3.ComboBox1
If .ListIndex <> -1 Then
Cells(.ListIndex + 6, 3).Value = grade
End If
End With
'modification de la feuille vacances
Sheets("vacances").Activate
With UserForm3.ComboBox1
If .ListIndex <> -1 Then
Cells(.ListIndex + 5, 3).Value = grade
End If
End With
'modification de la feuille publipostage-actifs
Sheets("publipostage-actifs").Activate
With UserForm3.ComboBox1
If .ListIndex <> -1 Then
Cells(.ListIndex + 2, 2).Value = grade
Cells(.ListIndex + 2, 3).Value = datee
Cells(.ListIndex + 2, 4).Value = adresse
Cells(.ListIndex + 2, 5).Value = cp
Cells(.ListIndex + 2, 6).Value = ville
End If
End With
End Sub