abdo78
Messages postés66Date d'inscriptionmercredi 6 février 2008StatutMembreDernière intervention27 novembre 2015
-
27 mai 2011 à 18:04
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018
-
28 mai 2011 à 06:35
salut
Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
If DBGrid1.Col 2 Or DBGrid1.Col 0 Then DBGrid1.Col = 3
If DBGrid1.Col 4 And Not DBGrid1.Columns(3) "" Then DBGrid1.Col = 5
If Not DBGrid1.Columns(3) "" And Len(DBGrid1.Columns(3)) 5 Then LCode1 = DBGrid1.Columns(3)
If Not DBGrid1.Columns(6) "" And Len(DBGrid1.Columns(6)) 5 Then LCode2 = DBGrid1.Columns(6).
If (KeyCode 114 Or KeyCode 13) And DBGrid1.Col = 3 Then
If DBGrid1.Columns(3) "" Then DBGrid1.Columns(3) LCode1
End If
If (KeyCode 114 Or KeyCode 13) And DBGrid1.Col = 6 Then
If DBGrid1.Columns(6) "" Then DBGrid1.Columns(6) LCode2
quelqu'un peut m'expliquer ce code svp
merci
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 27 mai 2011 à 19:11
Bonjour,
tu nous expliques d'abord comment le paramètre Keycode arrive dans cette procédure événementielle.
A ce propos :Passe en debug et regarde la valeur qu'il a et dis-nous ...
Et explique aussi comment on pourrait bavoir un If ni teminé sur une ligne avec un Then, ni terminé par un End If
D'où vient un tel code ?
A moins que tu ne l'aies "tripoté" ou qu'il en manque un bout
____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est
abdo78
Messages postés66Date d'inscriptionmercredi 6 février 2008StatutMembreDernière intervention27 novembre 2015 27 mai 2011 à 19:29
Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
If Not DBGrid1.Columns(3) "" And Len(DBGrid1.Columns(3)) 5 Then LCode1 = DBGrid1.Columns(3)
If Not DBGrid1.Columns(6) "" And Len(DBGrid1.Columns(6)) 5 Then LCode2 = DBGrid1.Columns(6)
Public Sub DBGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode 37 And DBGrid1.Col 5 Then DBGrid1.Col = 3
If (KeyCode 114 Or KeyCode 13) And DBGrid1.Col = 3 Then
If DBGrid1.Columns(3) "" Then DBGrid1.Columns(3) LCode1
End If
If (KeyCode 114 Or KeyCode 13) And DBGrid1.Col = 6 Then
If DBGrid1.Columns(6) "" Then DBGrid1.Columns(6) LCode2
End If
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 27 mai 2011 à 19:47
Ah !
Voilà une procédure évènementielle (KeyDown) fort différente de celle que tu nous avais "étalée"
Un petit (heu... ENORME) problème, puisque tu nous dis que cette fois-ci :
voila le code exacte
Ce code est totalement incohérent (une procédure évènementielle dans l'autre) !
Re-question :
Si tu nous demande d'expliquer ce code, c'est qu'il ne vient pas de toi. D'où vient-t-il alors ? Et il ne risque pas de fonctionner s'il est écrit ainsi !
____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est
abdo78
Messages postés66Date d'inscriptionmercredi 6 février 2008StatutMembreDernière intervention27 novembre 2015 27 mai 2011 à 20:50
effectivement ce n est pas mon code ; c est un code que j ai trouve dans un code source d un programme.
Ce que j ai pas compris c est : est ce qu il y une relation entre lcode1 de l evenement RowColChange et celle dans l evenement keydown .
idem pour lcode2.
Vous n’avez pas trouvé la réponse que vous recherchez ?
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 27 mai 2011 à 21:41
Excuse-moi (mille fois),abdo78, mais là (et tu voudras bien le comprendre, je t'en prie), tu nous montres (le code présenté comme "exact" en est la preuve criante) trop de choses qui mettent en évidence que tu tentes de "fonctionner" par des copier/coller, sans même avoir commencé à te pencher sur certaines bases fort primaires.
Comment t'aider alors valablement ? ===>> impossible avec une telle approche (celle que tu parais avoir choisie) !
Comment te dire certaines choses ? Je ne sais plus (trop vieux, sans doute !)...
De cette manière, peut-être ? ===>> ces mots sont de toi :
merci de m'aider à etre un devloppeur
Alors, fais s'il te plait les tous premiers pas nécessaires (ils sont indispensables), comme tous les développeurs. Prends ton temps, puis reviens une fois ces notions de base acquises. Ce sera alors avec le plus grand plaisir que d'autres et moi-même t'épauleront.
Il est pour l'instant hélàs vain de tenter de le faire valablement et dans l'esprit d'un forum de développement.
Ne prends pas mal ces mots. Ils sont ceux d'un véritable ami.
Bonne chance dans ton apprentissage de VB.
____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 28 mai 2011 à 06:35
Un coup de pouce quand même :
1) tu as vraisemblablement oublié deux End Sub
2) Lcode1 et Lcode2 ont vraisemblablement été déclarés :
- soit en variables gérérales dans le module contenant ces deux procédures évènementielles
- doit en variables publiques dans un module .bas
____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est