Microsoft 365 Probléme en bouton Ajouter

[Saloumakh]

Bonjour,



Svp j'ai un souci concernant le bouton Ajouter qui marche tjrs pas , soit ça saute pas de ligne à chaque fois que j'ajoute une info , soit il se positionne pas dans la bonne cellule , pour les deux feuilles.



J'éspere que vous puissiez m'aider encore une fois .

Merci d'avance



voila mon programme

 

[_Thierry]

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

 

[sylvanu]

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.

 

[_Thierry]

Bonjour @sylvanu , re @Saloumakh , le Forum

Sylvanu, dans un cas tu utilises :

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

Et dans l'autre :

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

 

[Saloumakh]

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

crdlt