XL 2010 vérifier sélection textbox

kadelmalin · 9 Décembre 2021

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 · 9 Décembre 2021

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

kadelmalin · 10 Décembre 2021

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 · 10 Décembre 2021

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

XL 2010 vérifier sélection textbox

kadelmalin

XLDnaute Occasionnel

Eric C

XLDnaute Barbatruc

kadelmalin

XLDnaute Occasionnel

Eric C

XLDnaute Barbatruc

Discussions similaires

XL 2010 vérifier sélection textbox

kadelmalin

XLDnaute Occasionnel

Eric C

XLDnaute Barbatruc

kadelmalin

XLDnaute Occasionnel

Eric C

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency