Adresse variable de cellule

Bonjour ,

Dans une macro , il me faudrait rendre active une cellule en fonction de la réponse de l'utilisateur ..

A la question :"entrer le nom de la cellule où se trouve le mot "

si l'utilisateur répond A1 par exemple , il faut que l'adresse dans mot=Range("adresse")soit A1 .

Comment faut-il déclarer la variable "adresse "au début de la macro? (Dim ?????)

Merci de vos réponses .

Bonjour,

Un genre de code comme ceci :

Sub test()
'Dan 19/08/10
Dim a
a = Application.InputBox("entrer le nom de la cellule où se trouve le mot ")
Range(a).Select
End Sub

Amicalement

Sub CompteLettre()

'Macro Dan pour wanadoo le 15/08/10

'https://forum.excel-pratique.com/excel/fonction-en-vba-pour-compter-les-lettres-t18542.html

Dim mot As String

Dim plage As Range, cel As Range

Dim i As Byte

mot = Range("A2")

Set plage = Range("B2:B" & Range("B65536").End(xlUp).Row)

plage.Offset(0, 1).Clear

For i = 1 To Len(mot)

If Not IsNumeric(Mid(mot, i, 1)) Then

Set cel = plage.Find(Mid(mot, i, 1), LookIn:=xlValues, lookat:=xlWhole)

cel.Offset(0, 1) = cel.Offset(0, 1) + 1

End If

Next

End Sub

Bonjour ,

Voila ,Dan , ce que tu m'avais envoyé

Je m'en sers avec succès !

Maintenant , comment faut-il modifier cette macro pour qu'elle aille chercher le mot en question dans la cellule indiquée par l'utilisateur (à la réponse de InputBox ...? ) car il y aura 2 possibilités : soit le mot est en A2 , soit le mot est en A5?

Merci d'avance