Remplacer formule Countif en VBA ?

Bonjour,

Pouvons-nous remplacer une formule (countif) par un code VBA automatique ?

Je suis débutant et je cherche depuis plusieurs semaines à transformer les formules en VBA.

Je joint le fichier.

Merci d'avance pour votre aide.

Setila

J'ai plusieurs fois essayé avec ce genre de code mais (erreur d’exécution 1004):

Sub Enter_Formulas()

Range("C4").Formula = "=NB.SI(Scan!$B$2:$B$5000;A4)"

End Sub

bonjour,

essaie ceci

Sub Enter_Formulas()

Range("C4").Formula = "=countif(Scan!$B$2:$B$5000,A4)"

End Sub

Super génial,

Je remarque que la formule se note sur la cellule ?

peut-on la cacher?

Et enfin peut-on rendre la macro automatique des l'ouverture?

Merci beaucoup,

Setila a écrit :

Super génial,

Je remarque que la formule se note sur la cellule ?

peut-on la cacher?

pas compris la remarque, ni la question

Et enfin peut-on rendre la macro automatique des l'ouverture?

oui, il suffit de mettre ce code dans thisworkbook

Private Sub Workbook_Open()
' ton code
End Sub

Parfait, j'étais juste entrain de le faire.

merci beaucoup pour ton aide.

Bonjour à tous,

j'ai un problème avec ma page d'accueil qui force la macro.

Depuis plusieurs semaine elle fonctionne et maintenant la page d'accueil ne s'affiche pas mais la notification des macro s'affichent ?

Je comprend pas!?

Private Sub Workbook_Open()

'Affichage de la feuille EXEMPLE

Sheets("Scan").Visible = -1

Sheets("Liste").Visible = -1

'Feuille de démarrage cachée

Sheets("Accueil").Visible = 2

End Sub

module1

Private Sub Workbook_Open()

Range("C4:c4476").Formula = "=countif(Scan!$B$2:$B$5000,A4)"

End Sub

J'ai essayé de le mettre le code dans thisworbook.

Mais pareil l'accueil ne fonctionne plus

code:

Private Sub Workbook_Open()

Range("C4:c4476").Formula = "=countif(Scan!$B$2:$B$5000,A4)"

End Sub

Bonjour,

tu dois mentionner le nom de la feuille dans laquelle tu veux mettre tes formules

Private Sub Workbook_Open()

    'Affichage de la feuille EXEMPLE
    Sheets("Scan").Visible = -1
    Sheets("Liste").Visible = -1

    'Feuille de démarrage cachée
    Sheets("Accueil").Visible = 2
    Sheets("liste").Range("C4:c4476").Formula = "=countif(Scan!$B$2:$B$5000,A4)"

End Sub

Ok parfait.

J'apprends énormément avec vous.

Un grand merci.