Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Définition d'un mot

14 réponses
Avatar
Guy72
Bonjour,
En "Feuil1", je souhaiterais faire apparaitre un UserForm avec la définition
du mot qui se trouve en G20.
Ce mot est issu d'une liste qui se trouve dans la colonne A de la "Feuil2"
et la définition en colonne B.
Merci de votre aide.
--
Cordialement
Guy

4 réponses

1 2
Avatar
FFO
Rebonjour Guy

Tu ne m'as pas dit qu'elle ligne d'instruction tu as utilisé pour faire
appel à ma macro "Définition" !!!

Merci de me le préciser
Avatar
Guy72
Salut FFO,
Quesque tu appelle ligne d'instruction ?
--
Cordialement
Guy

"FFO" a écrit dans le message de news:

Rebonjour Guy

Tu ne m'as pas dit qu'elle ligne d'instruction tu as utilisé pour faire
appel à ma macro "Définition" !!!

Merci de me le préciser


Avatar
Modeste
Bonsour® FFO avec ferveur ;o))) vous nous disiez :

Sub Définition()
On Error Resume Next
Définition = Sheets("Liste").Range("A1", "A" &
Sheets("Liste").Range("A65535").End(xlUp).Row).Find(What:=Range("BD20") ,
After:=Sheets("Liste").Range("A1"), LookIn:=xlValues, LookAt:=xlWhole,
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:úlse _
, SearchFormat:úlse).Offset(0, 1).Address
UserForm1.TextBox1.Text = Sheets("Liste").Range(Définition)
UserForm1.StartUpPosition = 3
UserForm1.Show
End If
End Sub



il y a certainement ambiguité entre
le nom de la fonction : Définition()
et la nom de la plage :
Sheets("Liste").Range(Définition)
;o)))


--
--
@+
;o)))
Avatar
Guy72
re FFO
Ok ça fonctionne.
Merci de votre aide.

--
Cordialement
Guy
"FFO" a écrit dans le message de news:

Rebonjour Guy

Tu ne m'as pas dit qu'elle ligne d'instruction tu as utilisé pour faire
appel à ma macro "Définition" !!!

Merci de me le préciser


1 2