Convertir formule en VBA

Bonjour,

Afin de mieux protéger mes tables car multiples utilisateurs, je souhaiterai utiliser le VBA pour mes formules de calcul.
Ma demande est peut être basique, je suis un bon novice en VBA:)

J'ai un tableau structuré nommé "Population" avec 4 colonnes nommées
Colonne A=

Exemple 1:
Tableau structuré nommé "Population" avec 2 colonnes nommées
Colonne A : Nb_Femme
Colonne B = Nb_Homme
Colonne C = Total

Question: comment utiliser VBA pour remplir automatiquement le résultat de la somme colonne A + colonne B dans la colonne C c'est à dire Total= [Nb_Femme] + [Nb_Homme]

Exemple 2:
Tableau structuré nommé "Sexe" avec 2 colonnes nommées
Colonne A : Genre
Colonne B = Sexe

Question: comment utiliser VBA pour remplir automatiquement la colonne B
Sexe = Si([Genre]="";"";Si([Genre]="Homme", [Sexe]="M";"F")

Merci

Citation:

---

Envoyé par Jupaysan

---

Bonjour,

Regardez ce billet : https://www.developpez.net/forums/bl...procedure-vba/

(:coucou: Philippe).

Citation:

---

Envoyé par Eric KERGRESSE

Bonjour,

Regardez ce billet : https://www.developpez.net/forums/bl...procedure-vba/.

---

Je viens de regarder le tuto et j'ai trouvé comment récupéré la formule via la fenêtre d'exécution.
Cependant, je n'arrive pas le traduire en vba afin qu'il s'exécute seule comme c'est le cas dans une feuille Excel i.e sans avoir besoin à appuyer sur un bouton.

Mon code suivant ne marche pas.. :oops:

Code:

---

1 2 3 4

Sub calcul() ThisWorkbook.Worksheets ("Feuil1") [@Total] = [@Nb_Femme] + [@Nb_Homme] End Sub

---

Citation:

---

Envoyé par Jupaysan

---

Testez :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub calcul1()   With Sheets("Feuil1").Range("Population[Total]") .Formula = "=[@[Nb_Femmes]]+[@[Nb_Hommes]]" End With   End Sub     Sub calcul2()   With Sheets("Feuil1").Range("Sexe[Sexe]") .Formula = "=IF([@Genre]="""","""",IF([@Genre]=""Homme"", ""M"",""F""))" End With   End Sub

---

Ca marche bien!

Grand merci++