liaisons de fichier avec mise en forme automatique Résolu

Question

Bonjour, 

Je reviens avec mon pb, car la formule donnée précédemment fonctionne, mais je suis obligée de la saisir pour chaque cellule, ne sachant comment faire autrement, ce qui n'est pas envisageable.

Principe :
Dans le tableau 1 avec mes données ; je sélectionne ce qui m'intéresse et je fais un copier/coller avec liaison dans le tableau 2 (voir ficher source https://www.cjoint.com/c/EDyqr0jBpbO

Dans le tableau 2, je regroupe mes données que je veux vois s'afficher avec mise en forme automatique "majuscule" (voir fichier de synthèse https://www.cjoint.com/c/EDyqsYLVtyA

Comment demander une liaison de plusieurs cellules en même temps, précédée de la commande "Majuscule" ?

Sachant que je vais devoir attacher un lien sur chacune de mes références, dois accrocher ce lien dans le fichier source ou dans le fichier synthèse ? Dans le premier cas, le lien sera-t-il préservé ? Dans le deuxième cas, la mise en place du lien ne brisera-t-il pas le lien avec le fichier source ?

Je vous remercie infiniment pour le partage de votre expertise (moi je ne suis qu'une petit néophyte ;-(...

Patrice33740 · Answer

Les liens vers les fichiers ne sont plus disponibles

Nathy_78 · Answer

Bah j'ai pourtant chargé les fichiers... Je viens de le refaire, mais cela rame pas mal depuis mon bureau
Le fichier source, tableau 1 : http://www.cjoint.com/15av/EDCpciGfQ9w_chrono_2015.xlsx
Le fichier destination, tableau 2 : https://www.cjoint.com/15av/EDCpem0Wk6b_fichier_bdd.xlsm

En vous remerciant par avance

Patrice33740 · Answer

Bonjour,

Remplaces ta macro par celle-ci :

Sub TransformeEnMajuscule()
Dim c As Range
Dim f As String

For Each c In Selection
    f = c.FormulaLocal
    'Si la cellule contient une formule ...
    If InStr(1, f, "=") = 1 Then
      f = Mid(f, 2)
      '... et si la formule ne contient pas MAJUSCULE ...
      If InStr(1, f, "MAJUSCULE") = 0 Then
        '... Ajouter MAJUSCULE à la formule
        c.FormulaLocal = "=MAJUSCULE(" & f & ")"
      End If
    End If
  Next

End Sub

Nathy_78 · Answer

C'est parfait Patrice, c'est tout à fait ce que j'espérais. Ah les experts, heureusement qu'ils existent tout de même !!!

Merci beaucoup pour cette aide si précieuse.

Liaisons de fichier avec mise en forme automatique

4 réponses

Votre réponse