Faire une substitution de données

Version imprimable

Voir 40 message(s) de cette discussion en une page

16/03/2009, 11h57
NEC14

Faire une substitution de données

Bonjour le forum,

J'ai un formulaire (FrmFich) avec différentes TextBox et un Combo.
A partir du Combo, l'utilisateur choisi un nom (venant du fichier "Adhé").

A l'ouverture du formulaire, seul le combo peut être modifié. Il y a donc un bouton MaJ (mise à jour) qui permet de rendre toutes les TextBox modifiables.

L'utilisateur modifie donc les données nécessaires. Ensuite, lorsqu'il valide sa saisie, je souhaite que les données saisies écrasent celles qui sont dans le fichier en correspondance avec le nom choisi dans la Combo.

Par exemple : Toto est choisi. Des données sont modifiées. Lorsque la validation est activée, alors toutes les données se trouvant sur la ligne où se trouve Toto sont remplacées par celles venant du formulaire.

Pouvez-vous m'aider à faire cela s'il vous plait ?
Je vous en remercie par avance
16/03/2009, 12h05
Godzestla

Bonjour NEC14,
cherche ton TOTO avec .FIND et puis en utilisant le row de la cellule trouvée tu as la ligne.

Facile alors de mettre en place les différents contrôle de to SUF dans les différentes colonnes de cette ligne.
16/03/2009, 12h13
Gorfael

Salut NEC14 et le forum
Comme il n'y a que des généralités...
si tu alimentes les textbox par le nom, déclares une variable globale Pour la ligne (en Long) quand tu mets à jour ton formulaire à partir de la combo, tu la charge avec le numéro de la ligne où tu prends tes infos.
Si tu modifies le nom, pense à faire un test d'unicité sur ta liste d'origine, et quand tu valides les modifications, remets tes Textbox à l'état initial et si le nom est changé, recharge ta combo.
A+
16/03/2009, 12h52
Didier Gonard

Bonjour,

Une solution est de prévoir ça dès le départ, donc à l’alimentation de ton combo, sur laquelle nous n’avons pas d’info, vu le contexte, le nombre d’adhé doit être variable et l’alimentation du combo aussi (dynamique).

La chose consiste à rajouter une colonne dans ton combo (non visible) et dans laquelle tu stockes l’adresse de la cellule de ton adhé lors de son alimentation. Du coup quand un adhé est sélectionné, tu peux écrire toutes ses données via des Offset, voir si tu as structuré ta base de données avec des noms sur les en-têtes de colonnes, tu écris les valeurs avec un truc du genre :

Code:

Cells(donnée N° ligne via Combo, Range("PrenomAdhé" ).Column) = txtPrenomAdhé

Etc… adaptation multiples selon contexte.

cordialement,

Didier
16/03/2009, 13h18
NEC14

Mon Combo est alimenté par des données venant de la feuille "Adhé".
Dans le Combo figure le nom et le prénom de l'adhérent. Comme je l'ai dit plus haut, au démarrage c'est le seul point de modification.

Au départ cette fiche ne devait servir qu'à la consultation, mais il s'avère qu'il soit possible de faire des modifications de la fiche adhérent à partir de ce formulaire. C'est pourquoi je souhaite mettre en place un code qui effacera les données existantes sur de l'adhérent et les remplacera par celle du formulaire mais uniquement si le bouton mise à jour a été activé.

Je vous ai joint une partie du fichier
16/03/2009, 13h18
laetitia

bonjour NEC14 Godzestla Gorfael Ormonth le forum un exemple simple a adapter
16/03/2009, 13h49
laetitia

re le fil le forum houla !! on a poster en meme temps j avais pas vu ton fichier
comme le dit l ami Godzestla find serait plus adaptee

Voilà j'ai commencé ce code, mais je bloque sur les valeurs à mettre
Premièrement derrière .Find je ne sais pas quoi mettre
Deuxièmement c.value= je ne sais pas quoi mettre non plus
Pouvez-vous m'apporter quelques éclairages s'il vous plait ?
Merci par avance
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 'Recherche des données de la Combo dans la feuille "Adhé" With Worksheets("Adhé").Range("C1:C500") Set c = .Find(, lookin:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do 'Remplacent les données trouvées par celles du formulaire c.Value = Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With

Bonjour ou re,
c'est ça que tu cherches ?

Code:

1
2
3
4
With Worksheets("Adhé").Range("C1:C500")
    Set c = .Find(CmbNom, lookin:=xlValues)
    If Not c Is Nothing Then
c.offset(0,13)= c6.value

17/03/2009, 08h24
NEC14

Bonjour le forum,

Là où je coince, c'est avec les données mises à jour dans toutes les TextBox qui doivent remplacer les données existantes dans mon tableau de la Feuille ("Adhé").
Je ne sais pas comment m'y prendre, dois-je répéter plusieurs fois le code ?

De plus le remplacement doit seulement se faire à partir de la colonne E et jusqu'à R pour la feuille ("Adhé")

Merci pour votre aide
17/03/2009, 09h05
Qwazerty

