Bonjour =E0 toutes et =E0 tous.
Je souhaite via une macro VBA r=E9cup=E9rer la s=E9lection=20
(plage de cellules) effectu=E9e avec la souris. Seulement=20
voil=E0 :
La boite Inputbox qui attend cette r=E9ponse ne permet pas=20
d'aller dans la feuille (=3Dcliquer en dehors de la boite)=20
pour s=E9lectionner des cellules avec la souris et inscrire=20
le r=E9sultat dans le champ de saisie de la boite.
Je sais qu'on peut forcer cela (en d=E9sactivant ou activant=20
un param=E8tre, mais je ne sais pas lequel). Cela existait=20
du temps d'Excel 5, mais depuis ce n'est plus actif par=20
d=E9faut.
Si quelqu'un avait la solution, je l'en remercie par=20
avance.
Amicalement.
DL (pour un mail, enlever le K de nom adresse)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
Sub zzz() Dim plg As Range On Error Resume Next Set plg = Application.InputBox _ ("Sélection de la plage", "Récupération d'une adresse", , , , , , 8) If Err.Number <> 0 Then Exit Sub MsgBox plg.Address End Sub
AV
Sub zzz()
Dim plg As Range
On Error Resume Next
Set plg = Application.InputBox _
("Sélection de la plage", "Récupération d'une adresse", , , , , , 8)
If Err.Number <> 0 Then Exit Sub
MsgBox plg.Address
End Sub
Sub zzz() Dim plg As Range On Error Resume Next Set plg = Application.InputBox _ ("Sélection de la plage", "Récupération d'une adresse", , , , , , 8) If Err.Number <> 0 Then Exit Sub MsgBox plg.Address End Sub
AV
D.Lair
Merci Alain pour la réponse rapide ! Impeccable ! Je ne me souvenais plus de cette syntaxe incluant le type 8, et surtout j'avais oublié le type 8... Bonne continuation. DL
-----Message d'origine----- Sub zzz() Dim plg As Range On Error Resume Next Set plg = Application.InputBox _ ("Sélection de la plage", "Récupération d'une adresse", , , , , , 8)
If Err.Number <> 0 Then Exit Sub MsgBox plg.Address End Sub
AV
.
Merci Alain pour la réponse rapide !
Impeccable !
Je ne me souvenais plus de cette syntaxe incluant le type
8, et surtout j'avais oublié le type 8...
Bonne continuation.
DL
-----Message d'origine-----
Sub zzz()
Dim plg As Range
On Error Resume Next
Set plg = Application.InputBox _
("Sélection de la plage", "Récupération d'une
adresse", , , , , , 8)
If Err.Number <> 0 Then Exit Sub
MsgBox plg.Address
End Sub
Merci Alain pour la réponse rapide ! Impeccable ! Je ne me souvenais plus de cette syntaxe incluant le type 8, et surtout j'avais oublié le type 8... Bonne continuation. DL
-----Message d'origine----- Sub zzz() Dim plg As Range On Error Resume Next Set plg = Application.InputBox _ ("Sélection de la plage", "Récupération d'une adresse", , , , , , 8)
If Err.Number <> 0 Then Exit Sub MsgBox plg.Address End Sub
