La commande est simple, on écrit à droite de l'égalité l'élément qui va être lue et à gauche celui qui doit être modifié. Ce qui nous donne : TextBox2.Text = TextBox1.Text

Le deuxième bouton effectue l'opération inverse, le code devient simplement TextBox1.Text = TextBox2.Text Il faut bien évidemment associer ce code au deuxième bouton en double-cliquant dessus. Le troisième bouton efface le texte des deux zones de texte. Ils suffit de placer les deux lignes ci-dessous : TextBox2.Text = "" TextBox1.Text = "" Le quatrième bouton doit faire disparaitre les deux zones de texte les deux lignes de commande à associer à ce bouton sont : TextBox2.Visible = False TextBox1.Visible = False Le cinquième bouton quand à lui doit faire apparaître les deux zones de texte : TextBox2.Visible = True TextBox1.Visible = True Le sixième bouton est un bouton bascule : Il possède deux positions. Il est possible de savoir dans quel état est ce bouton grâce à sa propriété "Value". Cette propriété est à VRAI lorsque le bouton est enfoncé et à FAUX dans le cas contraire. Nous allons donc commencer par placer un test sur la propriété Value, qui va nous permettre de rendre active ou non les deux zones de texte en fonction de cette valeur. If ToggleButton1.Value = True Then TextBox2.Enabled = True TextBox1.Enabled = True Else TextBox2.Enabled = False TextBox1.Enabled = False End If

Private Sub CommandButton1_Click() Range("A2").Select Do If Selection.Value = TextBox1.Text Then Selection.Interior.Color = vbRed Selection.Offset(0, 2).Font.Color = vbGreen End If Selection.Offset(1, 0).Select Loop While Selection.Value "" End Sub

Il nous reste ensuite à programmer le deuxième bouton. Nous n'allons pas compliquer le traitement et annuler la mise en forme sur toute la colonne. Il n'y aura pas de traitement supplémentaire.

Private Sub CommandButton2_Click() Range("A:A").Interior.ColorIndex = xlNone Range("C:C").Font.ColorIndex = xlAutomatic End Sub

Exo5Cours

Private Sub