Modification de données

Version imprimable

28/06/2014, 15h01
reinruof77

1 pièce(s) jointe(s)

Modification de données

Bonjour le fofo

je fait appel au pro du vba car je comprend plus rien .:boulet:

j'ai un fichier en piece jointe qui créer et modifie les donnée

le problème ce pose sur la modification je n'arrive pas a envoyer mes modification sur les feuilles Synthese et la feuille Active qui correspond au combobox1.

auriez vous une idée de ou est mon erreur:?

Pièce jointe 149902

Merci de votre Aide
28/06/2014, 15h19
Philippe Tulliez

Bonjour,
En lieu et place d'un "Au secours j'ai besoin d'aide", un titre explicite de la discussion serait le bienvenu. On se doute que si tu poses une question c'est que tu as besoin d'aide.
Une petite explication écrite plutôt qu'un renvoi à un fichier joint serait aussi un plus.
Il y a certains intervenants qui n'ouvrent pas d'emblée les fichiers et nombreux sont ceux qui prennent la peine de répondre et d'expliquer en détail la réponse qu'ils donnent. Je crois qu'il est normal que celui qui pose une question et qui attend de l'aide fasse pareil.
28/06/2014, 17h19
reinruof77

Bonjour,Philippe Tulliez

Citation:

=Une petite explication écrite plutôt qu'un renvoi à un fichier joint serait aussi un plus.

Il y a certains intervenants qui n'ouvrent pas d'emblée les fichiers et nombreux sont ceux qui prennent la peine de répondre et d'expliquer en détail la réponse qu'ils donnent. Je crois qu'il est normal que celui qui pose une question et qui attend de l'aide fasse pareil.

si tu avait lu le message tu aurait vu qu'il y a une explication de mon problème dans le message (en gras)

Citation:

le problème ce pose sur la modification je n'arrive pas a envoyer mes modification sur les feuilles Synthese et la feuille Active qui correspond au combobox1. et que je ne peut pas etre plus clair.

il est vrai que le titre n'est pas explicite mais si je vient sur le fofo c'est que je suis vraiment dans la Mer...

Merci en tout cas d'avoir au moins répondu

et si tu as une idée sur mon problème je suis preneur:D
28/06/2014, 17h35
Philippe Tulliez

Bonjour,

Citation:

si tu avait lu le message tu aurait vu qu'il y a une explication de mon problème dans le message (en gras)

J'ai bien évidemment lu ta question mais ce que tu décris dans ce message

Citation:

le problème ce pose sur la modification je n'arrive pas a envoyer mes modification sur les feuilles Synthese et la feuille Active qui correspond au combobox1.

