Discussion :

[Gandorf]

Bonjour à tous.
Voila, j'ai un fichier (xlsm) qui comporte plusieurs formules sur certaines colonnes (sur plusieurs onglets également).
Ces formules sont "étirées" vers le bas, afin qu'elles fonctionnent en relation avec les cellules correspondantes en fonction de la longueur du fichier (nombre de lignes) qui est variable.
Le problème, c'est que cela alourdi considérablement le fichier (c'est peu dire) de "tirer" ces formules sur 2500 lignes ou plus.
L'idée serait donc de remplacer ces formules dans les cellules par un code dans les feuilles. Dans mon fichier, j'ai une colonne qui est déjà traitée de cette façon, mais je suis bien incapable de l'adapter aux autres colonnes.
Comme il est d'usage sur ce forum, j'attends une sollicitation éventuelle pour poster mon fichier exemple, qui serait sans doute plus parlant.
Merci de votre intérêt,

Cordialement,

[Philippe Tulliez]

Bonjour,

L'idée serait donc de remplacer ces formules dans les cellules par un code dans les feuilles. Dans mon fichier, j'ai une colonne qui est déjà traitée de cette façon, mais je suis bien incapable de l'adapter aux autres colonnes.

Ce qui serait plus parlant, ce serait de publier le code que tu as déjà réaliser puisque tu dis avoir déjà réaliser cela sur une feuille. Ensuite tu peux expliquer pourquoi tu ne sais pas l'adapter pour les autres feuilles.
Ceci dit tirer les formules sur 2500 lignes, ne dois pas être insurmontable.
As-tu essayé le double clic où connais-tu l'outil atteindre (touche F5) ?
Exemple :
Tu te places sur C2, tu appuies sur F5, dans le TextBox référence de la boite de dialogue Atteindre, tu tapes C2501 et tu cliques sur OK en gardant le doigt sur la touche Maj/Shift la sélection est faites sur les 2500 lignes.
Ensuite tu tapes la formule et tu confirmes par Ctrl + Enter. La formule est copiée sur toutes les lignes sélectionnées.

[Gandorf]

Bonjour à tous, bonjour corona et merci de ton intérêt.
Voici le code (qui ne vient pas de moi, merci mapomme et JCGL) :

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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ChangedCells, xcell As Range
 
Application.EnableEvents = False
Application.ScreenUpdating = False
'  Mettre en colonne A le jour (jjj) si changement(s) en colonne B
If Not Intersect(Target, Range("B:B")) Is Nothing Then
   Set ChangedCells = Intersect(Target, Range("B:B"))
   For Each xcell In ChangedCells
 
      xcell.Offset(0, -1) = Left(Format(xcell, "ddd"), 3)
   Next xcell
End If
 
Application.EnableEvents = True
End Sub

Sinon, j'ai dû mal m'expliquer. Je sais bien sûr "étirer" une formule, mon souhait est de ne pas avoir à le faire pour 2 raisons:
Le fichier étant destiné à servir à d'autres personnes, il ne faut pas qu'elles aient elles-même à tirer ces formules.
Si je les étire "à l'avance", la taille du fichier explose (il passe de 400 ko à 7 Mo).
Un exemple d'une de mes formules "à traiter" (j'en ai 38 en tout !!) :

Code :

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

=SIERREUR(GAUCHE(INDEX('échantillon daté'!$K$1:$AD$1;EQUIV($A2;DECALER('échantillon daté'!$K$1:$AD$1;EQUIV($D2;'échantillon daté'!$C$2:$C$10999;0););0));1)&(NBVAL(DECALER('échantillon daté'!$K$1:$AD$1;EQUIV(Plannings!$D2;'échantillon daté'!$C$2:$C$10999;0);)));"")

[Philippe Tulliez]

Bonjour,

Le fichier étant destiné à servir à d'autres personnes, il ne faut pas qu'elles aient elles-même à tirer ces formules.

