Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Stop ou encore ?

Stop ou encore ?

7 réponses
Avatar
Angel
Bonjour les gens,

J'aimerais pouvoir interrompre une macro afin que l'utilisateur sélectionne lui
même une cellule sur sa feuille de calcul et que la macro reprenne après sa
sélection.

Ca se fait, ça ?

Merci pour l'éclairage

--
+-+-+-+ Supprimer le texte entre # pour répondre +-+-+-+
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
Pascal Engelmajer
Salut,
il te faut créer un userform avec un contrôle RefEdit...
un bouton pour le fermer et tu récupere l'adresse dans Me.RefEdit1.Value
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Angel" <a_alonso@#NOSPAM#club-internet.fr> a écrit dans le message de news:
40b35628$0$19638$
Bonjour les gens,

J'aimerais pouvoir interrompre une macro afin que l'utilisateur
sélectionne lui

même une cellule sur sa feuille de calcul et que la macro reprenne après
sa

sélection.

Ca se fait, ça ?

Merci pour l'éclairage

--
+-+-+-+ Supprimer le texte entre # pour répondre +-+-+-+




Avatar
garnote
Bonjour Angel,

Une piste :

Sub Essai()
For i = 1 To 1000000
If i = 50000 Then
Set rep = Application.InputBox(prompt:="Sélectionnez une cellule", _
Type:=8)
rep.Value = "Bonjour"
End If
Next i
End Sub

Serge



"Angel" <a_alonso@#NOSPAM#club-internet.fr> a écrit dans le message de news:
40b35628$0$19638$
Bonjour les gens,

J'aimerais pouvoir interrompre une macro afin que l'utilisateur
sélectionne lui

même une cellule sur sa feuille de calcul et que la macro reprenne après
sa

sélection.

Ca se fait, ça ?

Merci pour l'éclairage

--
+-+-+-+ Supprimer le texte entre # pour répondre +-+-+-+




Avatar
Angel
Merci pour la piste, Serge.
En fait, ce que je voudrais, c'est récupérer les réf. de la cellule sélectionnée
et les coller dans une variable que j'utilise dans une autre fonction. (je ne
sais pas encore comment je vais faire ça, mais ça coute rien d'essayer. Sinon,
je reviens !).
;o)
Angel

"garnote" a écrit dans le message de
news:PVIsc.17055$
| Bonjour Angel,
|
| Une piste :
|
| Sub Essai()
| For i = 1 To 1000000
| If i = 50000 Then
| Set rep = Application.InputBox(prompt:="Sélectionnez une cellule", _
| Type:=8)
| rep.Value = "Bonjour"
| End If
| Next i
| End Sub
|
| Serge
|
|
|
| "Angel" <a_alonso@#NOSPAM#club-internet.fr> a écrit dans le message de news:
| 40b35628$0$19638$
| > Bonjour les gens,
| >
| > J'aimerais pouvoir interrompre une macro afin que l'utilisateur
| sélectionne lui
| > même une cellule sur sa feuille de calcul et que la macro reprenne après
| sa
| > sélection.
| >
| > Ca se fait, ça ?
| >
| > Merci pour l'éclairage
| >
| > --
| > +-+-+-+ Supprimer le texte entre # pour répondre +-+-+-+
| >
| >
|
|
Avatar
Angel
Merci pour l'info, Pascal
Pour l'instant je débute en VBA et je ne manipule pas terrible les userform.
Mais ça va me faire une occasion !
;o)
Amicalement
Angel

