Excel: variable dans une formule [Résolu]

Réponse 2 / 15

BOURICOT91 Messages postés 9 Date d'inscription vendredi 9 août 2013 Statut Membre Dernière intervention 19 août 2013
9 août 2013 à 18:45

Voici mon essai:
=INDIRECT("CONCATENER($B$1;A7;$B$2)")
et voici malheureusement le résultat #REF!

Réponse 3 / 15

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
9 août 2013 à 18:51

Désolé, ça ne fonctionne pas si les classeurs sont fermés !

Regarde cet article :
https://excel.developpez.com/faq/?page=Recherche#IndirectClasseurFerme

Réponse 4 / 15

BOURICOT91 Messages postés 9 Date d'inscription vendredi 9 août 2013 Statut Membre Dernière intervention 19 août 2013
9 août 2013 à 18:58

Donc ce n'est pas la solution car je dois pouvoir sortir la liste récap à jour sans avoir à ouvrir tous les fichiers.
Moi je veux juste insérer une fois pour toute les formules (à la place de les faire manuellement).
C'est pour cela que j'avais penser à la notion de variable dans la cellule pour avoir le même texte dans la colonne qui récupère tous les totaux.

As-tu déjà travaillé avec une variable dans une formule?

Merci

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 15

foo
16 août 2013 à 13:56

Bonjour

test avec des varriables
sub test
Chemin = "Z:\STOCK\Stock 2013\"
Fichier = "MXX 01 - Licence 1964.xls"
Test = "'" & Chemin & "[" & Fichier & "]Feuil1'!$L$31"
Debug.Print Test
end sub

A+
Maurice

Réponse 6 / 15

BOURICOT91 Messages postés 9 Date d'inscription vendredi 9 août 2013 Statut Membre Dernière intervention 19 août 2013
16 août 2013 à 14:46

Bonjour,

Je n'y arrive pas.
Pour faire simple (et étant donné que c'est juste pour une fois) y a t'il un moyen de faire reconnaitre cette chaine de caractères en Formule?
='Z:\STOCK\Stock 2013\[MXX 01 - Licence 1964.xls]Feuil1'!$M$31.
C'est ce qui apparait lorsque j'insère la formule manuellement (en faisant le lien en recherchant la cellule en question dans le fichier ouvert).
Quand je concatène les différentes parties de la chaines à partir de 3 colonne par exemple, la cellule résultante fait apparaitre la formule en toute lettre mais n'est pas reconnue comme formule.
Merci

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
16 août 2013 à 20:50

« y a t'il un moyen de faire reconnaitre cette chaine de caractères en Formule? »

Sub test()
Range("A1").Formula = "='Z:\STOCK\Stock 2013\[MXX 01 - Licence 1964.xls]Feuil1'!$M$31"
End Sub

Réponse 7 / 15

foo
16 août 2013 à 16:32

bonjour
donne au moin un model de ta feille et ta macro

car la je voie M$31 et un autre L$31

tu veux faire varier ta plage ?????

A+

Maurice

Réponse 8 / 15

BOURICOT91 Messages postés 9 Date d'inscription vendredi 9 août 2013 Statut Membre Dernière intervention 19 août 2013
19 août 2013 à 10:39

Bonjour à tous,

Voici des fichiers tests pour que vous voyez bien ma problématique.
Dans un répertoire (ex c:\QTEMP\TEST\) j'ai des fichiers individuels (ici A.xls, B.xls et C.xls) et un fichier bilan.xls.
Dans ce fichier bilan.xls, j'ai
- en colonne A le nom de chacun des fichiers individuels se trouvant dans le répertoire
- en colonne B la valeur de la cellule L31 du fichier individuel
- en colonne C la valeur de la cellule M31 du fichier individuel

Mon but est de pouvoir générer les formules des colonnes B et C du fichier bilan.xls automatiquement (sans avoir aller pointer les 2 cellules pour chaque fichier individuel manuellement) sachant que j'ai minimum 1500 fichiers individuels.

Je voudrais bien vous envoyer mes fichiers tests dans la discussion mais apparemment on ne peut pas joindre des fichiers.
Merci pour votre aide car il faut que je finisse ce boulot d'ici la fin de la semaine et je me vois mal rentrer dans chaque fiche individuelle pour compléter le tableau bilan.

Réponse 9 / 15

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
19 août 2013 à 14:13

Bonjour,

Essaies ce code :

Option Explicit
Sub GénérerLesFormules()
Dim c As Range        'Cellule
Dim r As String       'Répertoire

  'Définir le répertoire contenant les fichiers
  r = "C:\QTEMP\TEST\"
  'Analyser chaque valeur de la colonne A
  For Each c In Intersect(Columns("A:A"), ActiveSheet.UsedRange)
    'Si le fichier existe et si son nom est terminé par .xls ...
    If Dir(r & c.Value) > "" And _
       Mid(c.Value, InStrRev("." & c.Value, ".")) = "xls" Then
      ' ... écrire les formules en colonne B et C
      c.Offset(, 1).Formula = "='" & r & "[" & c.Value & "]Feuil1'!L31"
      c.Offset(, 2).Formula = "='" & r & "[" & c.Value & "]Feuil1'!M31"
    End If
  Next c
End Sub

Réponse 10 / 15

BOURICOT91 Messages postés 9 Date d'inscription vendredi 9 août 2013 Statut Membre Dernière intervention 19 août 2013
19 août 2013 à 14:44

J'ai copié tel quel ton code dans une nouvelle macro.
et il ne se passe rien.
Je la lance pas à pas et la ligne Sub est en sur brillance en jaune et puis plus rien.
Je ne vois pas ce qui cloche.

Merci

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
Modifié par Patrice33740 le 19/08/2013 à 15:07

Le répertoire existe-il ?
La feuille active contient-elle les noms de fichier ?

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
19 août 2013 à 15:11

Exemple :
https://www.cjoint.com/c/CHtpkxHiHFr

Réponse 11 / 15

BOURICOT91 Messages postés 9 Date d'inscription vendredi 9 août 2013 Statut Membre Dernière intervention 19 août 2013
19 août 2013 à 15:33

SUPER, cela fonctionne.
En fait, en lisant tes codes la première fois, j'avais l'impression qu'il fallait uniquement le nom du fichier dans la colonne A (sans l'extension). J'avais donc retirer le .xls.
Et donc il ne trouvait pas les fichiers.
J'ai modifié mon fichier bilan en rajoutant l'extension des fichiers.
et bingo j'obtiens les résultats avec les formules dans les cellules.
je vais adapter maintenant cette macro sur le bon fichier.

