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
Ton code ainsi conçu, ne peut fonctionner car .Select n'agit pas de cette façon. Voici ce que je mettrai :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If TextBox3.Value = "" Then
Range("Q1") = 11
Range("R1") = 12
Else
Range("Q1") = ActiveCell.Row
Range("R1") = ActiveCell.Column
End If
End Sub
Ps : Tu persistes, malgré les remarques déjà faites, à ne pas mettre de fichier en P.J et de ce fait ta demande n'intéresse pas les contributeurs qui sont passés sur ce fil.
Bonjour Eric,
Ce n'est pas le même fil. Le précédent je l'ai abandonné parce que le problème ne se pose pas sous excel 2010 mais uniquement sous une version postérieure. Merci quand même d'avoir répondu.
Je sais bien que ce n'est pas le même fil !!! Ce que je te dis c'est que tout comme le post précédent, tu ne joints pas de fichier ...
Dans le présent cas, c'est la réponse au présent message que je te donnes.
@+