modification macro

[letroubadour]

bonsoir à tous

dans mon fichier en PJ j'ai un soucis lorsque je supprime une ligne via le formulaire, sur la feuille 1 pas de soucis mais sur la feuille 2 lorsque la ligne s'efface les "VRAI" "FAUX" des colonnes G et H ne sont pas supprimés. ( voir ligne 13)

lorsque c'est en milieu de tableau ça décale tous et les "M.", "Mme" ne correspondent plus aux prénoms

je pense que dans la macro "supprimer" du formulaire il faudrait pour rajouter la suppression des "VRAI" et FAUX"

j'espère avoir été assez clair

le MdP est 281

fichier a telecharger à l'adresse suivante : Free - Envoyez vos documents


merci

Le troubadour

 

[CHALET53]

Re : modification macro

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

Remplacer le F par I

a+

 

[letroubadour]

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

 

[CHALET53]

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

 

[letroubadour]

Re : modification macro

OK

merci beaucoup pour ton aide

a bientôt

Le troubadour