probleme de code

Version imprimable

probleme de code

bonjour tout le monde

j'ai un petit probleme que je narrive pas a resoudre tout seul et j'ai besoin de votre aide s'il vous plait

je vous explique

j'ai une combobox avec la quel je selection un nom et cela me rempli tous les champs correctement, mais le souci c'est que quand je clique sur le bouton modifier il y a que la colone B2 qui se modifi et pas les autres

voici le code
***********************
Code:

1 2 3 4 5 6 7 8 9 10 11 12 'Procedure permettant de mettre a jour la base Private Sub Cbtedit_Click() Dim i As Integer 'modifier les anciennes données With Sheets("Employ") i = Cbocherche.ListIndex + 2 .Range("B" & i) = Me.Txtlastname .Range("C" & i) = Me.Txtfirstname .Range("D" & i) = Me.Cbogenre .Range("E" & i) = Me.Txtbirth end with end sub
j'ai un tableau avec entete
A2= Nbr
B2 = lastname
C2 = firstname
D2 = genre
E2 = Birth

j'ai un formulaire avec
txtNbr
txtlastname
txtfirstname
cbogenre
txtbirth

pouviez vous m'eclerer s'il vous plait marci
cordilemant

09/02/2023, 10h14
Tête de chat
Bonjour

tu dis que seule la colonne B2 se modifie Je suppose que ça veut dire que dans la conne B, sur la ligne "i" tu retrouve la valeur saisie dans Txtlastname, alors qu'avant il y avait autre chose ou rien ?
Et donc sur la même ligne "i" en colonne C-D-E il ne se passe rien ? Ou il se passe des choses bizarres ? Les cellules ne sont pas protégées ?

Essaye de mettre un msgbox pour t'assurer que Me.Txtfirstname, Me.Cbogenre, Me.Txtbirth contiennent bien ce que tu imagines.
Code:

1 2 3 4 msgbox Me.Txtlastname msgbox Me.Txtfirstname msgbox Me.Cbogenre msgbox Me.Txtbirth
09/02/2023, 10h24
sounly

merci pour ta reponse tres rapide
il y a que le cellule B2(lastname) qui se modifie et les autre rien du tout en plus de tous cela je ne suis pas tres bon en vba
09/02/2023, 10h37
Tête de chat

Re,

tu as essayé de mettre des msgbox comme je l'ai suggéré ?
quand tu dis "les autres rien du tout" si tu mets quelque chose dedans avant ça s'efface ou ça reste inchangé ?
09/02/2023, 11h30
sounly

quand j'ai fini de faire ma recherche dans le combobox tous ce passe tres bien, mais des que je veux essayer de modifier une colone il y a que le celule lastname qui change et les reste des cellules ne change pas comme si je n'avais rien change.

j'ai essayer de mettre msgbox devant excel me renvoie une erreur en rouge

Re,

je n'avais pas dit "mettre msgbox devant"...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Cbtedit_Click()
Dim i As Integer
 'modifier les anciennes données
    With Sheets("Employ")
        i = Cbocherche.ListIndex + 2
             .Range("B" & i) = Me.Txtlastname
             .Range("C" & i) = Me.Txtfirstname
             .Range("D" & i) = Me.Cbogenre
             .Range("E" & i) = Me.Txtbirth
             msgbox Me.Txtlastname
             msgbox Me.Txtfirstname
             msgbox Me.Cbogenre
             msgbox Me.Txtbirth
    end with
end sub

09/02/2023, 12h55
sounly

en mettant bsgbox excel ouvre des boite de message avec dedant les ancien references et comment avant il y a que la cellule lastname qui est pris en compte et a changer
09/02/2023, 13h39
Tête de chat

Re,

c'est donc que la mise à jour se passe bien :)
Le problème apparemment c'est que sur ton formulaire tu dois avoir plusieurs contrôles : ceux que tu utilises dans ce code sont chargés à un moment ou un autre avec la valeur contenue dans la feuille, et ceux dans lesquels tu saisis doivent avoir un autre nom...
09/02/2023, 15h35
sounly

comment je peut faire pour resoudre le probleme s'il te plait

re, ca c'est mon code en entier

dim strexemple as string

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
Private Sub Cbocherche_Change()
'Se positionner
    Feuil1.Activate
    Range("B1").Select
    'On boucle tout les noms de la colonne B
    Do Until ActiveCell = Me.Cbocherche
        ActiveCell.Offset(1, 0).Select
        'Loop
        'Procedure pour recuperer les information de la feuille des employes
        Me.Txtlastname = ActiveCell.Offset(0, 0)
        Me.Txtfirstname = ActiveCell.Offset(0, 1)
        Me.Cbogenre = ActiveCell.Offset(0, 2)
        Me.TxtBirth = ActiveCell.Offset(0, 3)
        Me.Txtcity = ActiveCell.Offset(0, 5)
        Me.Cboprovince = ActiveCell.Offset(0, 6)
        Me.Txttelephone = ActiveCell.Offset(0, 7)
        Me.Txtmail = ActiveCell.Offset(0, 8)
        Me.Txtstartcontrat = ActiveCell.Offset(0, 9)
        Me.Txtendcontrat = ActiveCell.Offset(0, 10)
        Me.Cboposition = ActiveCell.Offset(0, 11)
        Me.Cbostatus = ActiveCell.Offset(0, 12)
        Me.Txtsalary = ActiveCell.Offset(0, 13)
        Me.Txtnbr = ActiveCell.Offset(0, -1)
        Me.Txtcode = ActiveCell.Offset(0, 14)
    Loop
