Discussion :

[sounly]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
             msgbox Me.Txtlastname
             msgbox Me.Txtfirstname
             msgbox Me.Cbogenre
             msgbox Me.Txtbirth

[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

[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é ?

[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

[Tête de chat]

Re,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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