Propriétés CanUndo, CanRedo, méthodes UndoAction, RedoAction – Exemple

L’exemple suivant montre comment annuler ou rétablir la modification de texte dans une zone de texte ou dans la zone de texte d’un contrôle ComboBox. Il vérifie si une opération d’annulation ou de rétablissement peut se produire, puis il exécute l’action appropriée. L’exemple utilise les propriétés CanUndo et CanRedo , ainsi que les méthodes UndoAction et RedoAction .

Pour utiliser cet exemple, copiez le code de l’exemple dans la partie Déclarations d’un formulaire. Vérifiez que le formulaire contient :

• TextBox nommé TextBox1.
• un ComboBox nommé ComboBox1.
• Deux contrôles CommandButton nommés CommandButton1 et CommandButton2.

Private Sub CommandButton1_Click() 
 If UserForm1.CanUndo = True Then 
 UserForm1.UndoAction 
 MsgBox "Undid IT" 
 Else 
 MsgBox "No undo performed." 
 End If 
End Sub 
 
Private Sub CommandButton2_Click() 
 If UserForm1.CanRedo = True Then 
 UserForm1.RedoAction 
 MsgBox "Redid IT" 
 Else 
 MsgBox "No redo performed." 
 End If 
End Sub 
 
Private Sub UserForm_Initialize() 
 TextBox1.Text = "Type your text here." 
 
 ComboBox1.ColumnCount = 3 
 ComboBox1.AddItem "Choice 1, column 1" 
 ComboBox1.List(0, 1) = "Choice 1, column 2" 
 ComboBox1.List(0, 2) = "Choice 1, column 3" 
 
 CommandButton1.Caption = "Undo" 
 CommandButton2.Caption = "Redo" 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.