Difficulté à écrire une macro de type "Fonction SI"

[piamibi]

Bonjour à tous,
J'essaie, en vain, d'écrire une macro qui me permette un suivi mensuel à partir d'une seule base de donnée tout en figeant les valeurs à chaque changement de date
Pour mieux comprendre ma demande, le plus simple serait d'ouvrir le fichier joint.
En vous remerciant par avance de votre aide
Bon dimanche
Michel
*********

 

[pierrejean]

Re : Difficulté à écrire une macro de type "Fonction SI"

bonjour piamibi

teste ceci

Sub test()
If Format(Sheets("BDD").Range("A1"), "mmmm") = LCase(Sheets("Suivi").Range("F1")) Then
Sheets("Suivi").Range("F3").FormulaLocal = "=BDNBVAL(BDD!$A$2:$B65536;BDD!A2;$N$3:$N$4)"
Else
Sheets("Suivi").Range("F3").FormulaLocal = Sheets("Suivi").Range("F3").Value
End If
End Sub

 

[piamibi]

Re : Difficulté à écrire une macro de type "Fonction SI"

bonjour piamibi

teste ceci

Sub test()
If Format(Sheets("BDD").Range("A1"), "mmmm") = LCase(Sheets("Suivi").Range("F1")) Then
Sheets("Suivi").Range("F3").FormulaLocal = "=BDNBVAL(BDD!$A$2:$B65536;BDD!A2;$N$3:$N$4)"
Else
Sheets("Suivi").Range("F3").FormulaLocal = Sheets("Suivi").Range("F3").Value
End If
End Sub

Merci pierrejean,

Cela marche parfaitement et je t'en remercie beaucoup. Néammoins, je n'ai pas pousser ma reflexion suffisamment loin. Je viens de m'apercevoir que cela oblige à utiliser autant de macro que de mois existant pour passer de l'un à l'autre. Peut-être est-il mieux de retranscrire cette macro sous forme de formule Excel si toutefois cela est posible ?

Avec toutes mes excuses pour ce manquement.
@+
Michel

 

[pierrejean]

Re : Difficulté à écrire une macro de type "Fonction SI"

re

voila une version automatisée

teste en modifiant A1 dans BDD et retour en suivi

les codes:

Private Sub Worksheet_Activate()
  Call test
End Sub
 
Sub test()
For n = 1 To 12
If Format(Sheets("BDD").Range("A1"), "mmmm") = LCase(Sheets("Suivi").Cells(1, n).Value) Then
Sheets("Suivi").Cells(3, n).FormulaLocal = "=BDNBVAL(BDD!$A$2:$B65536;BDD!A2;$N$3:$N$4)"
Else
Sheets("Suivi").Cells(3, n).FormulaLocal = Sheets("Suivi").Cells(3, n).Value
End If
Next n
End Sub

 

[piamibi]

Re : Difficulté à écrire une macro de type "Fonction SI"

Chapeau Pierrejean,

Tu m'as fait gagner énormément de temps car je ne suis pas sûr que j'y serai arrivé tout seul.
Il me reste maintenant à adapter la macro pour qu'elle puisse traiter le reste des lignes de mon tableau

Mille fois merci
Michel
********