Discussion :

[Ghost0000]

Bonjour à tous,

Debutant en VBA, je souhaiterai créé un Bouton "Corriger" sur mon userform actuel permettant de corriger la ligne précédente que l'utilisateur vient d'entrer (par le clic sur un Bouton valider).

Le code pour Valider est le suivant :

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
24
25
26
27
Private Sub CommandButton1_Click()
Dim i As Integer
Application.ScreenUpdating = False
Sheets("Rapport").Activate
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Or TextBox6 = "" Or TextBox7 = "" Or TextBox8 = "" Or TextBox9 = "" Or TextBox10 = "" Then
MsgBox "Merci de remplir tous les champs requis"
Else
    i = 11
    Do While Cells(i, 1) <> ""
    Cells(i, 1).Offset(1, 0).Select
    i = i + 1
    Loop
    ActiveCell.Value = TextBox11.Value 'opérations
    ActiveCell.Offset(0, 1) = Range("B2").Value 'fonction Maintenant() pour l'heure
    ActiveCell.Offset(0, 3).Value = TextBox1.Value 'Caractéristique1
    ActiveCell.Offset(0, 7).Value = TextBox2.Value 'Caractéristique2
    ActiveCell.Offset(0, 10).Value = TextBox3.Value 'Caractéristique3
    ActiveCell.Offset(0, 15).Value = TextBox4.Value 'Caractéristique4
    ActiveCell.Offset(0, 20).Value = TextBox5.Value 'Caractéristique5
    ActiveCell.Offset(0, 25).Value = TextBox6.Value 'Caractéristique6
    ActiveCell.Offset(0, 26).Value = TextBox7.Value 'Caractéristique7
    ActiveCell.Offset(0, 27).Value = TextBox8.Value 'Caractéristique8
    ActiveCell.Offset(0, 28).Value = TextBox9.Value 'Caractéristique9
    ActiveCell.Offset(0, 29).Value = TextBox10.Value 'Caractéristique10
    End If
Application.ScreenUpdating = True
End Sub

Je sais comment créé le Bouton "Corriger, mais je ne vois pas quel code il faut mettre pour ce Bouton...

Cordialement.

GK

[illight]

Bonjour,


J'ai du mal à comprendre ton problème : un utilisateur rentre des valeurs dans un formulaire, qui remplit par la suite une feuille Excel.

Pourquoi ne pas le corriger directement dans la feuille Excel ? A quel moment tu veux corriger ? après l'écriture dans le fichier Excel, ou finalement faire un espèce d'écran de validation pour voir si tout est bien renseigné ?

[Ghost0000]

Bonjour, et merci de ta réponse.

En réalité, voila comment ça fonctionne:

L'utilisateur clique sur un Bouton que j'ai mis sur la feuille Excel, cela ouvre un userform (un formulaire à remplir avec differentes données à rentrer)
Ensuite, l'utilisateur valide toutes ces informations à l'aide d'un Bouton "Valider", ce qui ajoute ces informations dans les colonnes adéquates.

Mon souci, c'est que j'aimerai protéger le formulaire avec un mot de passe, donc les cellules ne doivent pas être modifiable.
J'aimerai rajouter un Bouton "Modifier" sur l'userform permettant de modifier la ligne précédemment ajouter en recliquant sur valider...(je sais pas si j'arrive à me faire comprendre)

Cordialement.

GK

[illight]

En fait, tu veux que tout soit géré par formulaire..

Du coup, pour ton bouton "modifier", tu ne veux que la ligne précédente, ou toutes les lignes ajoutées ?

Ce que tu pourrais faire serait de rajouter un formulaire au moment du click sur modifier, afin d'avoir, par exemple, une zone de liste avec toutes les valeurs de ton tableau Excel. En cliquant sur une ligne de ta zone de liste, tu aurais des textbox qui se rempliraient avec les différentes, valeurs que tu pourrais modifier, et valider du coup.

Mais bon je ne sais pas si c'est cela que tu veux. Par contre, ce genre de traitement (je n'en connais pas finalité) ne serait pas plus simple à réaliser avec Access ?

[Ghost0000]

Oui voila j'aimerai que tous soit gérer par le formulaire, et l'idéal que je puisse modifier toutes les lignes ajoutées.
Et j'aime bien ton idée d'un userform qui permet de modifier une ligne que l'on a rajouté.
Concernant Access, je préfèrerai continuer a rester sur VBA et Excel, ma maîtrise d'access est antique.

Je peux créer l'userform avec toutes les TextBox adéquates, mais comment faire après pour savoir quelle ligne gérer ?

[illight]

Il faut que tu créé une listbox, avec toutes les lignes de ta feuille (et toutes les colonnes), avec ta listbox afficher uniquement des colonnes qui te "parleront" de façon à ne pas avoir une listbox trop large.

Au clic sur la listbox, soit tu remplis des textbox, soit tu ouvres un autre formulaire.

Pour te donner une idée de quoi faire, tu peux t'appuyer, même si c'est du Access, sur ce genre de formulaire :

http://cafeine.developpez.com/access...echerchemulti/

C'est un formulaire de recherche, mais tu ne prend que la partie qui t'intéresse, sachant que toi ça ne sera pas du SQL qui remplit ta ListBox, mais une simple boucle for sur tes lignes de la feuille Excel

Après, c'est une idée A toi de l'adapter à ton besoin, et si c'est vraiment adéquat

Pour savoir quelle ligne gérer, tu met un espèce d'index caché dans ta listbox (largeur de la colonne à 0, qui correspondra à ton numéro de ligne)