OVH Cloud OVH Cloud

refedit

3 réponses
Avatar
LOIC
bonsoir,

quelle solution pour pouvoir selectionner une cellule dans ue feuille avec
un userform ayant une propriete showmodal à false (ce qui m'empeche
d'utilise le refedit qui aurait été la solution)

Merci

3 réponses

Avatar
Frédéric Sigonneau
Bonjour,

Tu peux utiliser la méthode InputBox d'Excel. Par exemple :

Sub SelectCell()
Dim cell As Range
On Error Resume Next
Set cell = Application.InputBox("Sélectionnez une cellule", Type:=8)
If IsObject(cell) Then MsgBox cell.Address
End Sub

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

bonsoir,

quelle solution pour pouvoir selectionner une cellule dans ue feuille avec
un userform ayant une propriete showmodal à false (ce qui m'empeche
d'utilise le refedit qui aurait été la solution)

Merci




Avatar
LOIC
presque impect ;)

Comment faire pour avoir tout le temps le nom de fla feuille ET le range ?
ex : nom_feuille!range
Merci


"Frédéric Sigonneau" a écrit dans le message de
news:
Bonjour,

Tu peux utiliser la méthode InputBox d'Excel. Par exemple :

Sub SelectCell()
Dim cell As Range
On Error Resume Next
Set cell = Application.InputBox("Sélectionnez une cellule", Type:=8)
If IsObject(cell) Then MsgBox cell.Address
End Sub

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

bonsoir,

quelle solution pour pouvoir selectionner une cellule dans ue feuille
avec


un userform ayant une propriete showmodal à false (ce qui m'empeche
d'utilise le refedit qui aurait été la solution)

Merci






Avatar
michdenis
Bonjour Loic,

En reprenant le code de Frédéric, essaie ceci :

Sub SelectCell()
Dim cell As Range
On Error Resume Next
Set cell = Application.InputBox("Sélectionnez une cellule", Type:=8)
If IsObject(cell) Then MsgBox Cell.Parent.Name & "!" & Cell.Address(0,0)
End Sub


Salutations!


"LOIC" a écrit dans le message de news:
presque impect ;)

Comment faire pour avoir tout le temps le nom de fla feuille ET le range ?
ex : nom_feuille!range
Merci


"Frédéric Sigonneau" a écrit dans le message de
news:
Bonjour,

Tu peux utiliser la méthode InputBox d'Excel. Par exemple :

Sub SelectCell()
Dim cell As Range
On Error Resume Next
Set cell = Application.InputBox("Sélectionnez une cellule", Type:=8)
If IsObject(cell) Then MsgBox cell.Address
End Sub

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

bonsoir,

quelle solution pour pouvoir selectionner une cellule dans ue feuille
avec


un userform ayant une propriete showmodal à false (ce qui m'empeche
d'utilise le refedit qui aurait été la solution)

Merci