Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Formule Vba sur classeur

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Calvus
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Calvus

XLDnaute Barbatruc
Bonjour,

Pouvez vous m'expliquer pourquoi ce code ne fonctionne pas :

Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Range("b1") = "=Sum(a1:a3)"
End Sub

J'ai également essayé ceci, mais sans plus de succès.

Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Sheets("feuil1:feuil3")
Range("b1") = "=Sum(a1:a3)"
End With
End Sub

Le code fonctionne évidemment placé dans une feuille unique.

Merci
 
Dernière édition:
Trier par date Trier par votes
Re : Formule Vba sur classeur

Bonjour Calvus, Gilbert,

Pas besoin de macro dans les feuilles, uniquement dans ThisWorkbook :

Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.[B1].Formula <> "=SUM(A1:A3)" Then Sh.[B1] = "=SUM(A1:A3)"
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
Workbook_SheetActivate Sh
End Sub

'celle-ci n'est pas absolument indispensable
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Workbook_SheetActivate Sh
End Sub
A+
 
Vote positif 0 Vote négatif
Re : Formule Vba sur classeur

Re,

Ceci est beaucoup mieux car les cellules B1 sont remplies dès l'ouverture du classeur :

Code: 
Private Sub Workbook_Open()
Dim w As Worksheet
For Each w In Worksheets
  Workbook_SheetChange w, w.[B1]
Next
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
If Sh.[B1].Formula <> "=SUM(A1:A3)" Then Sh.[B1] = "=SUM(A1:A3)"
End Sub
Vous aurez compris que les formules en B1 ne peuvent plus être effacées.

A+
 
Vote positif 0 Vote négatif
Re : Formule Vba sur classeur

Bonjour Job, Gilbert,

Gilbert, le code fonctionne, seulement dès qu'une entrée est tapée dans une feuille, la macro change de feuille immédiatement, ce qui n'est évidemment pas pratique.
Par ailleurs, les codes de Job ont l'avantage d'être plus simples. Merci.

Job, j'avoue ne pas avoir compris la différence entre les deux codes. Je tâtonne en Vba, vous devez certainement vous en souvenir.

Vous aurez compris que les formules en B1 ne peuvent plus être effacées.
Cliquez pour agrandir...

Dans le premier code non plus il me semble, non ?

Pour la suite, j'aurai donc deux questions si vous voulez bien.

1/ Est il possible d'exclure certaines feuilles de ce code ? Mon classeur en contient près d'une soixantaine.

2/ Est il judicieux de suivre cette voie, sachant que mon idée était de transformer un classeur empli de formules et de les remplacer par du code. Ce classeur fait 20 Mo; je pensais l'alléger (enfin apprendre à essayer) en le transformant en Vba, mais je me rends compte que le code sur lequel j'ai demandé une explication ne fait que remplir les cellules avec des formules. Je n'ai donc pas l'impression que cela fera une différence à la fin. J'ai également dans l'idée qu'il faudrait programmer directement en Vba, ce dont je me sens bien incapable pour l'instant.

Exemple de formules contenues dans mon classeur :

Code: 
=SI(ET(I$10<>"";OU(MOD(Formats!$T5-I$6;1)<=(J$6-I$6);MOD(Formats!$T5-I$6;1)=1;MOD(Formats!$T5-I$7;1)<MOD(Formats!$T5-J$7;1);MOD(Formats!$T5-I$8;1)<MOD(Formats!$T5-J$8;1)));OU(SOMMEPROD((I$6<=Formats!$T5)*(Formats!$T5<J$6));SOMMEPROD((I$7<=Formats!$T5)*(MOD(Formats!$T5-I$7;1)<MOD(Formats!$T5-J$7;1)));SOMMEPROD((I$8<=Formats!$T5)*(MOD(Formats!$T5-I$8;1)<MOD(Formats!$T5-J$8;1))))*1;"")

Je peux ouvrir une nouvelle discussion si nécessaire.

Merci de vos réponses.
Cordialement
 
Vote positif 0 Vote négatif
Re : Formule Vba sur classeur

Bonjour Calvus, Gilbert,

Calvus à dit:
1/ Est il possible d'exclure certaines feuilles de ce code ?
Cliquez pour agrandir...

Modifier comme suit :

Code: 
Private Sub Workbook_Open()
Dim w As Worksheet
For Each w In Worksheets
  Workbook_SheetChange w, w.[B1]
Next
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
Dim a, i As Integer
a = Array("Feuil1", "Feuil2", "Feuil3") 'CodeNames des feuilles à exclure
For i = 0 To UBound(a)
  If Sh.CodeName = a(i) Then Exit Sub
Next
If Sh.[B1].Formula <> "=SUM(A1:A3)" Then Sh.[B1] = "=SUM(A1:A3)"
End Sub
A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2019 Insérer un commentaire après clic droit en X (colonne 24) ?
Réponses
2
Affichages
220
anthoYS
  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
277
anthoYS
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
745
un internaute
U
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
254
anthoYS
  • Résolu(e)
XL 2019 Clic droit en F doit afficher la fenêtre de commentaire, prêt à saisir vierge. Qu'est-ce qui cloche ici ? ça copie...
Réponses
1
Affichages
151
anthoYS
  • Résolu(e)
XL 2019 Insérer un commentaire prêt à saisir de B à X sans limite... (excepté en ligne 1 ; taille de commentaire Ok déjà voir code VB en B*)
Réponses
7
Affichages
264
Nicolas JACQUIN
  • Question Question
XL 2016 Boucler sur les feuilles d'un classeur
Réponses
7
Affichages
454
KTM
S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
315
TooFatBoy
  • Question Question
XL 2016 Renseigner une plage 2 a partir d'une plage 1 selon le mois.
Réponses
4
Affichages
273
KTM
G
  • Question Question
Autres excel vba cellule aléatoires non vides
Réponses
3
Affichages
199
danielco
D
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
253
cathodique
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
336
patricko-13
P
  • Résolu(e)
XL 2021 Envoi mail via VBA et Outlook
Réponses
6
Affichages
658
patricktoulon
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
482
nabilexcel2007
N
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
457
un internaute
U
  • Résolu(e)
XL 2016 XLS : comment savoir si un évènement SelectionChange est provoqué par le clavier ou la souris ?
2
Réponses
23
Affichages
898
SAMUAL_2023
S
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
488
sylvanu
J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
508
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…