Microsoft 365 Probléme en bouton Ajouter

_Thierry

XLDnaute Barbatruc

Repose en paix

• 3 Juillet 2020

• #2

Bonjour @Saloumakh, le Forum

Je n'ai corrigé que le UserForm "FSaisie" pour les Liste des étudiants

Tu auras de quoi t'inspirer pour l'autre UserForm des notes...

L'usage de 'Select' à tout va, surtout depuis des UserForms set fortement déconseillé...

Bien à toi, à vous
@+Thierry

 

Pièces jointes

• XLD_Saloumakh_ prog_vba(1)_v00.xlsm

  41.8 KB · Affichages: 4

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 3 Juillet 2020

• #3

Bonjour @Saloumakh, Thierry, le Forum
Un peu lent aujourd'hui pour ma contribution.
Le piège est qu'une liste commence en colonne B, l'autre en colonne C.
De plus une erreur sur TBprénom qui n'existe pas dans Notes.

 

Pièces jointes

• prog vba (1).xlsm

  43.5 KB · Affichages: 9

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 3 Juillet 2020

• #4

Bonjour @sylvanu , re @Saloumakh , le Forum

Sylvanu, dans un cas tu utilises :

VB:

Sheets("Notes des étudiants").Activate
dl = 4 + Application.CountIf(Range("C5:C65000"), "*")

Et dans l'autre :

Code:

Sheets("Liste des étudiants").Activate
dl = 4 + Application.CountIf(Range("B5:B65000"), ">0")

La raison ne me saute pas aux yeux entre * ou >0 ?

Et sinon donc tu as respecté la volonté de notre amis pour les Select, mais bon si ca fonctionne, sur des mini userforms comme ça il n'y a pas tellement d'impact.

Bonne aprèm
@+Thierry

 

Vote positif 0 Vote négatif

Solution

S

Saloumakh

XLDnaute Nouveau

• 5 Juillet 2020

• #5

Merci beaucoup à vous tous @_Thierry et @sylvanu pour votre aide , le problème est bien résolu.

crdlt

 

Vote positif 0 Vote négatif