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