est très succinct.
1) L'affichage du code de ton UserForm qui pose problème et l'explication de ce qui ne va pas (Message d'erreur, envoi de tes données sur la mauvaise plage, etc...). N'oublie pas de les mettre entre les balises prévues à cet effet.
2) Si nécessaire, une courte description de la manière dont tes données sont organisées puisque tu parles de feuilles Synthese (s'il y en a plusieurs leurs noms). Cela aide à la lecture de ton code.
28/06/2014, 18h55
reinruof77

RE a Tous

suite au conseil de Philippe Tulliez je vais essayer d'etre plus precis :)

Citation:

L'affichage du code de ton UserForm qui pose problème et l'explication de ce qui ne va pas (Message d'erreur, envoi de tes données sur la mauvaise plage, etc...).

ce que j'arrive a faire fonctionner

Le combobox 1 de l'userform4 récupére les données de la feuille synthese afin de pouvoir les modifier.

mais lorsque je clic sur VALIDER je voulais que la mise a jour ce fasse sur la feuille synthese et sur la feuille qui correspond a la combobox 1 (feuille active).

Le problème

a l'heure actuel quand je VALIDE j'ai mon message qui me dit que la mise a jour a été faite mais il n'y as aucune modification ni sur la feuille synthese ni sur la feuille active

j'espere avoir été assez clair

ET Merci a tout les bénévole qui prenne de leur temps pour nous aider nous les débutant.:D
28/06/2014, 19h05
Philippe Tulliez

Bonjour,

Citation:

mais lorsque je clic sur VALIDER je voulais que la mise a jour ce fasse sur la feuille synthese et sur la feuille qui correspond a la combobox 1 (feuille active).

Et bien, comme je te l'ai suggéré dans le point 1

Citation:

1)L'affichage du code de ton UserForm qui pose problème et l'explication de ce qui ne va pas (Message d'erreur, envoi de tes données sur la mauvaise plage, etc...). N'oublie pas de les mettre entre les balises prévues à cet effet.

Il y a tellement de possibilités par rapport à ce que tu décris pour que cela ne fonctionne pas, qu'en affichant le code de ta procédure événementielle du bouton VALIDER (du moins je devine qu'il s'agit d'un CommandButton), tu auras plus de chance que l'on puisse t'indiquer ce qui ne va pas.

je crois que le plus simple est encore de mettre 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
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
Private Sub CommandButton2_Click() 'valider
'Feuille active--
 
Dim Cel As Range
Sheets(ComboBox1.Text).Activate
     ComboBox1.Value = Range("E2")
    TextBox3 = Range("B2")
 
'inscription dans SYNTHESE
 
 
  .Range("B" & Ligne) = ComboBox1
    .Range("A" & Ligne) = TextBox3
 
 
  With Sheets("Synthese")
    Set Cel = .Columns("A").Find(what:=Me.ComboBox1, LookIn:=xlValues, lookat:=xlWhole)
    If Not Cel Is Nothing Then
      Ligne = Cel.Row
      If MsgBox("Voulez-vous modifier les informations de " & Me.ComboBox1 & " ?", _
                      vbQuestion + vbYesNo, "Modification") <> vbYes Then Exit Sub
 
 
 
    End If
  End With
  Init_CBB
  Unload Me
  'sauvegarde et impression------------------------------------------------------------------------------------------------
 
 
End Sub
Private Sub UserForm_Initialize()
  Init_CBB
End Sub
Sub Init_CBB()
Dim J As Long, Nbligne As Long
 
  Me.ComboBox1.Clear
  With Sheets("Synthese")
    ' Determine le nombre de cellules remplies en colonne B
    Nbligne = .Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
    For J = 2 To Nbligne                  'Boucle sur les lignes partir de la 2ème (si pas de titre changer en 1)
      ComboBox1.AddItem .Cells(J, 2).Value
    Next J
  End With
  End Sub

Merci a tout les bénévole qui prenne de leur temps pour nous aider nous les débutant.

28/06/2014, 20h36
Philippe Tulliez

Bonjour,

Citation:

e crois que le plus simple est encore de mettre mon code

Non, tu crois ? :P
A la lecture rapide de ton code, je vois déjà une anomalie aux lignes 12 & 13. Le point qui précède l'objet Range n'est relié à rien. Je suppose que cela devrait faire partie d'un Bloc With or je ne le vois pas.
Je suis très étonné que tu n'aies pas un message d'erreur.
Une petite remarque aussi pour la ligne 5. Tu utilises la méthode Activate. Comme les Select, Activate est à proscrire. En VBA, on peut accéder directement aux objets Range sans activer les feuilles ni sélectionner les cellules.
Je me pose la question aussi du fait que tu utilises la propriété Value du ComboBox.
Je ne savais même pas qu'elle existait car il me semble que tu ne peux placer qu'une seule valeur avec cette propriété et alors à quoi bon utiliser une liste d'une valeur mais il me manque peut-être une info pour comprendre.
28/06/2014, 21h20
reinruof77

re

tu me dit que

Citation:

Je suppose que cela devrait faire partie d'un Bloc With or je ne le vois pas.

le With est ligne 16 mais comme je débute je pense que les Ranges devrait être mis après .

Citation:

Tu utilises la méthode Activate. Comme les Select, Activate est à proscrire

j'utilisait cette méthode pour pour pouvoir agir sur la feuille qui etait designer par le combobox mais comme je débute dans Le VBA !!!!
mais apparemment je me trompe sur toute la ligne mais je vais persévérer avec ton aide j’espère.

et je te pris de bien vouloir excuser mon ignorance
mais je fait ce que je peu:D.

et surtout je te remercie de prendre de ton temps de m'aider.
28/06/2014, 22h19
Philippe Tulliez

Bonsoir,

Citation:

le With est ligne 16 mais comme je débute je pense que les Ranges devrait être mis après .

Après oui, pas avant.
Est-ce que tu réfléchis quand tu écris ?
28/06/2014, 23h28
reinruof77

1 pièce(s) jointe(s)

RE

Citation:

Est-ce que tu réfléchis quand tu écris ?

Je reflechis telement que finalement je me suis debrouiller pour que cela fonctionne .

je joint mon fichier qui je pense pourra en aider plus d'un car il y a tout de meme 80% des gens qui viennent ici qui sont debutant .

MERCI
Pièce jointe 149928