Microsoft 365 Probléme en bouton Ajouter

Saloumakh

XLDnaute Nouveau
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
 

Pièces jointes

  • prog vba (1).xlsm
    50.6 KB · Affichages: 16
Solution
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

_Thierry

XLDnaute Barbatruc
Repose en paix
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

_Thierry

XLDnaute Barbatruc
Repose en paix
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
 

Discussions similaires

Réponses
8
Affichages
430

Statistiques des forums

Discussions
311 730
Messages
2 081 991
Membres
101 856
dernier inscrit
Marina40