Discussion :

[kotédroit]

Bonjour,

Les jours passés nous avons construit un formulaire personnalisé tiré d'une grille excel contenant un tableau de données ( structuré en ligne indépendante les unes des autres)

Quand j'affiche mon formulaire, je retrouve ma ligne de donnée, si je veux modifier les infos :
- soit en sélectionnant un élément dans une listebox
- ou bien en rectifiant à la main dans une textbox

il faut que j'utilise un bouton "Archiver/sauvegarder" (deux en un c'est surement possible)

Archiver : préserver la données de la grille, même si je modifie mon formulaire
==> transfert des données dans une autre feuille par exemple

Sauvegarder : mettre à jour mon tableau sur la ligne concernée
==> écraser les anciennes data et les modifier par la saisie
ou bien
==> ne pas utiliser de transfert de données pour archiver, mais plutôt garder la grille initiale et insérer une nouvelle ligne de saisie par incrémentation à chaque sauvegarde.
( ça permet de travailler sur une feuille, pratique pratique pour les TCD et pivot chart^^)


j'espère que j'énonce cela clairement,

je suis en train de faire mes recherches, je post mon code après manger

Antoine

[kotédroit]

Mon bouton archiver ne fonctionne pas.. j'ai juste réussi empécher de fermer mon formulaire si une textbox est vide.

Mais je n'arrive pas a stocker ma saisie dans une ligne supplémentaire


Code formulaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton_archiver_Click()
 
 
    If TextBox_numparc = "" Then
        MsgBox "vous devez remplir le Numéro du Parc !"
        Cancel = True
    End If
    'c'est la partie ci dessous qui pose problème, je veux récupérer la saisie ...
 
UserForm1.TextBox_numparc.Text = Range("A" & Target.Row)
 
End Sub

Code feuille (grille Excel) : il fonctionne parfaitement, je double click sur une ligne et cela me remonte toutes les infos de la ligne au sein de mon formulaire.

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
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
If Not Application.Intersect(Target, Range("A3:A100")) Is Nothing Then
 
 
    MsgBox "Vous avez double cliqué sur la cellule " & Target.Address
    Cancel = True
 
    UserForm1.TextBox_numparc.Text = Range("A" & Target.Row) 
 
 UserForm1.Show
 
  End If
 
End Sub

[eric4459]

Bonjour Antoine,
Dans le code du formulaire tu écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserForm1.TextBox_numparc.Text = Range("A" & Target.Row)

or ta variable "Target" n'y est pas déclarée ni alimentée...

De plus comme tu fais appel à un message si ton TextBox est vide, aucune valeur saisie, selon moi il vaudrait mieux écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A" & Target.Row)=UserForm1.TextBox_numparc.Text

Eric