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 FormulaLocal

FormulaLocal

14 réponses
Avatar
bartez
Bonsoir !

QQun peut-il me dire pourquoi la ligne suivante ne me retourne pas un
tableau contenant toutes les formules de ma feuille ?
Syntaxe_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).FormulaLocal

Merci de votre aide
Signaler un problème avec ce contenu

10 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
1 2
Avatar
michdenis
Bonjour Bartez,

Essaie ceci :
La méthode SpecialCells provoque une erreur 91 lorsqu'elle ne trouve pas de cellules équivalentes à ce qu'elle cherche !

Dans la boucle For each ... J'ai mis un stop pour faciliter l'arrêt de la macro.

'-----------------------------------
Sub AfficherLesFormules()

Dim Rg As Range
On Error Resume Next
Set Rg = Feuil1.UsedRange.SpecialCells(xlCellTypeFormulas)

If Err <> 0 Then
Err = 0
Exit Sub
End If

For Each c In Rg
MsgBox c.FormulaLocal
Stop
Next
Set Rg = Nothing
End Sub
'-----------------------------------


Salutations!



"bartez" a écrit dans le message de news: %
Bonsoir !

QQun peut-il me dire pourquoi la ligne suivante ne me retourne pas un
tableau contenant toutes les formules de ma feuille ?
Syntaxe_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).FormulaLocal

Merci de votre aide
Avatar
bartez
Bonjour Denis,

Je ne comprends pas pourquoi ma ligne de code ne fonctionne pas.
Dans la feuille il y a toujours des formules et le débuger ne me signale
aucune erreur.
enfait je cherche à copier facilement les formules d'une feuille sur une
autre et surtout au même emplacement (de façon simple et rapide) et je
pensais utiliser qqchose comme :

Ces 2 ligne pour récupérer les infos.

Addresse_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).Address

Syntaxe_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).FormulaLocal

Puis faire une boucle pour les reposer :

Avec addresse_des_formules je récupère bien une chaine qui je pense peut
être utilisable sans trop de mal, mais pour les formules .... j'ai rien :(

Je vais quand même regarder ton code, mais je ne pourrais pas avant ce soir.

@+ Bartez

"michdenis" a écrit dans le message de news:
#z5AZP#
Bonjour Bartez,

Essaie ceci :
La méthode SpecialCells provoque une erreur 91 lorsqu'elle ne trouve pas
de cellules équivalentes à ce qu'elle cherche !


Dans la boucle For each ... J'ai mis un stop pour faciliter l'arrêt de la
macro.


'-----------------------------------
Sub AfficherLesFormules()

Dim Rg As Range
On Error Resume Next
Set Rg = Feuil1.UsedRange.SpecialCells(xlCellTypeFormulas)

If Err <> 0 Then
Err = 0
Exit Sub
End If

For Each c In Rg
MsgBox c.FormulaLocal
Stop
Next
Set Rg = Nothing
End Sub
'-----------------------------------


Salutations!



"bartez" a écrit dans le message de news:
%

Bonsoir !

QQun peut-il me dire pourquoi la ligne suivante ne me retourne pas un
tableau contenant toutes les formules de ma feuille ?
Syntaxe_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).FormulaLocal

Merci de votre aide





Avatar
michdenis
Bonjour Bartez,

Cette macro copie toutes les formules de la feuille 2
vers la feuille 3 à la même adresse que la feuille source.

'--------------------------------
Sub CopieDeFormulesDuneFeuilleAlautre()

On Error Resume Next
'Feuille source
With Worksheets("Feuil2")
adr = .UsedRange.SpecialCells _
(xlCellTypeFormulas).Address
End With

'Cette fonction "Split" requiert excel 2000
'ou plus récent
t = Split(adr, ",")

'Feuille destination
With Worksheets("Feuil3")
For Each a In t
.Range(a).FormulaLocal = _
Worksheets("Feuil2").Range(a).FormulaLocal
Next
End With

End Sub
'-----------------------------------


Salutations!



"bartez" a écrit dans le message de news:
Bonjour Denis,

