Bonjour,
comme ceci peut-être
changer uniquement e15
Bonjour Gilbert, en effet votre feuille Excel fonctionne très bien merci mais quand je l'intègre dans mon programme rien ne va plus et j'ai toujours le même message d'erreur... J'avais simplifié un peu la partie de mon programme sur le forum. Voici la partie qui pose problème avec plus de détails :
...Début du Sub avec plusieurs If Not Intersert...
If Not Intersect(Target, Union(Cells(15, 5), Cells(18, 4), Cells(19, 5), Cells(20, 5))) Is Nothing Then
If Sheets("AW139 6,8T").Cells(15, 5) = "OUI" Then
Range("D18").Validation.Delete
Sheets("AW139 6,8T").Cells(18, 4) = Sheets("AW139 6,8T").Cells(19, 4) / Sheets("AW139 6,8T").Cells(20, 4)
Call ProtectionSelective
Call ETAT_Cent6
Calculate
ElseIf Sheets("AW139 6,8T").Cells(15, 5) = "NON" Then
Sheets("AW139 6,8T").Range("D18").Locked = False
With Range("D18").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="79,91"
End With
Call ProtectionSelective
Call ETAT_Cent6
Calculate
End If
End If
...Il y a d'autres If Not Intersect qui suivent et Fin du Sub...