Optimisation

Bonjour Gege,

Essaie ceci :

Tu dois renseigné dans la procédure le nom de la feuille où la macro doit s'exécuter ...

Et dans cette ligne de code :
If ma_date = "Date" Or ma_date = "" Then

Ta procédure ne définit pas la valeur de "Date" , tu devras y voir !


'--------------------------------------
Sub Demande_effacement()

Ligne = ActiveCell.Row

With Worksheets("Feuil2")
With .Range("A" & Ligne)
ma_date = .Value
nom = .Offset(0, 1).Value
prénom = .Offset(0, 2).Value

If ma_date = "Date" Or ma_date = "" Then
MsgBox "Il n'y a pas de saisie !"
Exit Sub
End If

If MsgBox("Voulez-vous effacer la saisie effectuée le : " _
& ma_date & " " & vbNewLine & "concernant le dossier de : " _
& nom & " " & prénom & " ?", vbQuestion + vbYesNo, _
"Effacement ?") = vbYes Then

.Resize(, 5).ClearContents
End If
End With
MsgBox "La saisie a été effacée." & vbNewLine & _
"Ce tableau va être trié par date.", vbOKOnly, _
"Fin de l 'effacement."

With .Range("A3:E100")
.Sort Key1:=.Item(1), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:úlse, Orientation:=xlTopToBottom
End With
.Range("A1").Activate
End With

End Sub
'--------------------------------------


Salutations!



"Gege" <Gege@discussions.microsoft.com> a écrit dans le message de news:063701c3c9fd$e78be600$a401280a@phx.gbl...

Bonjour, cette proc fonctionne très bien, mais je pense
que l'on peut l'optimiser, pouvez vous me conseiller ?
Merci beaucoup
Gege


Sub Demande_effacement( )

Application.ScreenUpdating = False

Range("A" & ActiveCell.Row).Select

ma_date = ActiveCell.Offset(0, 0).Value
nom = ActiveCell.Offset(0, 1).Value
prénom = ActiveCell.Offset(0, 2).Value

If ma_date = "Date" Then MsgBox "Il n'y a pas de
saisie !": Exit Sub

If ma_date = "" Then MsgBox "Il n'y a pas de
saisie !": Exit Sub


If MsgBox("Voulez-vous effacer la saisie effectuée
le : " & ma_date & " " _
& vbNewLine & "concernant le dossier de : " & nom
& " " & prénom & " ?", _
vbQuestion + vbYesNo, "Effacement ?") = vbYes Then


Range("A" & ActiveCell.Row & ":E" &
ActiveCell.Row).Select

Selection.ClearContents
Application.ScreenUpdating = True

MsgBox "La saisie a été effacée." & vbNewLine & _
"Ce tableau va être trié par date.", vbOKOnly, "Fin de
l'effacement."

Range("A3:E100").Select

Selection.Sort Key1:=Range("A3"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom

Range("A1").Select

End If

End Sub

bonjour Denis,
Une question si tu le permets
que signifie
.Resize(, 5).ClearContents
merci
Alpha



"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uwBKfpiyDHA.1760@TK2MSFTNGP10.phx.gbl...

Bonjour Gege,

Essaie ceci :

Tu dois renseigné dans la procédure le nom de la feuille où la macro doit
s'exécuter ...

Et dans cette ligne de code :
If ma_date = "Date" Or ma_date = "" Then

Ta procédure ne définit pas la valeur de "Date" , tu devras y voir !


'--------------------------------------
Sub Demande_effacement()

Ligne = ActiveCell.Row

With Worksheets("Feuil2")
With .Range("A" & Ligne)
ma_date = .Value
nom = .Offset(0, 1).Value
prénom = .Offset(0, 2).Value

If ma_date = "Date" Or ma_date = "" Then
MsgBox "Il n'y a pas de saisie !"
Exit Sub
End If

If MsgBox("Voulez-vous effacer la saisie effectuée le : " _
& ma_date & " " & vbNewLine & "concernant le dossier de : " _
& nom & " " & prénom & " ?", vbQuestion + vbYesNo, _
"Effacement ?") = vbYes Then

.Resize(, 5).ClearContents
End If
End With
MsgBox "La saisie a été effacée." & vbNewLine & _
"Ce tableau va être trié par date.", vbOKOnly, _
"Fin de l 'effacement."

With .Range("A3:E100")
.Sort Key1:=.Item(1), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:úlse, Orientation:=xlTopToBottom
End With
.Range("A1").Activate
End With

End Sub
'--------------------------------------


Salutations!



"Gege" <Gege@discussions.microsoft.com> a écrit dans le message de
news:063701c3c9fd$e78be600$a401280a@phx.gbl...

Bonjour, cette proc fonctionne très bien, mais je pense
que l'on peut l'optimiser, pouvez vous me conseiller ?
Merci beaucoup
Gege


Sub Demande_effacement( )

Application.ScreenUpdating = False

Range("A" & ActiveCell.Row).Select

ma_date = ActiveCell.Offset(0, 0).Value
nom = ActiveCell.Offset(0, 1).Value
prénom = ActiveCell.Offset(0, 2).Value

If ma_date = "Date" Then MsgBox "Il n'y a pas de
saisie !": Exit Sub

If ma_date = "" Then MsgBox "Il n'y a pas de
saisie !": Exit Sub


If MsgBox("Voulez-vous effacer la saisie effectuée
le : " & ma_date & " " _
& vbNewLine & "concernant le dossier de : " & nom
& " " & prénom & " ?", _
vbQuestion + vbYesNo, "Effacement ?") = vbYes Then


Range("A" & ActiveCell.Row & ":E" &
ActiveCell.Row).Select

Selection.ClearContents
Application.ScreenUpdating = True

MsgBox "La saisie a été effacée." & vbNewLine & _
"Ce tableau va être trié par date.", vbOKOnly, "Fin de
l'effacement."

Range("A3:E100").Select

Selection.Sort Key1:=Range("A3"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom

Range("A1").Select

End If

End Sub