Modifier une base de donnee a partir d un userform

Version imprimable

09/02/2008, 19h28
cchassan

Modifier une base de donnee a partir d un userform

Bonjour a tous,

Je debute dans le vba, alors voila, j ai une petite question

Dans un userform, je saisie le code client , bouton rechercher, ca me remonte mes infos (ca je sais faire) et apres, je modifie l adresse par exemple , bouton modifier et je vpoudrai que ca modifie dans ma feuille excel. j ai essaye plusieurs choses mais impossible, ca marche pas. si quelqu un pouvait m aider ...

Ca serai tres chouette :D
09/02/2008, 19h49
petibonohm

poste nous ton code, ce sera plus facile de te répondre...

Code:

Sheets("FEUILLE").Range("CASE") = "xxxxxx"

Voila mon code ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub BTN_Modifier_Click()
Dim j As Integer
Dim index As Integer
 
With Worksheets("Donnees")
    index = .Range("i1")
    For j = index To 2
 
        If .Cells(j, 1) = CS_CodeClient Then
        .Cells(j, 2) = CS_RaisonSociale
        .Cells(j, 3) = CS_Ad1
        .Cells(j, 4) = CS_Ad2
        .Cells(j, 5) = CS_Ad3
        .Cells(j, 6) = CS_CP
        .Cells(j, 7) = CS_Ville
        Exit For
    End If
Next j
 
End With
 
End Sub

09/02/2008, 20h34
casavba

Bonsoir,
as-tu essayé la fonction "Replace" .
09/02/2008, 20h46
cchassan

ca marche comment cette fonction, tu peux m expliquer ? :lol:

L'aide en ligne et tu sauras tout sur cette fonction ;)

exemple tiré de l'aide:

Code:

1
2
3
4
5
Cet exemple montre comment remplacer chaque occurrence de la fonction trigonométrique SIN par la fonction COS. La plage de remplacement est la colonne A de la feuille Sheet1.
 
Worksheets("Sheet1").Columns("A").Replace _
    What:="SIN", Replacement:="COS", _
    SearchOrder:=xlByColumns, MatchCase:=True

09/02/2008, 21h09
casavba

Dis moi tes infos tu les fais remonter où? dans des textbox d'un UserForm?
parce que si c'est le cas j'ai une autre solution pour toi.
09/02/2008, 22h36
cchassan

En faite, j ai un formulaire, je saisis un code client puis rechercher, les infos de la feuille excel s affichent dans le formulaire (jusque la pas de pb) ensuite, je modifie l'adresse par ex dans le formulaire en appuyant sur le bouton modifier ca doit modifier la feuille Excel . ca doit surement tres facil, mais j y arrive pas :(
10/02/2008, 06h18
fring
Bonjour, met une copie de ton fichier ici : www.cjoint.com ça sera plus facile pour apporter une solution adéquate

Dans le code du bouton "Modifier" tu devrais avoir un truc du genre
Code:

1 2 3 4 5 Private Sub CommandButton1_Click() Sheets(1).Cells(1, 1) = UserForm1.TextBox1.Value 'ou Me.TextBox1.Value 'etc...pour les autres TextBox End Sub
@+
10/02/2008, 12h54
cchassan

c'est bon, j'avais oublie de mettre .value ... OUPS

Merci bcp :yaisse2:
10/02/2008, 16h07
cchassan

Nooooooon, ca marche pas ... Je comprend pas !! C'est simple pourtant. S'il vous plait, aidez moi je ne sais plus quoi faire

je remet mon code ... si quelqu un veut bien m'aider, je pense que ca doit etre tout bete ... mais rien a faire, je trouve pas ou le pb

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub BTN_Modifier_Click()
Dim j As Integer 'compteur
Dim index As Integer 'nombre de ligne
 
'remplace les donnees de la feuille excel par les donnees des zones de saisie
With Worksheets("Donnees")
    index = .Range("i1")
    For j = index To 2
 
        If .Cells(j, 1) = CS_CodeClient.Value Then
        .Cells(j, 2) = CS_RaisonSociale.Value
        .Cells(j, 3) = CS_Ad1.Value
        .Cells(j, 4) = CS_Ad2.Value
        .Cells(j, 5) = CS_Ad3.Value
        .Cells(j, 6) = CS_CP.Value
        .Cells(j, 7) = CS_Ville.Value
        Exit For
    End If
Next j
 
End With
 
End Sub

10/02/2008, 17h19
fring

C'est difficile de répondre comme ça sans avoir un exemple concret mais à 1ère vue les CS... sont les noms de tes TextBox.

Si c'est le cas, il faut juste précise où tu vas les chercher, exemple :

If .Cells(j, 1) = UserForm1.CS_CodeClient.Value Then
.Cells(j, 2) = UserForm1.CS_RaisonSociale.Value

Pour avoir un peu d'expérience sur d'autres forums, le plus simple est de mettre une copie de son fichier en pièce jointe, comme ça on tourne pas autour du pot avant de trouver la solution adéquate ;)
10/02/2008, 17h36
Invité
Bonjour Cchassan,

Fring a répondu :

Citation:

Si c'est le cas, il faut juste précise où tu vas les chercher, exemple :

If .Cells(j, 1) = UserForm1.CS_CodeClient.Value Then
.Cells(j, 2) = UserForm1.CS_RaisonSociale.Value

Il peut avoir raison si vous affectez le contenu des Textbox ou autre Combobox dans une procédure contenue dans un module, mais à partir du moment où l'affectation se fait par le code contenu dans votre Userform , ce qui semble bien le cas puisque votre procédure est : Private Sub BTN_Modifier_Click(), ce n'est pas nécessaire.

Par contre avez-vous essayé de lancer la procédure après avoir mis un point d'arrêt devant la ligne :

Code:

For j = index To 2

puis en pas-à-pas (touche F8) de vérifier si après la ligne :

Code:

If .Cells(j, 1) = CS_CodeClient.Value Then

le passage à l'instruction suivante est :
Code:

1 2 3 .Cells(j, 2) = CS_RaisonSociale.Value ou End If
si c'est le 2ème cas au 1er et 2ème passage, l'égalité n'est pas reconnue.

En passant le curseur sur la ligne de code vérifiez le contenu de Cells(j, 1) et de CS_Codeclient