IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Modifier une base de donnee a partir d un userform


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Février 2008
    Messages
    7
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2008
    Messages : 7
    Par défaut 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

  2. #2
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    66
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France, Gard (Languedoc Roussillon)

    Informations forums :
    Inscription : Avril 2007
    Messages : 66
    Par défaut
    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"

  3. #3
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Février 2008
    Messages
    7
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2008
    Messages : 7
    Par défaut
    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

  4. #4
    Membre éclairé Avatar de casavba
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    464
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Juillet 2007
    Messages : 464
    Par défaut
    Bonsoir,
    as-tu essayé la fonction "Replace" .

  5. #5
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Février 2008
    Messages
    7
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2008
    Messages : 7
    Par défaut
    ca marche comment cette fonction, tu peux m expliquer ?

  6. #6
    Membre éclairé Avatar de casavba
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    464
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Juillet 2007
    Messages : 464
    Par défaut
    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

Discussions similaires

  1. [Débutant] comparer deux chaines de caractere a partir d'une base de donnees
    Par jeune informatique dans le forum MATLAB
    Réponses: 2
    Dernier message: 20/05/2010, 15h53
  2. [XL-2003] modifier une base de donnee Par USF
    Par creolia dans le forum Excel
    Réponses: 2
    Dernier message: 26/02/2010, 14h01
  3. Réponses: 2
    Dernier message: 02/12/2009, 23h02
  4. Réponses: 5
    Dernier message: 08/01/2009, 16h05
  5. Comment fournir une base de donnees non modifiable
    Par nadia123456 dans le forum Sécurité
    Réponses: 2
    Dernier message: 29/09/2008, 20h24

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo