Contenu récent par gege5959

  1. G

    XL 2016 Application.WorksheetFunction, fonction en VBA

    Bonjour, Cela fonctionne parfaitement avec "NbNum=NbColor2(Feuil1.Range(Cells(1, 1), Cells(1, 20)), 4)",. J'essaierai les 2 autres tout à l'heure car ma macro est bien plus compliquée que cela et je devais compter les cellules vertes sur 300 lignes et 4250 colonnes sur 14 feuilles Excel (ce qui...
  2. G

    XL 2016 Application.WorksheetFunction, fonction en VBA

    Bonjour, J'ai tenté votre proposition mais j'obtiens toujours le même message d'erreur: "Erreur définie par l'application ou par l'objet" La fonction NbColor2 se trouve bien dans le classeur actif. Cordialement
  3. G

    XL 2016 Application.WorksheetFunction, fonction en VBA

    Bonjour amies et amis Excellistes, N'ayant que des connaissances sommaires en programmation VBA, je vous sollicite. J'ai un problème avec "Application.WorksheetFunction" car j'ai un message le message d'erreur suivant: "Erreur définie par l'application ou par l'objet"...
  4. G

    XL 2016 Boucle For Next, texte et valeurs

    Bonjour, Merci pour votre réponse; cela fonctionne. En fait, pref1 est une valeur contenue dans une cellule (pref1= Sheets("PREF").Cells(lig, 1).Value). En remplaçant pref1 par pref(1) cela fonctionne. Merci beaucoup, A bientôt !
  5. G

    XL 2016 Boucle For Next, texte et valeurs

    Bonjour à tous, Je suis débutant en VBA et je cherche un moyen de comparer des valeurs. pref1 à pref20 contiennent de valeurs ainsi que pts1 à pts20. Je souhaite comparer les valeurs pref1 à pref20 aux valeurs pts1 à pts20 Par exemple: si pref1 = pts1 alors j'incrémente y de 1 J'ai fait...