"Pascal Engelmajer" a écrit dans le message
de news:
| Salut,
| il te faut créer un userform avec un contrôle RefEdit...
| un bouton pour le fermer et tu récupere l'adresse dans Me.RefEdit1.Value
| --
| Amicalement.
| Pascal
| "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
| Sénèque.
| http://www.ilyapa.net/excel
| http://www.ilyapa.net/baseExcel
| "Angel" <a_alonso@#NOSPAM#club-internet.fr> a écrit dans le message de news:
| 40b35628$0$19638$
| > Bonjour les gens,
| >
| > J'aimerais pouvoir interrompre une macro afin que l'utilisateur
| sélectionne lui
| > même une cellule sur sa feuille de calcul et que la macro reprenne après
| sa
| > sélection.
| >
| > Ca se fait, ça ?
| >
| > Merci pour l'éclairage
| >
| > --
| > +-+-+-+ Supprimer le texte entre # pour répondre +-+-+-+
| >
| >
|
|
Avatar
Angel
Tout à l'air de bien fonctionner, sauf que ce que j'obtiens c'est le *contenu*
de la cellule et non la référence de la cellule.
rep étant un objet Range, comment récupérer cette référence ?
(j'en pose, des questions... ;o)
Merci

"garnote" a écrit dans le message de
news:PVIsc.17055$
| Bonjour Angel,
|
| Une piste :
|
| Sub Essai()
| For i = 1 To 1000000
| If i = 50000 Then
| Set rep = Application.InputBox(prompt:="Sélectionnez une cellule", _
| Type:=8)
| rep.Value = "Bonjour"
| End If
| Next i
| End Sub
|
| Serge
|
|
|
| "Angel" <a_alonso@#NOSPAM#club-internet.fr> a écrit dans le message de news:
| 40b35628$0$19638$
| > Bonjour les gens,
| >
| > J'aimerais pouvoir interrompre une macro afin que l'utilisateur
| sélectionne lui
| > même une cellule sur sa feuille de calcul et que la macro reprenne après
| sa
| > sélection.
| >
| > Ca se fait, ça ?
| >
| > Merci pour l'éclairage
| >
| > --
| > +-+-+-+ Supprimer le texte entre # pour répondre +-+-+-+
| >
| >
|
|
Avatar
garnote
Bonjour,

Essaie ceci :

Sub Contenu_Et_Adresses()
On Error Resume Next
Set cellule = Application.InputBox(Prompt:="Faites votre sélection.", _
Type:=8)
'Le contenu:
c = cellule.Value
'La référence:
r = cellule.Address
'Utilisation de r et c:
Range(r).Offset(2, 0) = c ^ 2
End Sub

Serge



"Angel" <a_alonso@#NOSPAM#club-internet.fr> a écrit dans le message de news:
40b45eb5$0$15199$
Tout à l'air de bien fonctionner, sauf que ce que j'obtiens c'est le
*contenu*

de la cellule et non la référence de la cellule.
rep étant un objet Range, comment récupérer cette référence ?
(j'en pose, des questions... ;o)
Merci

"garnote" a écrit dans le message de
news:PVIsc.17055$
| Bonjour Angel,
|
| Une piste :
|
| Sub Essai()
| For i = 1 To 1000000
| If i = 50000 Then
| Set rep = Application.InputBox(prompt:="Sélectionnez une cellule",
_

| Type:=8)
| rep.Value = "Bonjour"
| End If
| Next i
| End Sub
|
| Serge
|
|
|
| "Angel" <a_alonso@#NOSPAM#club-internet.fr> a écrit dans le message de
news:

| 40b35628$0$19638$
| > Bonjour les gens,
| >
| > J'aimerais pouvoir interrompre une macro afin que l'utilisateur
| sélectionne lui
| > même une cellule sur sa feuille de calcul et que la macro reprenne
après

| sa
| > sélection.
| >
| > Ca se fait, ça ?
| >
| > Merci pour l'éclairage
| >
| > --
| > +-+-+-+ Supprimer le texte entre # pour répondre +-+-+-+
| >
| >
|
|




Avatar
Angel
Alors là... nickel chrome !
ça marche du feu de dieu
(j'ai juste pas compris ce que faisait l'exemple d'utilisation de r et c, mais
ça me montre que j'ai encore pas mal de choses à apprendre)
Encore merci

Angel

"garnote" a écrit dans le message de
news:mQ0tc.17498$
| Bonjour,
|
| Essaie ceci :
|
| Sub Contenu_Et_Adresses()
| On Error Resume Next
| Set cellule = Application.InputBox(Prompt:="Faites votre sélection.", _
| Type:=8)
| 'Le contenu:
| c = cellule.Value
| 'La référence:
| r = cellule.Address
| 'Utilisation de r et c:
| Range(r).Offset(2, 0) = c ^ 2
| End Sub
|
| Serge
|
|
|
| "Angel" <a_alonso@#NOSPAM#club-internet.fr> a écrit dans le message de news:
| 40b45eb5$0$15199$
| > Tout à l'air de bien fonctionner, sauf que ce que j'obtiens c'est le
| *contenu*
| > de la cellule et non la référence de la cellule.
| > rep étant un objet Range, comment récupérer cette référence ?
| > (j'en pose, des questions... ;o)
| > Merci
| >
| > "garnote" a écrit dans le message de
| > news:PVIsc.17055$
| > | Bonjour Angel,
| > |
| > | Une piste :
| > |
| > | Sub Essai()
| > | For i = 1 To 1000000
| > | If i = 50000 Then
| > | Set rep = Application.InputBox(prompt:="Sélectionnez une cellule",
| _
| > | Type:=8)
| > | rep.Value = "Bonjour"
| > | End If
| > | Next i
| > | End Sub
| > |
| > | Serge
| > |
| > |
| > |
| > | "Angel" <a_alonso@#NOSPAM#club-internet.fr> a écrit dans le message de
| news:
| > | 40b35628$0$19638$
| > | > Bonjour les gens,
| > | >
| > | > J'aimerais pouvoir interrompre une macro afin que l'utilisateur
| > | sélectionne lui
| > | > même une cellule sur sa feuille de calcul et que la macro reprenne
| après
| > | sa
| > | > sélection.
| > | >
| > | > Ca se fait, ça ?
| > | >
| > | > Merci pour l'éclairage
| > | >
| > | > --
| > | > +-+-+-+ Supprimer le texte entre # pour répondre +-+-+-+
| > | >
| > | >
| > |
| > |
| >
| >
|
|