Discussion :

[tamtam64]

Bonjour,

Dans mon projet j'ouvre des classeurs , je recupere une formule donné par l'utilisateur. Pour l'instant je recupere la formule je la colle dans le classeur que j'ai ouvert et je recupere la valeur ( le resultat).
J'aimerais ne pas ouvrir le classeur (très lourd d'ouvrir tous ces classeurs et des fois m'affiche des erreurs)
Je souhaiterais donc à partir de la formule renseignée par l'utilisateur, remplacer les plages définies dans la formule et les ramplacer par des adresses en absolue, afin de recuperer la valeurs sans ouvrir le classeur
j'aimerais un peu d'aide sur l'elaboration d'une fonction, ou des idées optimisées pour construire une fonction qui à partir d'une formule excel (exemple : recherchev(K9;E39:E233;2;Faux) ou autre), va extraire les plage E39:E233 et K9, pour ensuite la remplacer par mon adresse absolue & ma plage.


Si vous l'avez deja fait je suis preneur, sinon juste des idées d'algo (pas forcement en vba, juste des critères ), c'est pas franchement evident etant donné que c'est quand même assez large.

Je peux determiner si c'est un nombre ou une lettre

Code :

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

1
2
3
Private Function IsLetter(ByVal character As String) As Boolean
    IsLetter = UCase$(character) <> LCase$(character)
End Function

et Isnumeric

Manque plus qu'une bonne idée pour identifier une plage de facon optimale

Merci d'avance

[Menhir]

J'aimerais ne pas ouvrir le classeur (très lourd d'ouvrir tous ces classeurs et des fois m'affiche des erreurs)

A part en allant piocher directement sur des secteurs disque (chose que je n'ai vu qu'à une époque où les disquettes faisaient 360 ko), on ne peut lire (et, à fortiori, écrire) des données dans un fichier qu'en l'ayant ouvert sous une forme ou une autre.

j'aimerais un peu d'aide sur l'elaboration d'une fonction, ou des idées optimisées pour construire une fonction qui à partir d'une formule excel (exemple : recherchev(K9;E39:E233;2;Faux) ou autre), va extraire les plage E39:E233 et K9, pour ensuite la remplacer par mon adresse absolue & ma plage.

En supposant qu'il n'y a qu'une seule fonction (s'il y a des fonctions imbriquées, ça devient plus compliqué).
Tu commences par virer tout ce qu'il y a jusqu'à la première parenthèse puis par virer la dernière parenthèse, pour ne garder que les paramètres.

Avec un Splite, tu tronçonnes l'ensemble en prenant comme séparateur ";".

Ensuite, tu n'a plus qu'à analyser chaque éléments caractère par caractère avec Mid() pour vérifier si le paramètre est constitué de lettres suivis de chiffres.
Pense aussi à vérifier la présence d'un ":" pour les plages.

[patricktoulon]

Bonjour
essaie avec un regex

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
Dim formule As String
formule = Cells(11, 1).Formula
 MsgBox formule
     With CreateObject("VBScript.RegExp"):
        .Global = True: .IgnoreCase = True: .Pattern = "([A-Z]{1,2})+(\d{1,10})+[^\w]+([A-Z]{1,2})+(\d{1,10})"
        Set matchs = .Execute(formule)
        MsgBox matchs.Count
         If matchs.Count > 0 Then
            result = matchs(0)
 
              End If
    End With
    MsgBox result
End Sub

explication sur le pattern
([A-Z]{1,2}) veut dire 1 ou 2 lettres

(\d{1,10}) veut dire de 1 a 10 chiffres

[^\w] veut dire un caractere particulier en l'occurrence ici le ":"

et rebelote pour la cellule de fin de la plage qui suit le ":"( les memes que les deux premiers )

voili voilou

bien entendu si tu veux la 2d adress de plage dans la formule c'est result = matchs(1) puis 2 pour la 3eme etc.....

en gros le paterne identifie les suite de caractères representant une suite de : 1 ou plusieur letttres + 1 ou plusieur chiffres + le signe particulier(":") +1 ou plusieur lettres +1 ou plusieurs chiffre sans connaitre la chaine rechercher juste l'accabit

[tamtam64]

Salut Patrick,

Je viens de tester, c'est une formidable solution, cependant si je teste =recherchev(V8;A8:Z21;2;Faux)
il me trouve V8 et A8 et non V8 et A8:Z21
je vais jouer sur le match alors
Je pense que si je travaille le truc avec ton astuce je vais pouvoir reussir mon objectif merci beaucoup pour ce code

[patricktoulon]

t'inquiet je l'ai fait pour toi

voila la bonne formule pour trouver tes deux données

la cellules de reference puis la plage de recherche

j'ai fait le test avec ceci

en cellule A12 j'ai mis

=RECHERCHEV(C1;A1:A9;1;0)

et voila le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub test()
Dim formule As String
formule = Cells(12, 1).Formula
 MsgBox formule
     With CreateObject("VBScript.RegExp"):
        .Global = True: .IgnoreCase = True:
        'patern1 pour la cellule de reference
        .Pattern = "([A-Z]{1,2})+(\d{1,10}),"
       Set matchs = .Execute(formule)
          MsgBox matchs.Count
          If matchs.Count > 0 Then cellulereference = matchs(0)
         'patern2 pour la plage de recherche
        .Pattern = "([A-Z]{1,2})+(\d{1,10}):([A-Z]{1,2})+(\d{1,10})"
        Set matchs = .Execute(formule)
        MsgBox matchs.Count
         If matchs.Count > 0 Then plageaddress = matchs(0)
 
 
    End With
    MsgBox "cellule de  reference " & cellulereference & vbCrLf & "plage " & plageaddress
End Sub

MAIS ENTRES NOUS IL TE SERAIT TELLEMENT PLUS SIMPLE DE REECRIRE LA FORMULE TOUT SIMPLEMENT SURTOUT QU ELLE EST SIMPLE

[tamtam64]

Bonjour,

En fait, je donne à l'utilisateur la possibilité de rentrer une formule de recherche ou de calcul dans une cellule. C'est une sorte de feuille de parametrage qui permet à l'utilisateur de recuperer la valeur d'une celulle en particulier dans un report .

Cette valeur est dans une cellule, mais aussi peut etre recherché ou même etre un calcul
ex
=(SOMME.SI($D$5:$D$10000;"PEL";$G$5:$G$10000))
ou
=SOMME(B12;B11)

Ceci dans un but de simplicité pour l'utilisateur, il peut à peu pres tout faire en terme de calcul à la condition que l'info soit dans le même onglet. Dans la feuille de parametrage se trouve le nom du classeur et le nom de la feuille ( c'est pour ca qu'il n'est pas necessaire de l'indiquer dans la formule)

Ainsi je me retrouve avec des formules quelconque, ou je souhaite pouvoir remplacer chaque plage par son lien en absolue de facoàn a ne pas ouvrir le classeur.

Je le fait pour juste une celulle avec la fonction ExecuteExcel4Macro mais pour le calcul c'est plus fastidieux.

Si cela est trop compliqué, je reverais à la baisse cette liberté de fonction dans mon projet, mais si cela est possible effectivement je tente
Je vais tester ton code et je te remercie bcp pour cette formidable solution.
L'idee etant de ne pas ouvrir un classeur pour gagner du temps , mais pour autant pas en perdre avec une fonction trop compliqué qui ne ferait au final pas gagner de temps

Merci