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 Demande de faisabilité

Demande de faisabilité

4 réponses
Avatar
Starwing
Bonjour à tous,

A mon tour de poser une autre question...

En A1 j'ai le texte suivant:
ActiveWorkbook.Save
En A2 j'ai le texte suivant:
Application.Quit
etc...

Quel serais le code à mettre dans un module pour
effectuer la procédure de la cellule A1, A2 ,etc?

Case 1 ' Procédure de la requête A1
Range("A1").Execute ???? ' Ici je bloque....

Case 2 ' Procédure de la requête A2






Merci d'avance pour vos suggestions,
--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
StarwingT
brault-lavoieNOSPAM@sympatico.ca
--
Signaler un problème avec ce contenu

4 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
Pierre CFI [mvp]
bonjour
pas testé mais
evaluate(range("a1"))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Starwing" a écrit dans le message de news:
Bonjour à tous,

A mon tour de poser une autre question...

En A1 j'ai le texte suivant:
ActiveWorkbook.Save
En A2 j'ai le texte suivant:
Application.Quit
etc...

Quel serais le code à mettre dans un module pour
effectuer la procédure de la cellule A1, A2 ,etc?

Case 1 ' Procédure de la requête A1
Range("A1").Execute ???? ' Ici je bloque....

Case 2 ' Procédure de la requête A2






Merci d'avance pour vos suggestions,
--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
StarwingT

--




Avatar
Alain CROS
Bonjour

Sub Test(rg As Range)
Application.ExecuteExcel4Macro Right$([rg], Len([rg]) _
- InStr([rg], ".")) & "()"
End Sub

Sub Essai()
Test [A1]
End Sub

Alain CROS

"Starwing" a écrit dans le message de news:
Bonjour à tous,

A mon tour de poser une autre question...

En A1 j'ai le texte suivant:
ActiveWorkbook.Save
En A2 j'ai le texte suivant:
Application.Quit
etc...

Quel serais le code à mettre dans un module pour
effectuer la procédure de la cellule A1, A2 ,etc?

Case 1 ' Procédure de la requête A1
Range("A1").Execute ???? ' Ici je bloque....

Case 2 ' Procédure de la requête A2






Merci d'avance pour vos suggestions,
--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
StarwingT

--




Avatar
Starwing
Merci Alain CROS,

Çela fonctionne à merveille, je te remercie beaucoup de la réponse que tu
m'as faîtes.
Je vais pouvoir tester d'autres possibilités grâce à toi. ;0)

Pourrais-je pousser l'audace de te demander s'il existerait une solution
aussi élégante pour effectuer une Sub au complet...
exemple :
En A1:
Application.ScreenUpdating = False
Dim F As Worksheet
For Each F In ThisWorkbook.Worksheets
F.Visible = True
Next F
Application.ScreenUpdating = True


--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
StarwingT

--
"Alain CROS" a écrit dans le message de
news:%23A6$
Bonjour

Sub Test(rg As Range)
Application.ExecuteExcel4Macro Right$([rg], Len([rg]) _
- InStr([rg], ".")) & "()"
End Sub

Sub Essai()
Test [A1]
End Sub

Alain CROS

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


Bonjour à tous,

A mon tour de poser une autre question...

En A1 j'ai le texte suivant:
ActiveWorkbook.Save
En A2 j'ai le texte suivant:
Application.Quit
etc...

Quel serais le code à mettre dans un module pour
effectuer la procédure de la cellule A1, A2 ,etc?

Case 1 ' Procédure de la requête A1
Range("A1").Execute ???? ' Ici je bloque....

Case 2 ' Procédure de la requête A2






Merci d'avance pour vos suggestions,
--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
StarwingT

--








Avatar
Alain CROS
Bonjour

Sub EvaluCell(Rg As Range)
Dim I&, LeFile$
LeFile$ = CurDir & Application.PathSeparator & "LeMod"
I = FreeFile
Open LeFile For Output As #I
Print #I, "Sub ExecuteLaCell()"
Print #I, [Rg]
Print #I, "End Sub"
Close #I
With ThisWorkbook.Modules.Add
.InsertFile LeFile
Kill LeFile
Run "ExecuteLaCell"
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
End Sub'AC

Sub Test()
EvaluCell [A1]
End Sub

Alain CROS

"Starwing" a écrit dans le message de news: #
Merci Alain CROS,

Çela fonctionne à merveille, je te remercie beaucoup de la réponse que tu
m'as faîtes.
Je vais pouvoir tester d'autres possibilités grâce à toi. ;0)

Pourrais-je pousser l'audace de te demander s'il existerait une solution
aussi élégante pour effectuer une Sub au complet...
exemple :
En A1:
Application.ScreenUpdating = False
Dim F As Worksheet
For Each F In ThisWorkbook.Worksheets
F.Visible = True
Next F
Application.ScreenUpdating = True