MERCI BEAUCOUP, tu me sauves la mise pour mon boulot.
Je ne voyais vraiment pas comment m'en sortir.

Je te tiendrai au courant sur le résultat "grandeur nature".

Trop cool Merci encore

Réponse 12 / 15

BOURICOT91 Messages postés 9 Date d'inscription vendredi 9 août 2013 Statut Membre Dernière intervention 19 août 2013
19 août 2013 à 16:49

J'ai commencé sur les vrais fichiers et c'est OK.
J'interviens sur la macro pour changer ponctuellement le chemin (car j'ai un certain nombre de répertoires).
C'est parfait.

Merci encore

Très bonne fin de journée

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
19 août 2013 à 19:16

De rien, au plaisir de te relire sur le Forum

Cordialement
Patrice

Réponse 13 / 15

foo
19 août 2013 à 17:11

Bonjour

Voila une macro sans Function
et avec la lecture des fichier
http://cjoint.com/?3HtridVa7Om

A+

Maurice

Réponse 14 / 15

BOURICOT91 Messages postés 9 Date d'inscription vendredi 9 août 2013 Statut Membre Dernière intervention 19 août 2013
16 août 2013 à 12:26

Bonjour,

Je n'ai pas pu retravailler sur ce sujet depuis une semaine (d'autres priorités!).

Mais je suis au même stade càd que je voudrais dupliquer la formule dans la feuille récap mais la formule n'est plus reconnue.
C'est pour cela que j'avais pensé à faire référence à une variable dans la formule pour récupérer le nom des feuilles qui se trouverait dans une colonne.

Merci pour vos commentaires.

Réponse 15 / 15

foo
16 août 2013 à 21:57

Bonjour

voila avec toutes les variable

Chemin = ThisWorkbook.Path & "\"
Fichier = "CréerPack.xls"
Onglet = "Pack"
Plage = "$A$" & 2
Test = "='" & Chemin & "[" & Fichier & "]" & Onglet & "'!" & Plage
Debug.Print Test
Range("C1").Formula = Test
' ou
Range("C2").Formula = "='" & Chemin & "[" & Fichier & "]" & Onglet & "'!" & Plage

A+
Maurice

Excel: variable dans une formule

15 réponses

Discussions similaires

Newsletters