Salut
Perso je ferais en sort que mon tableau excel soit dans l'ordre alpha en fonction de la colonne T.
Ainsi sur ta Uform tu lies ton combox a la colonne T via une étiquette dynamique.

en deuxième je ferais en sort de mettre mes composant (textbox, listbox...) sur des frames, ainsi pour désactiver activer les composant il suffit de le faire une seul fois sur la frame, qui desactivera tout sont contenu.

Je regarde pour le suite, si je comprend bien tu veux cherché le nomprenom de la personne pour effectuer des modifications sur sa ligne d'information en fonction de ce qui a ete saisie dans le UForm, c'est bien ca ? Ton formulaire ne te sert qu'a modifier la base de données? pas a la renseigner?

A++
Qwaz
17/03/2009, 09h52
NEC14

Bonjour qwazerty,

Tout à fait, le formulaire ne me sert qu'à modifier des données déjà saisies.
Pour le reste je n'ai pas tout compris. Mais je vais me soigner et activer mon cerveau.

Formulaire avec Frames ci-joint
17/03/2009, 10h26
Qwazerty

Salut
Voila j'ai fait quelques modifs.
J'ai commencé le code du bouton Valid a toi de continuer, pense bien a vider ton formulaire a la fin, a remettre les frame en enabled false et a le fermer.
Bon courage
[Edit]Je n'avais pas vu ton message édité entre temps, l'intérêt de mettre des frame est de limiter les lignes de code qui désactivent les composants[/Edit]
++
Qwaz
17/03/2009, 11h36
NEC14

Merci Qwazerty cela me semble très bien.
Une petite question cependant, pourquoi y at-il 2 combo ? (ComboBox1 et CmbNom)
17/03/2009, 11h43
Qwazerty

Salut
Juste par ce que je n'ai pas voulu supprimer le tient.
Combobox1 se rempli sans l'aide du code de cmbNom, regardes dans ses propriétés, la sourcerow est défini comme étant une étiquette contenu dans le classeur.
Pour voir cette étiquette vas dans le menu d'excel Insertion->Nom->Définir...
a++
Qwaz

Bonjour le forum,

J'ai donc mis en place une partie du code. Dans le fichier exemple ci-joint ça fonctionne bien. Mais dans mon vrai fichier cela ne fonctionne pas.
Je ne comprends pas. Le formulaire est identique, le tableau est indentique en nombre de colonnes mais comporte 1000 lignes
Pouvez-vous m'apporter votre éclairage s'il vous plait ?
Merci par avance
Désolé si le post est un peu long
Voici le code de mon fichier original

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
 
Private Sub UserForm_Initialize()
FrmFich.Caption = "test"
    AfficheTitleBarre Me.Caption, False
FrmFich.Height = 555
FrmFich.Zoom = 95
End Sub
 
Private Sub CmbMAJ_Click()
Load FrmPass
FrmPass.Show
End Sub
 
Private Sub CmbVal_Click()
Dim TheCellFind As Range
'Ici on va rechercher la ligne a modifier
'Pour l'adhérent dans un 1er temps
Set TheCellFind = Sheets("Adhé").Range("T4:T" & Range("T" & Rows.Count).End(xlUp).Row).Find(ComboBox1.Value)
If TheCellFind Is Nothing Then Exit Sub 'y'a un soucis le nom existe forcement
 
'Ici il faut modifier les cellules correspondantes au infos inscrites dans les textbox
With TheCellFind ' a l'inverse de Combobox1_change
     .Offset(0, -18) = C1.Value 'Inutil d'utiliser Controls(...).Value, autant mettre directement le nom du control
     .Offset(0, -15) = C2.Value
     .Offset(0, -11) = C3.Value
     .Offset(0, -12) = C4.Value
     .Offset(0, -10) = C5.Value
     .Offset(0, -4) = C6.Value
     .Offset(0, -5) = C7.Value
     .Offset(0, -3) = C8.Value
     .Offset(0, -2) = C9.Value
     .Offset(0, -13) = C10.Value
     .Offset(0, -7) = C11.Value
     .Offset(0, -6) = C12.Value
     .Offset(0, -14) = C13.Value
     .Offset(0, -9) = C14.Value
     .Offset(0, -8) = C15.Value
End With
 
