XL 2010 vérifier sélection textbox

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
 

Eric C

XLDnaute Barbatruc
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 :
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.

Bonne soirée
@+ Eric c
 

Eric C

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

Discussions similaires

Statistiques des forums

Discussions
311 735
Messages
2 082 023
Membres
101 873
dernier inscrit
excellllll