Je ne comprends pas pourquoi ma ligne de code ne fonctionne pas.
Dans la feuille il y a toujours des formules et le débuger ne me signale
aucune erreur.
enfait je cherche à copier facilement les formules d'une feuille sur une
autre et surtout au même emplacement (de façon simple et rapide) et je
pensais utiliser qqchose comme :

Ces 2 ligne pour récupérer les infos.

Addresse_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).Address

Syntaxe_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).FormulaLocal

Puis faire une boucle pour les reposer :

Avec addresse_des_formules je récupère bien une chaine qui je pense peut
être utilisable sans trop de mal, mais pour les formules .... j'ai rien :(

Je vais quand même regarder ton code, mais je ne pourrais pas avant ce soir.

@+ Bartez

"michdenis" a écrit dans le message de news:
#z5AZP#
Bonjour Bartez,

Essaie ceci :
La méthode SpecialCells provoque une erreur 91 lorsqu'elle ne trouve pas
de cellules équivalentes à ce qu'elle cherche !


Dans la boucle For each ... J'ai mis un stop pour faciliter l'arrêt de la
macro.


'-----------------------------------
Sub AfficherLesFormules()

Dim Rg As Range
On Error Resume Next
Set Rg = Feuil1.UsedRange.SpecialCells(xlCellTypeFormulas)

If Err <> 0 Then
Err = 0
Exit Sub
End If

For Each c In Rg
MsgBox c.FormulaLocal
Stop
Next
Set Rg = Nothing
End Sub
'-----------------------------------


Salutations!



"bartez" a écrit dans le message de news:
%

Bonsoir !

QQun peut-il me dire pourquoi la ligne suivante ne me retourne pas un
tableau contenant toutes les formules de ma feuille ?
Syntaxe_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).FormulaLocal

Merci de votre aide





Avatar
bartez
Bonsoir Denis,

Merci bien pour ton code, je viens de le tester et il effectue exactement ce
que je recherchais à faire. Je vais l'adapter à mon context en lui changeant
seulement le nom des feuilles.
Peux tu me dires pourquoi tu as utilisé la commande Split ?

@mic Bartez

"michdenis" a écrit dans le message de news:
#
Bonjour Bartez,

Cette macro copie toutes les formules de la feuille 2
vers la feuille 3 à la même adresse que la feuille source.

'--------------------------------
Sub CopieDeFormulesDuneFeuilleAlautre()

On Error Resume Next
'Feuille source
With Worksheets("Feuil2")
adr = .UsedRange.SpecialCells _
(xlCellTypeFormulas).Address
End With

'Cette fonction "Split" requiert excel 2000
'ou plus récent
t = Split(adr, ",")

'Feuille destination
With Worksheets("Feuil3")
For Each a In t
.Range(a).FormulaLocal = _
Worksheets("Feuil2").Range(a).FormulaLocal
Next
End With

End Sub
'-----------------------------------


Salutations!



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


Bonjour Denis,

Je ne comprends pas pourquoi ma ligne de code ne fonctionne pas.
Dans la feuille il y a toujours des formules et le débuger ne me signale
aucune erreur.
enfait je cherche à copier facilement les formules d'une feuille sur une
autre et surtout au même emplacement (de façon simple et rapide) et je
pensais utiliser qqchose comme :

Ces 2 ligne pour récupérer les infos.

Addresse_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).Address

Syntaxe_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).FormulaLocal

Puis faire une boucle pour les reposer :

Avec addresse_des_formules je récupère bien une chaine qui je pense peut
être utilisable sans trop de mal, mais pour les formules .... j'ai rien :(

Je vais quand même regarder ton code, mais je ne pourrais pas avant ce
soir.


@+ Bartez

"michdenis" a écrit dans le message de news:
#z5AZP#
Bonjour Bartez,

Essaie ceci :
La méthode SpecialCells provoque une erreur 91 lorsqu'elle ne trouve pas
de cellules équivalentes à ce qu'elle cherche !


Dans la boucle For each ... J'ai mis un stop pour faciliter l'arrêt de
la


macro.

'-----------------------------------
Sub AfficherLesFormules()

Dim Rg As Range
On Error Resume Next
Set Rg = Feuil1.UsedRange.SpecialCells(xlCellTypeFormulas)

If Err <> 0 Then
Err = 0
Exit Sub
End If

