Re : Appel d'une procédure dans une autre?
Bonsoir,
Déplaces juste ta ligne comme ici
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim NF As Worksheet, Feuille As Worksheet
If Not Intersect(Target, Range("a5")) Is Nothing Then
For Each Feuille In ThisWorkbook.Worksheets
If Target.Value = Val(Right(Feuille.Name, 2)) Then
If MsgBox("Feuille déjà existante, Afficher la feuille", vbInformation + vbYesNo, "Erreur:") = vbYes Then
Feuille.Activate
Exit Sub
Else
Exit Sub
End If
End If
Next
Majheures
With Range("A4:O42")
.Copy
Set NF = Worksheets.Add
NF.Range("A1").PasteSpecial xlPasteAll
NF.Name = "SEM " & Me.Range("A5") - 1
End With
Range("B7:O42").ClearContents
End If
Me.Activate
Application.ScreenUpdating = True
End Sub
Ca devrait fonctionner
A+
kjin