kadelmalin
XLDnaute Occasionnel
Bonjour,
J'ai créée une petite macro qui a pour but d'écrire des valeurs dans 2 cellules quand je sélectionne un textbox à remplir mais celle-ci ne semble pas marcher; je voudrais bien que vous m'y aideriez.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Me.TextBox3.Select Then
Range("Q1") = 11
Range("R1") = 12
Else
Range("Q1") = ActiveCell.Row
Range("R1") = ActiveCell.Column
End If
End Sub
J'ai créée une petite macro qui a pour but d'écrire des valeurs dans 2 cellules quand je sélectionne un textbox à remplir mais celle-ci ne semble pas marcher; je voudrais bien que vous m'y aideriez.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Me.TextBox3.Select Then
Range("Q1") = 11
Range("R1") = 12
Else
Range("Q1") = ActiveCell.Row
Range("R1") = ActiveCell.Column
End If
End Sub