abtony
XLDnaute Impliqué
Bonjour a tous,
Voila ce code fonctionne parfaitement bien sur excel 2003 sous windows,
par contre a son exécution sous excel mac, il me ferme excel et je n'arrive a déterminé la cause du problème.
Pouvez vous éventuellement m'indiquer quelle en serait la cause ?
merçi d'avance ABtony
Voila ce code fonctionne parfaitement bien sur excel 2003 sous windows,
par contre a son exécution sous excel mac, il me ferme excel et je n'arrive a déterminé la cause du problème.
Pouvez vous éventuellement m'indiquer quelle en serait la cause ?
Code:
Private Sub LB1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If MsgBox("vous êtes sur le point de supprimer cette archive !", vbYesNo + vbCritical, "Avertissement :") = vbYes Then
Application.ScreenUpdating = False
With Sheets("Sous_Détails")
.Rows(Me.LB1.ListIndex + 1 + 7).EntireRow.Delete
Range("a20").EntireRow.Insert
End With
End If
Range("E8:e22").FormulaR1C1 = "=IF(RC[-4]>0,RC[-2]*RC[-1],"""")"
UserForm_Initialize
For X = 1 To 5
Controls("TB" & X) = ""
Next X
TB9.Value = Date
Range("DateModif").Value = TB9
End Sub
merçi d'avance ABtony