Liaisons de fichier avec mise en forme automatique

Résolu/Fermé

Nathy_78 Messages postés 12 Date d'inscription dimanche 29 juin 2014 Statut Membre Dernière intervention 28 février 2018 - 24 avril 2015 à 16:09
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 4 mai 2015 à 12:36

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 ;-(...

A voir également:

Liaisons de fichier avec mise en forme automatique
Mise en forme conditionnelle excel - Guide
Fichier rar - Guide
Fichier host - Guide
Fichier iso - Guide
Comment réduire la taille d'un fichier - Guide

4 réponses

Réponse 1 / 4

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
25 avril 2015 à 09:25

Les liens vers les fichiers ne sont plus disponibles

Réponse 2 / 4

Nathy_78 Messages postés 12 Date d'inscription dimanche 29 juin 2014 Statut Membre Dernière intervention 28 février 2018
28 avril 2015 à 14:51

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

Réponse 3 / 4

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
29 avril 2015 à 11:19

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

Réponse 4 / 4

Nathy_78 Messages postés 12 Date d'inscription dimanche 29 juin 2014 Statut Membre Dernière intervention 28 février 2018
4 mai 2015 à 11:56

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.

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
4 mai 2015 à 12:36

De rien, au plaisir de te relire sur le Forum

Cordialement
Patrice

Discussions similaires

comment donner les droits sur fichier partage

liste de noms par ordre alphabétique

Chemin Logo du site de la Cité de l'espace

Discussions similaires

Newsletters