Discussion :

[Sandra_R]

Bonjour,

Voici mon problème du jour :
L'instruction ci-dessous ne fonctionne pas alors que si je suis déjà dans le bon fichier et que j'enlève le workbooks cela fonctionne …

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

x = Workbooks("Donnees ACI.xslm").Range("rap1_nuance").Value

Quelqu'un peut-il m'éclairer ?

Merci d'avance

Sandra

[fraaz]

Bonjour,

Il me semble que la syntaxe doit faire apparaitre le nom de la feuille également :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

x = Workbooks("Donnees ACI.xslm").Worksheets("xxxx").Range("rap1_nuance").Value

la feuille peut être sélectionnée soit par son nom, soit par seon index (1 pour la première feuille).

[Sandra_R]

Autant que je sache, si il n'y a qu'une cellule nommée ainsi dans le classeur, je ne dois pas avoir besoin de préciser dans quelle feuille elle se trouve (ce qui m'arrangerait bien) ...

Je confirme : ça ne fonctionne pas mieux en précisant la feuille ...

[Philippe Tulliez]

Bonjour,
Le classeur de référence se nomme AutoFilter Filtre simple avec tableau.xlsm
La plage nommée avec portabilité classeur se nomme tblFilter
La formule se trouve dans un autre classeur

Syntaxe avec les deux classeurs ouverts

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=AutoFilter Filtre simple avec tableau.xlsm'!tblFilter

Si l'on veut connaître le nombre de ligne de la plage nommée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=LIGNES('AutoFilter Filtre simple avec tableau.xlsm'!tblFilter)

Syntaxe avec le classeur de référence fermé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

='\\VBOXSVR\Partage\Excel - AutoFilter Filtre simple\AutoFilter Filtre simple avec tableau.xlsm'!tblFilter

Et je confirme que cela fonctionne.

[EDIT]
En vba, voici deux exemples. Les classeurs doivent être ouverts
Avec Evaluate

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Syntaxe1()
 Dim Num%
 Num = Evaluate("=ROWS('AutoFilter Filtre simple avec tableau.xlsm'!tblFilter)")
 MsgBox Num
End Sub

Avec la propriété RefersToRange

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Syntaxe2()
 Dim rng As Range
 Set rng = Workbooks("AutoFilter Filtre simple avec tableau.xlsm").Names("tblFilter").RefersToRange
 MsgBox rng.count
End Sub

[vinc_bilb]

Bonjour,

Je ne suis pas certain que notre expert Philippe ait répondu à la bonne discussion ....
** EDIT** Si

Ceci étant, je confirme que votre syntaxe ne marche pas ..... et j'en suis surpris. Ce qui marche après quelques tâtonnements et sans passer par le 'RefersToRange'

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set InpRng = Range("Donnees ACI.xslm!rap1_nuance")

:

en supposant que votre range soit nommé avec une portée 'classeur'

[Philippe Tulliez]

Bonjour,

Je ne suis pas certain que notre expert Philippe ait répondu à la bonne discussion ....
Ceci étant, je confirme que votre syntaxe ne marche pas ..... et j'en suis surpris. Ce qui marche après quelques tâtonnements

Je n'avais effectivement pas lu que la question portait sur du VBA. ce que j'ai corrigé quelques minutes après (voir [EDIT]).

[vinc_bilb]

Ahhh, bonjour Philippe, j'ai rectifié aussi dans mon post.... Désolé. Ceci étant, on peut le faire sans passer par le 'RefersToRange'

[Sandra_R]

Je vous remercie.
C'est pas très clair pour moi qui ne suis pas experte mais je vais essayer tout ça ...

[Philippe Tulliez]

Bonjour,

Ceci étant, on peut le faire sans passer par le 'RefersToRange'

Ce que tu a écrit est vrai si on se trouve dans le classeur où se trouve la plage ou la cellule nommée et à condition que le code soit dans un module standard.

[Sandra_R]

Ca marche !!!!

Je vous remercie ....

[Sandra_R]

Re bonjour,

Cette première question étant résolue (comme suit), elle en amène une seconde.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
     Set Val2 = Workbooks(Fich2).Names(CellSource).RefersToRange
     Workbooks(Fich1).Sheets(FeuilDon).Cells(2, j).Value = Val2 ' ---> je viens reporter la valeur récupérée dans un autre classeur.

Hors quand la cellule source (CellSource) est vide, ça me renvoit parfois (mais pas toujours ???) 0 ce qui pose problème.

Comment faire ?

[Philippe Tulliez]

Bonjour,
faire un essai avec Val2.Value * 1. ?

[Sandra_R]

Merci de prendre le temps de ma répondre.
Le *1 n'est pas accepté, peut-être parce que ma variable peut être de différent type ?

[Philippe Tulliez]

Bonjour,

Le *1 n'est pas accepté, peut-être parce que ma variable peut être de différent type ?

Cela veut dire quoi "pas accepté" ?
Tu ne sais l'encoder ?
Il y a un message d'erreur à l'encodage ?
un message d'erreur à l'exécution ?
si message d'erreur, merci de donner son n° d'erreur, le texte du message, la ;ligne où cela se passe

[vinc_bilb]

Bonjour

Vous pouvez rajouter un test pour vérifier si la cellule est vide ou pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If IsEmpty(Cells(....))

[Sandra_R]

Bonjour,

En fait ça me renvoit un message d'erreur à l'exécution :

Erreur d'exécution '13' : incompatibilité de type

sur la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks(Fich1).Sheets(FeuilDon).Cells(2, j).Value = Val2.Value * 1

En fait ces celulles ne sont pas considérées comme vide car elle contiennent une formule (=num_Cp par exemple où "num_CP" est une autre celulle qui, elle, est vide).

Je ne suis pas sûre d'avoir été très claire

[Philippe Tulliez]

Bonjour,
La proposition de faire une multiplication par 1 était suite à cette remarque

Workbooks(Fich1).Sheets(FeuilDon).Cells(2, j).Value = Val2 ---> je viens reporter la valeur récupérée dans un autre classeur. Hors quand la cellule source (CellSource) est vide, ça me renvoit parfois (mais pas toujours ???) 0 ce qui pose problème.

Une cellule vide en format texte peut renvoyer une valeur nulle si on effectue cette multiplication.
En revanche le message "Erreur d'exécution '13' : incompatibilité de type" signifie que la fonction se trouvant dans cette cellule, renvoie un texte qui lui ne peut pas être multiplié donc s'il faut vraiment renvoyé 0 dans ce cas là, il faudra passer par un IF

[Sandra_R]

Au contraire, je ne veux pas que ça renvoit 0. Je veux que ça reste vide ...

[Philippe Tulliez]

Bonjour,
La demande

Hors quand la cellule source (CellSource) est vide, ça me renvoit parfois (mais pas toujours ???) 0 ce qui pose problème.

n'est pas claire.

C'est difficile d'apporter une réponse pertinente quand la question n'est pas précise.