For Each c In Rg
MsgBox c.FormulaLocal
Stop
Next
Set Rg = Nothing
End Sub
'-----------------------------------


Salutations!



"bartez" a écrit dans le message de news:
%

Bonsoir !

QQun peut-il me dire pourquoi la ligne suivante ne me retourne pas un
tableau contenant toutes les formules de ma feuille ?
Syntaxe_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).FormulaLocal

Merci de votre aide










Avatar
bartez
Bonsoir Denis,
Je crois que je me suis emballé un peu vite.
Effectivement la macro que tu as fait fonctionne, mais elle ne me prend pas
toutes les fonctions, comme si la variable adr ne pouvait pas en contenir
plus d'un certain nombre. Sur ma nouvelle feuille j'ai en effet certaines
formules qui apparaisse et d'autre non, et je ne vois pas pourquoi.

Si tu as une idée !

@+ Bartez


"michdenis" a écrit dans le message de news:
#
Bonjour Bartez,

Cette macro copie toutes les formules de la feuille 2
vers la feuille 3 à la même adresse que la feuille source.

'--------------------------------
Sub CopieDeFormulesDuneFeuilleAlautre()

On Error Resume Next
'Feuille source
With Worksheets("Feuil2")
adr = .UsedRange.SpecialCells _
(xlCellTypeFormulas).Address
End With

'Cette fonction "Split" requiert excel 2000
'ou plus récent
t = Split(adr, ",")

'Feuille destination
With Worksheets("Feuil3")
For Each a In t
.Range(a).FormulaLocal = _
Worksheets("Feuil2").Range(a).FormulaLocal
Next
End With

End Sub
'-----------------------------------


Salutations!



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


Bonjour Denis,

Je ne comprends pas pourquoi ma ligne de code ne fonctionne pas.
Dans la feuille il y a toujours des formules et le débuger ne me signale
aucune erreur.
enfait je cherche à copier facilement les formules d'une feuille sur une
autre et surtout au même emplacement (de façon simple et rapide) et je
pensais utiliser qqchose comme :

Ces 2 ligne pour récupérer les infos.

Addresse_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).Address

Syntaxe_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).FormulaLocal

Puis faire une boucle pour les reposer :

Avec addresse_des_formules je récupère bien une chaine qui je pense peut
être utilisable sans trop de mal, mais pour les formules .... j'ai rien :(

Je vais quand même regarder ton code, mais je ne pourrais pas avant ce
soir.


@+ Bartez

"michdenis" a écrit dans le message de news:
#z5AZP#
Bonjour Bartez,

Essaie ceci :
La méthode SpecialCells provoque une erreur 91 lorsqu'elle ne trouve pas
de cellules équivalentes à ce qu'elle cherche !


Dans la boucle For each ... J'ai mis un stop pour faciliter l'arrêt de
la


macro.

'-----------------------------------
Sub AfficherLesFormules()

Dim Rg As Range
On Error Resume Next
Set Rg = Feuil1.UsedRange.SpecialCells(xlCellTypeFormulas)

If Err <> 0 Then
Err = 0
Exit Sub
End If

For Each c In Rg
MsgBox c.FormulaLocal
Stop
Next
Set Rg = Nothing
End Sub
'-----------------------------------


Salutations!



"bartez" a écrit dans le message de news:
%

Bonsoir !

QQun peut-il me dire pourquoi la ligne suivante ne me retourne pas un
tableau contenant toutes les formules de ma feuille ?
Syntaxe_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).FormulaLocal

Merci de votre aide










Avatar
bartez
C'est encore moi...
Je viens de voir que la variable adr ne dépasse jamais 257 caractères alors
qu'elle devrait pouvoir en supporter environ 2 milliards.
Quand je test :
ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Select
pour voir ce que qui est réèlement sélectionné, j'ai bien toutes cellules
contenant des formules qui apparaissent sélectionnées. Je ne comprends pas
pourquoi adr ne récupère pas toutes ces adresses.

Si tu peux regarder ce qui pose problème, parce que moi je sèche !

@+ Philippe


"michdenis" a écrit dans le message de news:
#
Bonjour Bartez,

