Discussion :

[Thebeginner]

Madame, Monsieur, Bonsoir....

Un grand merci à ceux qui passeront par là et qui, peut-être, me permettront enfin de trouver la solution.

J'ai un textbox et je souhaite que l'utilisateur ne puisse entrer comme texte uniquement l'adresse d'une cellule. Du type A12 ou B14 etc.

Mais, car il y a un mais, je ne souhaite pas utiliser REFEDIT, ceci n'est pas possible dans le projet que je développe. (l'adresse de la feuille et du classeur est déterminée autrement).

Quelqu'un connaitrait-il un code qui ressemblerait à cela, mais qui fonctionnerait?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
sub test
 
if not Textbox = range then
msgbox= "Vous n'avez pas entré une adresse de cellule"
end if
 
end sub

En vous remerciant beaucoup

[Jean-Pierre49]

Bonjour

en testant l'érreur par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
On Error GoTo A:
Range(TextBox1.Value).Select
 
Exit Sub
A:
MsgBox = "Vous n'avez pas entré une adresse de cellule"

Tu dis

Bonne journée

[Dormeur74]

Ce n'est peut-être pas la solution la plus élégante, mais on peut toujours capturer l'erreur 1004 lorsque la Textbox perd le focus.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  On Error GoTo GESTERROR
 
  MsgBox "OK"
 
  Exit Sub
 
GESTERROR:
If Err = 1004 Then
  MsgBox "Valeur de cellule invalide", vbCritical + vbOKOnly, "Erreur de saisie"
  TextBox1.Text = ""
  TextBox1.SetFocus
End If
End Sub

[Jean-Pierre49]

Bonjour Dormeur74

Comment tu teste l'erreur?

[Thebeginner]

Bonjour,

Merci à vous, c'est la solution de Jean-Pierre que j'ai prise. Je n'étais pas loin avec mes tentatives, mais cela m'oblige à resélectionner la cellule qui était active au lancement de la procédure... 3 lignes de plus, mais il semble que ce soit ce qu'il y a de mieux.

Merci à vous, bonne suite

[jfontaine]

Bonjour,

Comme cela on ne déselectionne pas la cellule active

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
On Error GoTo A
 
Evaluate (Range(TextBox1.Text).Address)
 
Exit Sub
A:
MsgBox "erreur"