Macro lente VBA

Bonjour,

désolé de revenir vers vous, je vais essayer d'exprimer mon besoin le plus clairement possible :
Pour une même valeur trouvée en colonne 1, si je trouve en colonne 2 des valeurs identiques alors j'affiche "NON" en colonne 3 sinon j'affiche "OUI"
Il n'y a pas de notion de lignes successives.
J'ai refait un exemple de résultat attendu.

Pièce jointe 486741

Par exemple : j'affiche un NON en face de la Valeur 1 car en colonne 2 je n'ai que "Valeur A"
Pour la Valeur 2, J'affiche OUI car en colonne 2 j'ai "Valeur A" et "Valeur B"
Pour la Valeur 3, j'aimerais afficher OUI sur toutes les lignes car on trouve "Valeur C" et "Valeur D"
Pour la Valeur 4, j'affiche OUI car J'ai Valeur E et Valeur F

Pour résumer, je veux afficher "NON" sur l'ensemble des lignes correspondantes à une valeur uniquement quand je trouve, les mêmes valeurs en colonne 2.

Est-ce que c'est plus clair ?

Ok...

On va donc compter le nombre de lignes du tableau qui correspondent à la ligne sur laquelle la formule se trouve, et comparer ce nombre à celui des lignes qui ont la même valeur en col1 que celle de la ligne de la formule. Si égalité, NON, sinon, OUI

Pièce jointe 486749

Bonjour Pierre,

Après beaucoup de tests, ta formule convient parfaitement mais j'aimerais diminuer le temps d'exécution et l'incrémenter en VBA.
Pour le temps d'exécution j'utilise " Application.ScreenUpdating = False " qui fonctionne parfaitement.
Le problème est l'incrémentation en VBA, j'arrive à afficher la formule mais le résultat est sous la forme "#NOM?", elle ne s'exécute pas.

voici mon code :

Code:

---

1 2 3 4

Range("T2").Select ActiveCell.FormulaR1C1 = _ "=SI(NB.SI.ENS([Nomproduittechnique],[@[Nomproduittechnique]],[cable],[@cable])=NB.SI.ENS([Nomproduittechnique],[@[Nomproduittechnique]]),""NON"",""OUI"")" Range("T2").Select

---

As-tu une idée ?

Salut

Tu devrais utiliser Formula à la place de FormulaR1C1. Formula et FormulaR1C1 requièrent que la formule soit en anglais. En plus, R1C1 impose un adressage des formules R1C1 que perso je n'aime pas.

Code:

---

1 2	ActiveCell.Formula = _ "=If(Countifs([Nomproduittechnique],[@[Nomproduittechnique]],[cable],[@cable])=countifs([Nomproduittechnique],[@[Nomproduittechnique]]),""NON"",""OUI"")"

---

Il n'est pas nécessaire d'activer la cellule pour utiliser la formule. Tu gagneras beaucoup de temps à ne pas activer tes cellules. Tu peux de suite utiliser range("t2").formula="...". Tu peux même placer la formule en une seule passe sur la plage voulue: range("t2:t1000").formula="..."En plus du screenupdating, tu pourrais désactiver le calcul pour accélérer le traitement

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test() Dim CalculationMode As XlCalculation   On Error GoTo Catch CalculationMode = Application.Calculation Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Range("t2:t1000").Formula = "..."   Catch: Application.Calculation = CalculationMode Application.ScreenUpdating = True End Sub

---

Merci pour les infos, j'avais vu de mon côté que le R1C1 imposait un changement des ";" en "," car c'est en anglais.

J'ai essayé avec ton code mais pas moyen de le faire marcher, il s'exécute mais rien ne s'affiche.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Filtre_Occupation() Dim CalculationMode As XlCalculation   On Error GoTo Catch CalculationMode = Application.Calculation Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Range("T2").Formula = _ "=If(Countifs([Nomproduittechnique],[@[Nomproduittechnique]],[cable],[@cable])=countifs([Nomproduittechnique],[@[Nomproduittechnique]]),""NON"",""OUI"")"   Catch: Application.Calculation = CalculationMode Application.ScreenUpdating = True   End Sub

---

Quand je commente la partie du calcul, je trouve une erreur d'exécution '1004' définie par l'application ou par l'objet

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Filtre_Occupation() ' Dim CalculationMode As XlCalculation ' ' On Error GoTo Catch ' CalculationMode = Application.Calculation ' Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Range("T2").Formula = _ "=If(Countifs([Nomproduittechnique],[@[Nomproduittechnique]],[cable],[@cable])=countifs([Nomproduittechnique],[@[Nomproduittechnique]]),""NON"",""OUI"")"   'Catch: ' Application.Calculation = CalculationMode Application.ScreenUpdating = True   End Sub

---

Une idée ?

Je n'ai pas ton fichier, donc je ne sais pas reproduire ce que tu fais

Code:

---

Range("tableau1[colonne1]").Formula = "=IF(COUNTIFS([NomProduitTechnique],[@NomProduitTechnique],[Cable],[@Cable])=COUNTIFS([NomProduitTechnique],[@NomProduitTechnique]),""OUI"",""NON"")"

---

Pièce jointe 488084

Cela dit, je vois que tu mets cela en T2. Si T2 fait partie de ta table de données, ok. Sinon, ça ne saurait pas fonctionner tel quel. La formule que je t'ai donnée a été rédigée pour être utilisée dans une colonne formulée du tableau.

bonjour Pierre et merci pour tout, ça marche parfaitement et le traitement et bien moins long. :D