Cette macro copie toutes les formules de la feuille 2
vers la feuille 3 à la même adresse que la feuille source.

'--------------------------------
Sub CopieDeFormulesDuneFeuilleAlautre()

On Error Resume Next
'Feuille source
With Worksheets("Feuil2")
adr = .UsedRange.SpecialCells _
(xlCellTypeFormulas).Address
End With

'Cette fonction "Split" requiert excel 2000
'ou plus récent
t = Split(adr, ",")

'Feuille destination
With Worksheets("Feuil3")
For Each a In t
.Range(a).FormulaLocal = _
Worksheets("Feuil2").Range(a).FormulaLocal
Next
End With

End Sub
'-----------------------------------


Salutations!



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


Bonjour Denis,

Je ne comprends pas pourquoi ma ligne de code ne fonctionne pas.
Dans la feuille il y a toujours des formules et le débuger ne me signale
aucune erreur.
enfait je cherche à copier facilement les formules d'une feuille sur une
autre et surtout au même emplacement (de façon simple et rapide) et je
pensais utiliser qqchose comme :

Ces 2 ligne pour récupérer les infos.

Addresse_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).Address

Syntaxe_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).FormulaLocal

Puis faire une boucle pour les reposer :

Avec addresse_des_formules je récupère bien une chaine qui je pense peut
être utilisable sans trop de mal, mais pour les formules .... j'ai rien :(

Je vais quand même regarder ton code, mais je ne pourrais pas avant ce
soir.


@+ Bartez

"michdenis" a écrit dans le message de news:
#z5AZP#
Bonjour Bartez,

Essaie ceci :
La méthode SpecialCells provoque une erreur 91 lorsqu'elle ne trouve pas
de cellules équivalentes à ce qu'elle cherche !


Dans la boucle For each ... J'ai mis un stop pour faciliter l'arrêt de
la


macro.

'-----------------------------------
Sub AfficherLesFormules()

Dim Rg As Range
On Error Resume Next
Set Rg = Feuil1.UsedRange.SpecialCells(xlCellTypeFormulas)

If Err <> 0 Then
Err = 0
Exit Sub
End If

For Each c In Rg
MsgBox c.FormulaLocal
Stop
Next
Set Rg = Nothing
End Sub
'-----------------------------------


Salutations!



"bartez" a écrit dans le message de news:
%

Bonsoir !

QQun peut-il me dire pourquoi la ligne suivante ne me retourne pas un
tableau contenant toutes les formules de ma feuille ?
Syntaxe_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).FormulaLocal

Merci de votre aide










Avatar
michdenis
Bonjour Bartez,

Ceci devrait fonctionner sur l'ensemble de la plage. Sauf si tu as des formules matricielles, elles vont se copier mais
de façon matricielle.

Je n'ai pas trouvé un moyen de pouvoir identifier les cellules ayant une formule matricielle à partir du VBA. Si
quelqu'un connaît le moyen ... on pourra adapter la macro !


'-----------------------------
Sub CopieDeFormulesDuneFeuilleAlautre()

Dim Rg As Range, C As Range
On Error Resume Next
'Feuille source
With Worksheets("Feuil1")
Set Rg = .UsedRange.SpecialCells _
(xlCellTypeFormulas)
End With

'Feuille destination
With Worksheets("Feuil3")
For Each C In Rg
.Range(C.Address).FormulaLocal = _
Worksheets("Feuil1").Range(C.Address).FormulaLocal
Next
End With
Set Rg = Nothing: Set C = Nothing
End Sub
'-----------------------------


Salutations!


"bartez" a écrit dans le message de news:
C'est encore moi...
Je viens de voir que la variable adr ne dépasse jamais 257 caractères alors
qu'elle devrait pouvoir en supporter environ 2 milliards.
Quand je test :
ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Select
pour voir ce que qui est réèlement sélectionné, j'ai bien toutes cellules
contenant des formules qui apparaissent sélectionnées. Je ne comprends pas
pourquoi adr ne récupère pas toutes ces adresses.

Si tu peux regarder ce qui pose problème, parce que moi je sèche !

@+ Philippe


"michdenis" a écrit dans le message de news:
#
Bonjour Bartez,

