XL 2010 vérifier sélection textbox

[kadelmalin]

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

 

[Eric C]

Bonsoir kadelmalin, le forum

Ton code ainsi conçu, ne peut fonctionner car .Select n'agit pas de cette façon. Voici ce que je mettrai :

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.

Bonne soirée
@+ Eric c

 

[kadelmalin]

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.

 

[Eric C]

Bonjour kadelmalin

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.
@+