Appliquer une formule jusqu'à la derniere ligne des variables [Résolu]

Réponse 2 / 9

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
Modifié par Mike-31 le 10/01/2013 à 18:04

Salut,

colle ce code dans un module ou dans les propriétés d'un activex, la formule s'appliquera uniquement aux cellules renseignées en A et B

Sub FormuleSoustraction()
Dim lg, i As Long
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
lg = .Row + .Rows.Count - 1
End With
For i = lg To 1 Step -1
If Cells(i, "A") <> "" And Cells(i, "B") <> "" Then
Cells(i, "C").FormulaR1C1 = "=RC[-2]-RC[-1]"
End If
Next i
Application.ScreenUpdating = True
End Sub

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

yanounou
11 janv. 2013 à 19:28

Merci mike cela fonctionne en ajoutant ton code au milieu du mien et en faisant qques modifications notamment :

For i = lg To 2 Step -1 (pour qu'il n'efface pas la premiere ligne d'entete qui me sert ensuite pour un TCD)

With ActiveSheet.Range("D1:E65000") (pour qu'il selectionne que mes colonne A et B, qui sont en fait D et E dans les faits)

Je vous remercie car sans l'enregistreur de macro je saurais incapable d'expliquer à VBA ce que je veux faire.

Réponse 3 / 9

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 209
Modifié par eriiic le 10/01/2013 à 18:10

Bonjour à tous,

ou bien (à partir de la ligne 2) :
[C2].Resize(Application.Min(Cells(Rows.Count, "A").End(xlUp).Row - 1, Cells(Rows.Count, "B").End(xlUp).Row - 1), 1).FormulaLocal = "=B2-A2"

Mais c'est vrai, autant déjà apprendre à se servir d'excel et saisir la formule directement dans la feuille en testant s'il faut afficher le résultat ou non.

eric

Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.

Réponse 4 / 9

yanounou
10 janv. 2013 à 18:21

Merci Eric et Mike. Je vais tester votre code. Je vais essayer de le placer dans mon code correctement et voir si ca fonctionne. Je le ferai demain car le fichier est au boulot.

VTP je vous remercie également. Sur excel je fais pas mal de chose meme si je maitrise pas tout et ai besoin parfois de revoir sur le net comment utiliser une formule non utilisée depuis un moment. Je souhaite du VBA car cette manip (entre d'autres) est répétitive donc je voudrais l'automatiser. Sur excel je sais le faire mais c'est sur VBA que je séche.

Très bonne soirée et je reviens demain avec un sourire ou des larmes suivant l'essai du code.

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 209
10 janv. 2013 à 18:38

je voudrais l'automatiser
Donc rempli toutes les lignes prévues (même si A ou B vide) avec la formule qui teste pour afficher ou non. Qu'elle soit prête pour les futures saisies.
Et s'il ne doit pas y avoir d'autres saisies autant mettre directement le résultat au lieu de la formule non ?

eric

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

Posez votre question

Réponse 5 / 9

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
Modifié par Mike-31 le 10/01/2013 à 18:35

Re,

si tu veux tester un exemple sur ce lien avec 3 possibilités de déclenchement

https://www.cjoint.com/c/CAksFwZCJ6G

mais je suis tout a fait d'accord sur le fait qu'il serait préférable de traiter le problème par formule plutôt que par VBA, pourquoi faire compliqué lorsqu'il est possible de faire simple

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Réponse 6 / 9

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
10 janv. 2013 à 21:28

Bonjour à tous,

tu as une méthode toute simple à utiliser. Si tu veux mettre ta formule solde en C2 par exemple, tu saisis :
=B2-A2

Tu te positionnes en bas à droite de C2 et tu doubles clique quand tu as la petite croix :
ta formule descend automatiquement à la fin de tes données.

Réponse 7 / 9

yanounou
10 janv. 2013 à 23:20

Bonsoir,

Je vous remercie pour ces conseils. Je vais tester demain. En fait ce que j'ai demandé sur ce forum n'est qu'une partie des actions que je dois faire sur cette base de données. Effectivement en general je fais du excel pour tout (ne maitrisant pas le code).

Mais tous les mois j'envoie des extracts de contrôles budgétaires aux 10 responsables d'unité de mon périmètre. Ces extracts sortent d'un ERP et évoluent selon les mois et les périmètres choisis. Je perds 3 minutes pour faire toujours la meme choses sur un fichier (mise en forme, formules et TCD). Donc si je fais une macro je gagnerai du temps et consacrerai plus de temps à l'analyse.

Réponse 8 / 9

yanounou
11 janv. 2013 à 16:21

Bonsoir,

Merci mike cela fonctionne en ajoutant ton code au milieu du mien et en faisant qques modifications notamment :

For i = lg To 2 Step -1 (pour qu'il n'efface pas la premiere ligne d'entete qui me sert ensuite pour un TCD)

With ActiveSheet.Range("D1:E65000") (pour qu'il selectionne que mes colonne A et B, qui sont en fait D et E dans les faits)

Je vous remercie tous et vous êtes doués car sans l'enregistreur de macro je saurais incapable d'expliquer à VBA ce que je veux faire.

Bonne journée et je vais tenter maintenant de demander à VBA désélectionner du TCD certaine valeurs de certains champs.

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 209
11 janv. 2013 à 17:05

Bonjour,

Au passage ma proposition du [post 3 https://forums.commentcamarche.net/forum/affich-26873406-appliquer-une-formule-jusqu-a-la-derniere-ligne-des-variables#3] te faisait la même chose.
Ce n'est pas parce qu'il n'y a pas de boucle et une seule ligne que c''est incomplet. C'est juste plus rapide parce qu'il n'y a pas de boucle justement.

eric

Réponse 9 / 9

yanounou
11 janv. 2013 à 19:27

Eric en fait j'ai essayé de remplacer le code de mike à la 2e ligne par le tien mais cela me donnait un message d'erreur. Mais je ne dis pas que ton code est faux, c'est plutot moi qui n'a pas su bien l'insérer ou pas pu trouver comment l'adapter dans mon code.

Ceci etant en modifiant un peu le code de Mike pour que ma ligne d'entete ne soit pas écrasée par la soustraction qui remonte, tout fonctionne.

En revanche j'ai essayé d'automatiser une selection de valeur de champs dans le tableau croisé dynamique et je rencontre le problème suivant :

Le code fonctionne si je lui demande de décocher ou de cocher des valeurs qui existent. mais j'ai testé le code sur une valeur qui n'est pas présente dans la base et là VBA plante. Ce qui m'embête car la base peut changer :les champs seront toujours la mais les valeurs peuvent évoluer et je voudrais faire un code générique.

C'est un extract gestion avec un champ "sous section" (qui est le service) et un champ "poste" (qui est une nature de couts). Mais suivant les périmètre et les ecritures comptables qui seront saisies, chaque mois les valeurs peuvent changer.

Concrètement : Comment dire à VBA de me cocher ou décocher tels valeurs de champs mais sans qu'il plante dans le cas où ses valeurs ne seraient pas présentes dans la base de données.

En vous remerciant

Appliquer une formule jusqu'à la derniere ligne des variables

9 réponses

Discussions similaires

Newsletters