modification macro

Re : modification macro

.Range("B" & Me.LBnoagrement.ListIndex + 3 & ":F" & Me.LBnoagrement.ListIndex + 3).ClearContents

Remplacer le F par I

a+

Re : modification macro

bonsoir

merci pour ta réponse, effectivement ça supprime bien la ligne seulement les colonnes G et H devraient être décalées d'un cran vers le haut et ce n'est pas le cas , il suffit d'essayer de supprimer via le formulaire le premier agrément

merci

Le troubadour

Re : modification macro

Faire la même chose dans la procédure :

Private Sub Tri_agrements()
' Tri les numeros agrements
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Feuil1")
.Unprotect "281"
xlgn = .Range("B" & .Rows.Count).End(xlUp).Row
Set rng = .Range("B3:M" & xlgn)
rng.Sort Key1:=.Range("B3"), Order1:=xlAscending
End With
With ThisWorkbook.Worksheets("Feuil3")
.Unprotect "281"
xlgn = .Range("B" & .Rows.Count).End(xlUp).Row
Set rng = .Range("B3:M" & xlgn)
rng.Sort Key1:=.Range("B3"), Order1:=xlAscending
End With
Application.ScreenUpdating = True
End Sub

Re : modification macro

OK

merci beaucoup pour ton aide

a bientôt

Le troubadour