1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
Sub Afficher_Form_Modif_Pièces()
Dim Réponse As Integer
MaLigne = ActiveCell.Row
'Vérifier qu'on est dans la plage des Pièces
If MaLigne < Range("Pièces").Row + 1 Or MaLigne > Range("Pièces").End(xlDown).Row Then
Réponse = MsgBox("Sélection incorrecte", vbOKOnly, "Modification de ligne")
If Réponse Then Exit Sub
End If
With UF_Pièces
.Titre.Caption = "Modifier une Pièce"
.Bouton_Dernier.Enabled = True
.Bouton_Précédent.Enabled = True
.Bouton_Premier.Enabled = True
.Bouton_Suivant.Enabled = True
End With
Call Initialiser_UF_Pièces
Call Lire_Pièces
UF_Pièces.Show
End Sub |
Partager