Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Evaluate ne fonctionne pas

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion klin89
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

klin89

XLDnaute Accro
Bonsoir à tous,🙂

J'ai passé ma soirée à m'arracher les cheveux avec la méthode Evaluate 😛
La colonne D doit me renvoyer le même résultat qu'en colonne C
et cela ne fonctionne pas, cela me renvoie que des 1, qu'ai-je oublié 🙁
Il s'agit d'incrémenter des doublons.

VB: 
Sub test_Evaluate()
    With Range("A1", Range("A" & Rows.Count).End(xlUp))
        lastrow = Range("A" & Rows.Count).End(xlUp).Row + 1
        'Résultat en colonne C
        .Offset(, 2).Formula = "=IF(ISBLANK(A1),"""", COUNTIF($A$1:$A$" & lastrow & ", A1) - COUNTIF($A2:$A$" & lastrow & " ,A1))"
        'Résultat en colonne D
        .Offset(, 3).Value = Evaluate("=IF(ISBLANK(A1),"""", COUNTIF($A$1:$A$" & lastrow & " ,A1) - COUNTIF($A2:$A$" & lastrow & " ,A1))")
    End With
End Sub
Bonne nuit à tous, je vais me coucher
A demain klin89
 

Pièces jointes

Trier par date Trier par votes
Re : Evaluate ne fonctionne pas

Bonjour à tous,

Un essai (sans EVALUATE):
VB: 
Sub Denombrer()
  With Range("d1:d" & Range("a" & Rows.Count).End(xlUp).Row)
    .Cells(1, 1).FormulaLocal = "=SI(A1="""";"""";NB.SI($A$1:A1;A1))"
    .Cells(1, 1).AutoFill .Cells: .Value = .Value
  End With
End Sub
 
Vote positif 0 Vote négatif
Re : Evaluate ne fonctionne pas

Bonjour klin89, JB, mapomme,

La formule en colonne C peut être nettement simplifiée !

Et pour le résultat en colonne D il faut la compliquer pour obtenir une formule matricielle avec OFFSET (DECALER) :

Code: 
Sub test_Evaluate()
Dim lastrow&
With Range("A1", Range("A" & Rows.Count).End(xlUp))
  lastrow = .Count
  'Résultat en colonne C
  .Offset(, 2) = "=IF(ISBLANK(A1),"""",COUNTIF(A$1:A1,A1))"
  'Résultat en colonne D
  .Offset(, 3) = Evaluate("=IF(ISBLANK(A1:A" & lastrow & "),"""",COUNTIF(OFFSET(A1,,,ROW(A1:A" & lastrow & ")),A1:A" & lastrow & "))")
End With
End Sub
A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Evaluate ne fonctionne pas

Re,

Une petite explication n'est peut-être pas superflue.

Quand on écrit pour une plage plage.Value = X ou plage = X

il faut que X soit une matrice de valeurs (un tableau VBA).

A+
 
Vote positif 0 Vote négatif
Re : Evaluate ne fonctionne pas

Bonsoir à tous,

Aujourd'hui, c'était la journée des aidants, je suis servi 😱
Va falloir que je me mette aux formules un jour, c'était plus simple en effet 🙄
Sinon, c'était Evaluate qui me turlupinait
Job75, super ta solution 🙂

Merci à tous et bonne soirée
klin89
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

V
  • Question Question
XL 2021 Mon codage ne fonctionne pas il devrais créer un numero automatique
Réponses
8
Affichages
190
Valtrase
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
836
TooFatBoy
S
  • Question Question
XL 2021 Listing Album Panini
Réponses
5
Affichages
551
job75
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
699
patricktoulon
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
777
patricktoulon
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
606
safranien
S
M
  • Question Question
Microsoft 365 Récupération des plages nommées des fichiers dans un répertoire
Réponses
8
Affichages
288
dysorthographie
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
645
lynyrd
  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
616
Chaton77
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
425
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
684
un internaute
U
Y
  • Résolu(e)
Microsoft 365 Countifs et dates
2
Réponses
23
Affichages
656
youguybass
Y
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
591
un internaute
U
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
1 K
Webperegrino
W
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
3 K
Dranreb
I
  • Résolu(e)
Microsoft 365 formule =SOMME.SI(A2:A17;A1;D2:D17) Flexible en VBA
Réponses
3
Affichages
534
iliess
I
U
  • Question Question
Autres RÉSOLU ma macro ne fonctionne pas
Réponses
3
Affichages
247
un internaute
U
  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
180
treza88
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
405
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…