Copier une formule dans une cellule par le userform

Bonjour à tous!,

J'ai un petit pépin...

Dans ma form, quand je clique sur le bouton "ajout", j'aurais besoin que l'une des cellules créée soit une formule.

Exemple :

Cells(emptyRow, 33).Value = "=NB.SI($A$1:A2;A2)"

Bon... Vous vous doutez que si je vous l'écris, c'est que j'ai bien réalisé que ça ne fonctionne pas... Comment je peux faire?

Merci d'avance

Bonjour Chantal,

Et si tu remplacais.Value par .Formula. ...???

James007... Ben voyons dont que c'est aussi simple que çà!!

Ça y est, je suis devenue une fan de tes bons conseils!!

J'ai définitivement des croûtes à manger... Merci infiniment!!

Re,

Ravi que cela puisse t'aider ...

Merci pour tes gentils remerciements...!!!

Re James007,

J'espère que tu vas bien!

Encore une petite question... Cells(emptyRow, 33).Formula = NB.SI($A$1:A2;A2)

Comment je fais pour que la partie en gras s'ajuste selon dans quelle ligne le tout sera ajouté?

PAr exemple, si la formule est ajouté à la ligne 100, je voudrais que ce soit écrit : NB.SI($A$1:A100;A100)

Il y a certainement un moyen que je n'ai pas encore trouvé... et ce n'est pas faute d'avoir chercher... Et je sens que je vais tomber en bas de ma chaise quand tu vas me donner la réponse parce que ce sera encore une fois trop simple

Merci beaucoup d'avance!!!

Bonjour Chantal,

Ci-dessous un code à tester ... (et à étudier...)

Sub TestChantal()
Dim i As Integer
For i = 2 To 5
  Cells(i, 3).Formula = "=Countif($A$1:A" & i & ",A" & i & ")"
Next i
End Sub

Ça marche super bien, encore une fois!

Par contre, je ne suis pas certaine pourquoi tu écris "Countif" et que quand je vérifie la formule sur ma feuille excel, elle s'est automatiquement mise à "NB.SI"... Les mystères de la programmation VBA dans Excel j'imagine

Un gros merci encore une fois!!!

Bonjour Chantal,

Merci pour tes gentils remerciements ...

Même si tu utilises Excel version française (ou tout autre langue ...)... VBA, lui, est toujours en anglais ..