Cette macro copie toutes les formules de la feuille 2
vers la feuille 3 à la même adresse que la feuille source.

'--------------------------------
Sub CopieDeFormulesDuneFeuilleAlautre()

On Error Resume Next
'Feuille source
With Worksheets("Feuil2")
adr = .UsedRange.SpecialCells _
(xlCellTypeFormulas).Address
End With

'Cette fonction "Split" requiert excel 2000
'ou plus récent
t = Split(adr, ",")

'Feuille destination
With Worksheets("Feuil3")
For Each a In t
.Range(a).FormulaLocal = _
Worksheets("Feuil2").Range(a).FormulaLocal
Next
End With

End Sub
'-----------------------------------


Salutations!



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


Bonjour Denis,

Je ne comprends pas pourquoi ma ligne de code ne fonctionne pas.
Dans la feuille il y a toujours des formules et le débuger ne me signale
aucune erreur.
enfait je cherche à copier facilement les formules d'une feuille sur une
autre et surtout au même emplacement (de façon simple et rapide) et je
pensais utiliser qqchose comme :

Ces 2 ligne pour récupérer les infos.

Addresse_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).Address

Syntaxe_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).FormulaLocal

Puis faire une boucle pour les reposer :

Avec addresse_des_formules je récupère bien une chaine qui je pense peut
être utilisable sans trop de mal, mais pour les formules .... j'ai rien :(

Je vais quand même regarder ton code, mais je ne pourrais pas avant ce
soir.


@+ Bartez

"michdenis" a écrit dans le message de news:
#z5AZP#
Bonjour Bartez,

Essaie ceci :
La méthode SpecialCells provoque une erreur 91 lorsqu'elle ne trouve pas
de cellules équivalentes à ce qu'elle cherche !


Dans la boucle For each ... J'ai mis un stop pour faciliter l'arrêt de
la


macro.

'-----------------------------------
Sub AfficherLesFormules()

Dim Rg As Range
On Error Resume Next
Set Rg = Feuil1.UsedRange.SpecialCells(xlCellTypeFormulas)

If Err <> 0 Then
Err = 0
Exit Sub
End If

For Each c In Rg
MsgBox c.FormulaLocal
Stop
Next
Set Rg = Nothing
End Sub
'-----------------------------------


Salutations!



"bartez" a écrit dans le message de news:
%

Bonsoir !

QQun peut-il me dire pourquoi la ligne suivante ne me retourne pas un
tableau contenant toutes les formules de ma feuille ?
Syntaxe_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).FormulaLocal

Merci de votre aide










Avatar
michdenis
Bonjour Bartez,

Celle-ci devrait résoudre le problèmes des formules matricielles aussi.


'-------------------------------
Sub CopieDeFormulesDuneFeuilleAlautre()

Dim Rg As Range, C As Range
On Error Resume Next
'Feuille source
With Worksheets("Feuil1")
Set Rg = .UsedRange.SpecialCells _
(xlCellTypeFormulas)
End With

'Feuille destination
With Worksheets("Feuil3")
For Each C In Rg
If C.HasArray = False Then
.Range(C.Address).FormulaLocal = _
Worksheets("Feuil1").Range(C.Address).FormulaLocal
Else
.Range(C.Address).FormulaArray = _
Worksheets("Feuil1").Range(C.Address).Formula

End If
Next
End With
Set Rg = Nothing: Set C = Nothing
End Sub
'-------------------------------


Salutations!




"bartez" a écrit dans le message de news:
C'est encore moi...
Je viens de voir que la variable adr ne dépasse jamais 257 caractères alors
qu'elle devrait pouvoir en supporter environ 2 milliards.
Quand je test :
ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Select
pour voir ce que qui est réèlement sélectionné, j'ai bien toutes cellules
contenant des formules qui apparaissent sélectionnées. Je ne comprends pas
pourquoi adr ne récupère pas toutes ces adresses.

Si tu peux regarder ce qui pose problème, parce que moi je sèche !

@+ Philippe


"michdenis" a écrit dans le message de news:
#
Bonjour Bartez,

Cette macro copie toutes les formules de la feuille 2
vers la feuille 3 à la même adresse que la feuille source.

