Autres Afficher résultat avec boucle VBA

[KRUG WOO]

Bonjour les amis,
Encore perdu avec l'outil boucle, je cherche à trouver le meilleur moyen rapide pour avoir un Résultat : "Admis" si note d’évaluation (note/100) est >=55.
le problème c'est que je peux pas écrire la formule: If Range("e8").Value >= 55 Then Range("g8").Value = "ADMIS" jusqu'à 250ligne ou 250 employés.
Aussi j'espère que je respecte les chartes 😀
Super merci les amis 👍

 

[Jacky67]

Bonjour les amis,
Encore perdu avec l'outil boucle, je cherche à trouver le meilleur moyen rapide pour avoir un Résultat : "Admis" si note d’évaluation (note/100) est >=55.
le problème c'est que je peux pas écrire la formule: If Range("e8").Value >= 55 Then Range("g8").Value = "ADMIS" jusqu'à 250ligne ou 250 employés.
Aussi j'espère que je respecte les chartes 😀
Super merci les amis 👍

Bonjour,
Y a t'il quelque chose qui empêche cette formule en G5

=SI(E5>=55;"Admis";"")

Et recopier vers le bas

 

[sylvanu]

Bonjour Krug Woo,
un essai en PJ avec une boucle For :

Sub resultat()
Application.ScreenUpdating = False
For L = 5 To Cells(Cells.Rows.Count, "B").End(xlUp).Row
    If Cells(L, "E") >= 55 Then Cells(L, "G") = "ADMIS"
Next L
End Sub

Il existe d'autres méthode plus rapide, mais plus complexe, au cas où cette méthode se révélerait trop lente.

 

[Phil69970]

Bonjour @KRUG WOO

Edit Bonjour Jacky et Sylvain

Je te propose ce fichier

Tu as le choix entre la formule ou la version VBA avec boucle

Merci de ton retour

 

[KRUG WOO]

Bonjour,
Y a t'il quelque chose qui empêche cette formule en G5

=SI(E5>=55;"Admis";"")

Et recopier vers le bas

Merci Jacky67,
Non, pas de soucis avec les formules, sauf qu'avec VBA c'est mieux en utilisation une boucle, l'enregistrement allant jusqu'à 100000 écritures, les recopier c'est pas évident.

 

[Jacky67]

Merci Jacky67,
Non, pas de soucis avec les formules, sauf qu'avec VBA c'est mieux en utilisation une boucle, l'enregistrement allant jusqu'à 100000 écritures, les recopier c'est pas évident.

Re..
On écrit la formule une seule fois
On sélectionne la cellule contenant cette formule
On double clique sur le coin inférieur droit jusqu'à obtenir la grosse croix
Et la formule est recopier sur tout le tableau
En vba

Sub resultat()
    For Each c In Range("E5:e" & Cells(Rows.Count, "e").End(xlUp).Row)
        If c >= 55 Then c.Offset(, 2) = IIf(c.Offset(, -1) = "Homme", "Admis", "Admise")
    Next
End Sub

 

[KRUG WOO]

Bonjour @KRUG WOO

Edit Bonjour Jacky et Sylvain

Je te propose ce fichier

Tu as le choix entre la formule ou la version VBA avec boucle

Merci de ton retour

Bonjour Phil69970, bonjour Sylvanu,
Merci beaucoup les amis, ça marche à merveille, surtout en rajoutant le vide par "Recalé".
Je demande trop mais si on ajoute le formule exemple: ligne 11 "Recaler" et on ajoute vous devez completer vos points de 55 pour être admis.
Enfin, si c'est possible 😀

 

[Phil69970]

@KRUG WOO

Voici la V2 comme demandé et toujours par formule et VBA 😉

 

[KRUG WOO]

@KRUG WOO

Voici la V2 comme demandé et toujours par formule et VBA 😉

Bonjour,
Ouaouuuuu, c'est fort 👍 , ça marche
Merci Phil69970

 

[KRUG WOO]

Bonjour,
Ouaouuuuu, c'est fort 👍 , ça marche
Merci Phil69970

Bonjour,

@KRUG WOO

Voici la V2 comme demandé et toujours par formule et VBA 😉

Bonsoir Phil69970,
Je ne sais plus si je devrais écrire dans une nouvelle discussion ou nouveau message, en fait c'est en rapport avec ta formule, si je dois utiliser un userform pour la saisie, avec ton boucle je n'arrive plus à cadrer le range et cells 😭 , c'est vraiment la casse têt. J'utilise Range("...........").ListObject.ListRows.Add.Range, mais 0 résultat. J'aimerai continuer avec tes formules si possible
Merci, je demande trop 😀

 

[Phil69970]

@KRUG WOO

De plus , le fichier que tu as mis dans le post #10 ne correspond en rien avec ce bout de code qui concerne des tableaux structurés !!!

J'utilise Range("...........").ListObject.ListRows.Add.Range,

Bonne lecture

 

[KRUG WOO]

@KRUG WOO

Regarde la pièce jointe 1184635

De plus , le fichier que tu as mis dans le post #10 ne correspond en rien avec ce bout de code qui concerne des tableaux structurés !!!


Bonne lecture

Bon d'accord,

Merci Phil69970 👍