Discussion :

[cchassan]

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

[petibonohm]

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

Code :

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

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

[cchassan]

Voila mon code ...

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

[casavba]

Bonsoir,
as-tu essayé la fonction "Replace" .

[cchassan]

ca marche comment cette fonction, tu peux m expliquer ?

[casavba]

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

exemple tiré de l'aide:

Code :

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

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

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

[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

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

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

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

@+

[cchassan]

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

Merci bcp

[cchassan]

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

[cchassan]

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 :

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

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

[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

[Invité]

Bonjour Cchassan,

Fring a répondu :

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 :

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

For j = index To 2

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

Code :

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

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

le passage à l'instruction suivante est :

Code :

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

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