'--------------------------------
Sub CopieDeFormulesDuneFeuilleAlautre()

On Error Resume Next
'Feuille source
With Worksheets("Feuil2")
adr = .UsedRange.SpecialCells _
(xlCellTypeFormulas).Address
End With

'Cette fonction "Split" requiert excel 2000
'ou plus récent
t = Split(adr, ",")

'Feuille destination
With Worksheets("Feuil3")
For Each a In t
.Range(a).FormulaLocal = _
Worksheets("Feuil2").Range(a).FormulaLocal
Next
End With

End Sub
'-----------------------------------


Salutations!



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


Bonjour Denis,

Je ne comprends pas pourquoi ma ligne de code ne fonctionne pas.
Dans la feuille il y a toujours des formules et le débuger ne me signale
aucune erreur.
enfait je cherche à copier facilement les formules d'une feuille sur une
autre et surtout au même emplacement (de façon simple et rapide) et je
pensais utiliser qqchose comme :

Ces 2 ligne pour récupérer les infos.

Addresse_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).Address

Syntaxe_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).FormulaLocal

Puis faire une boucle pour les reposer :

Avec addresse_des_formules je récupère bien une chaine qui je pense peut
être utilisable sans trop de mal, mais pour les formules .... j'ai rien :(

Je vais quand même regarder ton code, mais je ne pourrais pas avant ce
soir.


@+ Bartez

"michdenis" a écrit dans le message de news:
#z5AZP#
Bonjour Bartez,

Essaie ceci :
La méthode SpecialCells provoque une erreur 91 lorsqu'elle ne trouve pas
de cellules équivalentes à ce qu'elle cherche !


Dans la boucle For each ... J'ai mis un stop pour faciliter l'arrêt de
la


macro.

'-----------------------------------
Sub AfficherLesFormules()

Dim Rg As Range
On Error Resume Next
Set Rg = Feuil1.UsedRange.SpecialCells(xlCellTypeFormulas)

If Err <> 0 Then
Err = 0
Exit Sub
End If

For Each c In Rg
MsgBox c.FormulaLocal
Stop
Next
Set Rg = Nothing
End Sub
'-----------------------------------


Salutations!



"bartez" a écrit dans le message de news:
%

Bonsoir !

QQun peut-il me dire pourquoi la ligne suivante ne me retourne pas un
tableau contenant toutes les formules de ma feuille ?
Syntaxe_des_Formules = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas).FormulaLocal

Merci de votre aide










Avatar
GD
Bonsour® "michel " ;o)))
denis wrote:
Je n'ai pas trouvé un moyen de pouvoir identifier les cellules ayant
une formule matricielle à partir du VBA. Si quelqu'un connaît le
moyen ... on pourra adapter la macro !


regarde du coté de la fonction hasarray
;o)))
Cette propriété a la valeur True si la cellule spécifiée fait partie d'une
formule matricielle.Type de données Variant en lecture seule.
Exemple
Cet exemple montre comment afficher un message si la cellule active de la
feuille Sheet1 fait partie d'une formule matricielle.
Worksheets("Sheet1").Activate
If ActiveCell.HasArray =True Then
MsgBox "The active cell is part of an array"
End If

@+

Avatar
jps
fastoche une fois que tout le monde l'a claironné haut et fort....
si tu continues à copier, geedee, je t'envoie du côté de chez swan isabelle
(sachant qu'en inuit, swan signifie rainette)
jps

"GD" a écrit dans le message de
news:
Bonsour® "michel " ;o)))
denis wrote:
Je n'ai pas trouvé un moyen de pouvoir identifier les cellules ayant
une formule matricielle à partir du VBA. Si quelqu'un connaît le
moyen ... on pourra adapter la macro !


regarde du coté de la fonction hasarray
;o)))
Cette propriété a la valeur True si la cellule spécifiée fait partie d'une
formule matricielle.Type de données Variant en lecture seule.
Exemple
Cet exemple montre comment afficher un message si la cellule active de la
feuille Sheet1 fait partie d'une formule matricielle.
Worksheets("Sheet1").Activate
If ActiveCell.HasArray =True Then
MsgBox "The active cell is part of an array"
End If

@+





1 2