Code macro nombre maxi de valeur dans colonne

[gourdin]

Bonjour,

Soit 3 colonnes non contiguës (colonnes A1:A100, G1:G100, N1:N100) avec un certain nombres de valeurs dans chaque colonne. Je souhaite connaître le code macro qui correspondrait à :

"Si le nombre maximum de valeur entre les colonnes A1:A100, G1:G100, N1:H100 est dans la colonne A1:A100 alors etc..

Merci

 

[job75]

Re : Code macro nombre maxi de valeur dans colonne

Bonjour gourdin,

Si j'ai bien compris, VBA n'est absolument pas nécessaire pour si peu.

Par exemple cette formule renvoie 1 si la condition est vérifiée, 0 si elle ne l'est pas :

=SIGNE(NB.SI(A1:A100;MAX(A1:A100;G1:G100;N1:N100)))

Vous l'utilisez comme vous voulez.

Edit : comme vous n'êtes pas vraiment clair, ce peut être aussi NBVAL (ou NB) au lieu de MAX :

=SIGNE(NB.SI(A1:A100;NBVAL(A1:A100;G1:G100;N1:N100)))

A+

 

[gourdin]

Re : Code macro nombre maxi de valeur dans colonne

Désolé de ne pas avoir été assez clair mais il me faut bien un code macro (inséré dans une macro déjà existante) correspondant à :

Si le maximum de valeurs, entre les colonnes A1:A100; G1:G100, N1:N100, est contenu dans la colonne A1:A100 alors ...

 

[job75]

Re : Code macro nombre maxi de valeur dans colonne

Re,

il me faut bien un code macro (inséré dans une macro déjà existante)

Bof, puisque vous y tenez :

Sub Test1()
Dim x As Byte
x = Evaluate("SIGN(COUNTIF(A1:A100,MAX(A1:A100,G1:G100,N1:N100)))")
MsgBox x 'pour tester
End Sub

Sub Test2()
Dim x As Byte
x = Sgn(Application.CountIf([A1:A100], Application.Max([A1:A100], [G1:G100], [N1:N100])))
MsgBox x 'pour tester
End Sub

A+

 

[gourdin]

Re : Code macro nombre maxi de valeur dans colonne

Merci pour cette solution, mais j'ai préféré utilisé le code macro suivant que j'arrive à mieux comprendre :

If Application.WorksheetFunction.CountA(Range("A1:A100")) > WorksheetFunction.Max((Application.WorksheetFunction.CountA(Range("G1:G100"))), Application.WorksheetFunction.CountA(Range("N1:N100"))) Then

 

[job75]

Re : Code macro nombre maxi de valeur dans colonne

Re,

Quand je disais que la question de votre post #1 n'était pas claire

Puisque vous avez pu finalement la résoudre tout seul il était inutile de la poser.

A+

 

[job75]

Re : Code macro nombre maxi de valeur dans colonne

Re,

La méthode Evaluate permet de raccourcir nettement votre code :

If Evaluate("COUNTA(A1:A100)>=MAX(COUNTA(G1:G100),COUNTA(N1:N100))") Then

A+

 

[gourdin]

Re : Code macro nombre maxi de valeur dans colonne

En effet c'est beaucoup plus court

Merci