Microsoft 365 Problème en bouton modifier

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 5 Juillet 2020

• #2

Bonsoir Saloumakh,
Hi,Hi,Hi 🙂

VB:

'On récupére le
Numetud = InputBox("Tapez le numéro d'étudiant à modifier ", "MODIFICATION")
'On effecte le résultat de la réponse dans le formulaire
Fmodification.TBnumetud = Numetud
'on ajoute 1 à la valeur pour prendre en compte l'entete
Maligne = Numetud + 1

Rien ne vous choque ?

En numéro étudiant vous avez mis "dddd" que vous récupérez en Numetud pour en faire +1.
Donc "dddd"+1 = Erreur.
Mettez 1111 en B5, ça marche mieux ! 😉

Par contre il manque :

Code:

Fmodification.TBnumetud = Numetud

' Vérification de sécurité
If Not IsNumeric(Numetud) Then
....

pour vérifier que Numetud est bien numérique.

 

Vote positif 0 Vote négatif

S

Saloumakh

Guest

• 5 Juillet 2020

• #3

Quand je tape le num d'étudiant à chercher il m'affiche rien , comme c'est indiqué dans la photo , et quand je valide il me sort le num que j'ai tapé dans la cellule que j'ai mis un cercle sur ( la photo).

même si j'ai mis des nombres au lieu de chiffres.


Pour le deuxième code que vous m'avez écrit , je sais pas où le placer 🙄 ( encore débutante )

Merci à vous

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 5 Juillet 2020

• #4

Je ne comprends pas.
Ces problèmes d'index de ligne ont été résolus dans le post https://www.excel-downloads.com/threads/probleme-en-bouton-ajouter.20046975/#post-20345580
pourquoi ne pas avoir récupérer le code, comme par ex la ligne :

VB:

dl = 4 + Application.CountIf(Range("B5:B65000"), ">0") 'on se positionne dans la derniére ligne

qui calcule la nouvelle ligne. C'est la même structure de module.
Donc dans Sub BTvalider_Click() il vous manque la même structure de recherche de ligne.

 

Vote positif 0 Vote négatif

S

Saloumakh

Guest

• 5 Juillet 2020

• #5

d'accord merci à vous .

 

Vote positif 0 Vote négatif