Pour palier ce problème, il suffit que tu transformes tes cellules en tableau (Commande Tableau de l'onglet [Insertion] du groupe Tableaux).
Ainsi dès que l'on entre une valeur dans une cellule d'une nouvelle ligne, toutes les formules de cette ligne sont copiées.

[Gandorf]

Rebonjour corona, merci de ton attention.
Je dois rater quelque chose, quand je converti en tableau, outre le fait que cela me supprime toutes mes MFC, ce qui est très génant par ailleurs, et bien les formules ne s'appliquent pas lorsque je rajoute des données sur des lignes supplémentaires. J'ai essayé en définissant le tableau sur les colonnes complètes avec les formules saisies uniquement sur les lignes 2 et 3 (1 étant les entêtes), sans succès, j'ai essayé ensuite en définissant le tableau sur les seules 3 premières lignes, sans plus de succès.
Les seuls cas ou cela "fonctionne", c'est soit quand j'insère des lignes au milieu du tableau défini, ce qui ne me sert à rien, je n'insère pas, je "colle" ou vais chercher (par macro). Ou alors, si les formules sont également tirées à l'intérieur du tableau jusqu'en bas (2500 à 3000 lignes), ce qui finalement revient au même que la version initiale, donc inutile.
Toutefois, j'ai entendu parler de la fonction "DECALER", sans la maitriser, je me dit que je peux peut-être définir la taille de mes tableaux avec cette fonction ?
Si vous me dites que c'est une piste à explorer, je creuserais en ce sens sur le net...
Sinon, je rate peut-être une simple manipulation....
Merci encore !

[Philippe Tulliez]

Bonsoir,
C'est très curieux ce que tu décris parce-que je te confirme que cela fonctionne bien tel que je te l'ai signalé.
Est-tu passé par l'onglet [Insertion] groupe Tableaux Tableau ?
Ensuite tu as la boîte de dialogue Créer un tableau qui apparait et t'invite à confirmer la plage de cellules concernée.

[Gandorf]

Bonsoir corona. Effectivement, je pense rater quelque chose, mais quoi ?
Voici le détail point par point de ce que j'ai tenté (3 "méthodes") sur l'onglet "Plannings" de mon fichier, à savoir que les données générées par macro s'incrémentent dans les colonnes A à K, et que toutes mes formules sont placées de M à AG :
Méthode 1 :
- J'efface le contenu de toutes les lignes au delà de la ligne 3. Il me reste donc la ligne d'entêtes, puis 2 lignes avec mes formules (de M à AG).
- Je me positionne en A1.
- Je clique sur insertion- Tableau.
- Il me propose par défaut la plage $A$1:$AG$3.
- Je valide.
- Ensuite, je saisi en ligne 4 (de A4 à K4) des nouvelles données.
- Le résultat, aucun calcul, aucune formule dans les cellules M4 à AG4.

Méthode 2 :
- Exactement la même que la méthode 1, à la différence prêt que pour la définition de la plage, je rentre $A$1:$AG$11000.
- Même résultat (aucun).

Méthode 3 :
- Exactement la même que la méthode 1, à la différence prêt que pour la définition de la plage, je rentre $A:$AG
- Même résultat (aucun).

Je pense que ce détail permettra de voir ce qui cloche dans ma procédure, c'est sans doute évident pour des habitués, mais je ne vois pas....

Et de toute façon, même si cela fonctionnait, un inconvénient majeur subsisterait ; La conversion en tableau semble me faire perdre toutes mes MFC, ce qui est rédhibitoire pour moi...

En tous cas, merci pour l'attention portée....
Ne voyant pas comment avancer avec cette technique, je suis en train d'essayer (avec mon petit niveau) la méthode suivante :
Pour les formules de l'onglet "Planning" par exemple :
- Je crée un onglet (que je masquerais ensuite) avec en ligne 2 une copie de toutes mes formules.
- Je nomme la plage contenant ces formules (de M2 à AG2).
- J'essaye (j'en suis là), dans le code de la page "Plannings", de programmer la recopie de la formule (de M à AG) dès lors que des données sont saisies sur une ligne (de A à K). Mais j'ai du mal pour l'instant...
Pensez-vous que c'est le bon angle d'attaque ? Dois-je persévérer en ce sens ?
Mon fichier est bien sûr prêt à être posté dès lors qu'il est sollicité, conformément à la charte...
Merci de votre attention en tous cas.
Cordialement,