Discussion :

[Jupaysan]

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

[Invité]

Bonjour,

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

( Philippe).

[Jupaysan]

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

Code :

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

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

[Invité]

Testez :

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
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

[Jupaysan]

Ca marche bien!

Grand merci++