End Sub
 
'Procedure permettant de mettre a jour la base
Private Sub Cbtedit_Click()
Dim i As Integer
 'modifier les anciennes données
    With Sheets("Employ")
      'si entete alors i=listbox1.listindex+1
      'si pas entete alors i=listbox1.listindex+2
        i = Cbocherche.ListIndex + 2
             Cells.Range("B" & i) = Me.Txtlastname.Value
             Cells.Range("C" & i) = Me.Txtfirstname.Value
             Cells.Range("D" & i) = Me.Cbogenre.Value
             Cells.Range("e" & i) = Me.TxtBirth.Value
             'MsgBox Me.Txtlastname
             'MsgBox Me.Txtfirstname
             'MsgBox Me.Cbogenre
             'MsgBox Me.TxtBirth
    End With
 
End Sub
 
 
 
'Procédure permettant de formater la saisie d'une date en ajoutant automatiquement les /
Private Sub TxtBirth_Change()
    'Exemple pour format date JJ/MM/AAAA
    Me.TxtBirth.MaxLength = 10
    MaValeur = Len(Me.TxtBirth)
    If MaValeur = 2 Or MaValeur = 5 Then TxtBirth = Me.TxtBirth & "/"
End Sub
'Procédure permettant de formater la saisie d'une date en ajoutant automatiquement les /
Private Sub Txtendcontrat_Change()
    'Exemple pour format date JJ/MM/AAAA
    Me.Txtstartcontrat.MaxLength = 10
    MaValeur = Len(Me.Txtendcontrat)
    If MaValeur = 2 Or MaValeur = 5 Then Me.Txtendcontrat = Me.Txtendcontrat & "/"
End Sub
 
'Procédure permettant de mettre en minuscule
Private Sub Minuscule(ByRef MonControl As Object)
    MonControl.Value = LCase(MonControl.Value)
End Sub
'Procédure permettant de mettre un contrôle tout en MAJUSCULE, appel de la procédure
Private Sub Txtmail_Change()
    Minuscule Me.Txtmail
End Sub
'Procédure permettant de formater la saisie d'une date en ajoutant automatiquement les /
Private Sub Txtstartcontrat_Change()
    'Exemple pour format date JJ/MM/AAAA
    Me.Txtstartcontrat.MaxLength = 10
    MaValeur = Len(Me.Txtstartcontrat)
    If MaValeur = 2 Or MaValeur = 5 Then Me.Txtstartcontrat = Me.Txtstartcontrat & "/"
End Sub
'Procedure permettant de fermer
Private Sub Cbtclose_Click()
    Unload Me
    'Activer la feuil ACCESS
    Feuil3.Activate
End Sub

ca fait deux jour que je suis sur ce probleme

09/02/2023, 16h19
deedolith

Salut,

Il serait peut-être temps d'apprendre à déboguer:
https://www.bluepecantraining.com/po...ng-techniques/
10/02/2023, 09h59
Tête de chat

Bonjour,

le code ne nous donne pas tous les contrôle et le formulaire...

Si tu as saisis dans le prénom "Maurice" et que txtFirstName contient "Robert" c'est que "Maurice" est ailleurs. Regarde où tu as saisis, reviens sur la définition du formulaire et trouve le nom du bon contrôle...

Peut-être aussi que le formulaire ne fonctionne pas comme tu l'imagines ? (j'ai l'impression que c'est un truc que tu as récupéré...)

... ou Cbocherche_change se déclenche (parce que par exemple sa source est la plage que tu mets à jour) et recharge dans le formulaire les anciennes valeurs dès que tu fais une mis à jour !

Tu peux par exemple mettre un bouton à côté de la combo pour lancer la recherche, et dépalce le code du sub Cbocherche_Change derrier le clic du bouton. Ça évitera les déclenchement intempestifs.

Au passage

Si tu veux que ton with serve à qqchose il faut mettre de "." devant cells : .clees est relatif au with courant, cells à la feuille active
Code:

1 2 3 4 5 6 7 8 9 10 With Sheets("Employ") 'si entete alors i=listbox1.listindex+1 'si pas entete alors i=listbox1.listindex+2 i = Cbocherche.ListIndex + 2 .Cells.Range("B" & i) = Me.Txtlastname.Value .Cells.Range("C" & i) = Me.Txtfirstname.Value .Cells.Range("D" & i) = Me.Cbogenre.Value .Cells.Range("e" & i) = Me.TxtBirth.Value End With
Et ta recherche charge toutes les lignes au fur et à mesure.qu'elle parcourt le tableau. Il faut sortir le chargement de la boucle
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Cbocherche_Change() 'Se positionner Feuil1.Activate Range("B1").Select 'On boucle tout les noms de la colonne B Do Until ActiveCell = Me.Cbocherche ActiveCell.Offset(1, 0).Select Loop ' recuperer les information de la feuille des employes Me.Txtlastname = ActiveCell.Offset(0, 0) ... etc End Sub
Il y a plein de meilleurs moyens pour faire une recherche, mais c'est un autre sujet.