Discussion :

[Samuel24]

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.



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 ?

[Pierre Fauconnier]

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

[Samuel24]

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 vba :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Samuel24]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Pierre Fauconnier]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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.

[Samuel24]

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