End Sub
 
 
Private Sub ComboBox1_Change()
Dim adherent As Variant
Dim conj As Variant
Dim enf As Variant
Dim num As Variant
Dim x As Byte
Dim y As Byte
Dim z As Byte
For x = 1 To 10: Controls("C" & (x)) = "": Next x
For y = 1 To 4: Controls("D" & (y)) = "": Next y
For z = 1 To 30: Controls("T" & (z)) = "": Next z
num = 1
For Each adherent In Range("T4:T" & Range("T" & Rows.Count).End(xlUp).Row) 'Attention ici faut commencer a T2 et non T4
    If adherent = ComboBox1.Value Then
    Controls("C" & num).Value = adherent.Offset(0, -18)
    Controls("C" & num + 1).Value = adherent.Offset(0, -15)
    Controls("C" & num + 2).Value = adherent.Offset(0, -11)
    Controls("C" & num + 3).Value = adherent.Offset(0, -12)
    Controls("C" & num + 4).Value = adherent.Offset(0, -10)
    Controls("C" & num + 5).Value = adherent.Offset(0, -4)
    Controls("C" & num + 6).Value = adherent.Offset(0, -5)
    Controls("C" & num + 7).Value = adherent.Offset(0, -3)
    Controls("C" & num + 8).Value = adherent.Offset(0, -2)
    Controls("C" & num + 9).Value = adherent.Offset(0, -13)
    Controls("C" & num + 10).Value = adherent.Offset(0, -7)
    Controls("C" & num + 11).Value = adherent.Offset(0, -6)
    Controls("C" & num + 12).Value = adherent.Offset(0, -14)
    Controls("C" & num + 13).Value = adherent.Offset(0, -9)
    Controls("C" & num + 14).Value = adherent.Offset(0, -8)
End If
Next
For Each conj In Sheets("Conj").Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row)
    If conj = ComboBox1.Value Then
        Controls("D" & num).Value = conj.Offset(0, 1)
        Controls("D" & num + 1).Value = conj.Offset(0, 4)
        Controls("D" & num + 2).Value = conj.Offset(0, 5)
        Controls("D" & num + 3).Value = conj.Offset(0, 6)
    End If
Next
For Each enf In Sheets("Enf").Range("C3:C3" & Range("C" & Rows.Count).End(xlUp).Row)
    If enf = ComboBox1.Value Then
        Controls("T" & num).Value = enf.Offset(0, 2)
        Controls("T" & num + 1).Value = enf.Offset(0, 3)
        Controls("T" & num + 2).Value = enf.Offset(0, 4)
        Controls("T" & num + 3).Value = enf.Offset(0, 7)
        Controls("T" & num + 4).Value = enf.Offset(0, 5)
        num = num + 5
    End If
Next
 
End Sub
 
Private Sub CommandButton3_Click()
Unload Me
Sheets("Accueil").Visible = True
Sheets("1").Visible = False
Sheets("Adhé").Visible = False
Sheets("Conj").Visible = False
Sheets("Enf").Visible = False
Sheets("Accueil").Activate
End Sub
 
Private Sub UserForm_Activate()
Dim Tablo As Variant, Tempo As Variant, i As Long, j As Long
    Worksheets("Adhé").Activate 'à défaut d'instancier la feuille
    Tablo = Range("T2:T" & Range("T" & Rows.Count).End(xlUp).Row).Value
'triAlpha
    For i = 1 To UBound(Tablo)
        For j = 1 To UBound(Tablo)
            If Tablo(i, 1) < Tablo(j, 1) Then
                Tempo = Tablo(i, 1)
                Tablo(i, 1) = Tablo(j, 1)
                Tablo(j, 1) = Tempo
            End If
        Next j
    Next i
'Remplissage excluant les doublons
    CmbNom.AddItem Tablo(1, 1)
    For i = 2 To UBound(Tablo)
        If Tablo(i, 1) <> Tablo(i - 1, 1) Then CmbNom.AddItem Tablo(i, 1)
    Next
    FrmFich.CmbVal.Visible = False
 'Les frames sont rendues inaccessibles
Frame1.Enabled = False
Frame2.Enabled = False
Frame3.Enabled = False
FrmFich.Height = 610
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        Cancel = True
    End If
End Sub

20/03/2009, 15h10
NEC14

Re j'ai oublié de vous donner le mot de passe "CCLM"
Désolé
20/03/2009, 21h05
Qwazerty

Salut
^^ t'inquiètes pas pour le mot de passe c'était pas bien grave.
Bon ça va pas être facile de te venir en aide si tu ne nous dis pas ou est ce que ça plante ? quel problème rencontres tu? car en me servant de l'exemple fourni je ne vois pas de plantage.
J'ai modifier l'étiquette des noms des gens attention au décalage de case, vois le commentaire en bout de ligne 3.

a++
Qwaz
23/03/2009, 08h14
NEC14

Bonjour le forum, Bonjour Qwazerty,

Désolé d'avoir tardé à répondre mais je n'ai accès à ce forum qu'au travail, je n'ai pas encore le net à la maison, mais ça va venir.

Pour répondre à ta question, dans mon fichier original, les modifications ne sont prsies en compte dans mon tableau, alors que cela fonctionne dans mon exemple.

La colonne T de mon tableau est le résultat d'une formule de calcul, (=C5&" "&D5), cette formule est mise en place afin que le Nom et prénom soient dans la même colonne, le problème peut-il venir de cela ? (formule qui n'apparait pas dans mon fichier exemple).
23/03/2009, 08h40
NEC14

Re,

J'ai fais l'expérience sur le fichier joint avec une formule en T, et effectivement cela bloque la mise à jour.
Mais pourquoi ???

Voir 40 message(s) de cette discussion en une page