Insérer une formule avec variable de feuille inexistante

Salut le forum,

comment puis-je insérer dans une feuille de calcul, une formule qui inclue une feuille qui n'existe pas encore et qui sera créé par une procédure.

Merci pour votre aide.

https://www.excel-pratique.com/~files/doc/Insertionformules.xls

Bonsoir à tous,

Une idée comme çà !

Su tu crée une feuille nommée "Temp"

tu fait tes formules faisant référence à cette feuille,

ensuite dans la procédure, tu renomme la feuille comme tu veux.

Amicalement

Claude.

Salut le forum

Sinon tu modifies ton code

Private Sub CommandButton1_Click()
Sheets.Add.Name = "Divisions"
ActiveSheet.Range("A1:A20") = 20
Sheets("Sheet1").Range("B2").Formula = "=COUNTIF(Divisions!A1:A20,Divisions!A1)"
End Sub

Mytå

Salut dubois et Mytå,

les deux solutions fonctionnent parfaitement. Celle de Claude était la solution de dernier recours. Je suis content d'avoir appris à intégrer des formules dans mon code.

Merci beaucoup à vous deux.

Resalut,

dans le même ordre d'idées, lorsque je tente d'étirer cette formule par macro, ça ne fonctionne pas.

https://www.excel-pratique.com/~files/doc/dPHPaInsertionformules.xls

Merci pour votre aide.

Bonsoir,

Chez moi , ce code fonctionne :

Private Sub CommandButton1_Click()
    Sheets.Add.Name = "Divisions"
        ActiveSheet.Range("A1:H10") = 20
        Sheets("Sheet1").Range("A1").Formula = "=COUNTIF(Divisions!$A$1:$H$10,Divisions!A1)"
    Sheets("Sheet1").Activate
        Range("a1").AutoFill Destination:=Range("A1:H1")
        Range("a1:h1").AutoFill Destination:=Range("A1:H10")
End Sub

Claude.

Salut le forum

Tu peux faire aussi

Private Sub CommandButton1_Click()
Sheets.Add.Name = "Divisions"
ActiveSheet.Range("A1:H10") = 20
With Sheets("Sheet1")
    .Range("A1").Formula = "=COUNTIF(Divisions!$A$1:$H$10,Divisions!A1)"
    .Range("A1").Copy .Range("A1:H10")
End With
End Sub

Ou cela

Private Sub CommandButton1_Click()
Sheets.Add.Name = "Divisions"
ActiveSheet.Range("A1:H10") = 20
With Sheets("Sheet1")
    .Range("A1:H10").Formula = "=COUNTIF(Divisions!$A$1:$H$10,Divisions!A1)"
End With
End Sub

Mytå

Re le forum

Si tu veux être sur la Sheets("Sheet1")

Tu ajoutes le .Activate à la suite de With Sheets("Sheet1")

Mytå

Salut Claude et Mytå,

effectivement, les 3 méthodes fonctionnent très bien. Merci à vous deux pour cette aide précieuse.

Bonjour,

Je relance ce topic: j'ai une macro qui va permettre à l'utilisateur de créer différentes feuilles (les mois de l'année en fait) et j'ai une feuille sommaire avec des données se trouvant dans les feuilles pas encore créées. (en fait, j'ai juste besoin d'une cellule =Janvier!C707 .)

Comment je peux faire ma petite formule pour qu'elle sache d'avance qu'elle doit aller chercher dans la feuille "Janvier" qui sera créée par l'utilisateur? (les noms des mois ne bougeront pas, je sais d'avance comment les feuilles vont s'appeler.)

Merci beaucoup d'avance et bonne journée!