Modif Userform déja saisie

Version imprimable

02/07/2021, 18h43
Geckothony

Modif Userform déja saisie

Bonjour,

J'ai déjà cherché mais je n'arrive pas à trouver, peux être que je n'utilise pas les bons termes sur Google :P
J'ai un fichier Excel avec un userform, j'inscris des infos qui sont ensuites chargés sur un autre onglet du fichier Excel.
Est-il possible de modifier les infos déjà saisis via un userform ?

Exemple, faire un rappel des infos de la ligne 10 et les modifier ?

Merci pour votre aide !
03/07/2021, 08h10
Pierre Fauconnier

Salut.

J'ai écrit une contribution pour formaliser les échanges entre un useform et un tableau structuré. Tu pourrais probablement t'en inspirer:
https://www.developpez.net/forums/d2...eau-structure/

Merci pour votre aide, je n'ai pas réussi a m'en sortir.
J'ai essayé ce code, lorsque je lance une recherche avec l'userform, il me marque le msgbox "Aucun résultat" :weird:
Je ne comprend pas pourquoi :calim2:

Pouvez vous m'aider svp ?

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
Private Sub btncreer_Click()
Dim i As Integer
i = 1
While ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 1) <> ""
i = i + 1
Wend
If T_Ref.Value = "" Then
MsgBox "Veuillez completer le nom"
Else
ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 1) = T_Ref
ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 2) = T_Date
ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 3) = T_Periode
ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 4) = T_Secteur
ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 5) = T_Motif
ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 6) = T_Temps
ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 7) = T_Commentaire
MsgBox "Opération effectuée"
Unload Me
End If
End Sub
 
Private Sub btnmodifier_Click()
If T_Ref <> "" Then
Sheets("BD TPS ARRET").Range("A" & Label1.Caption).Value = T_Ref
MsgBox "Modification effectuer"
Unload Me
Else
MsgBox "Saisissez une ref"
Exit Sub
End If
 
End Sub
 
Private Sub btnrecherche_Click()
 
 
'------------------ OUVERTURE DE LA FEUILLE BD TPS ARRET
ThisWorkbook.Worksheets("BD TPS ARRET").visible = True
ThisWorkbook.Worksheets("BD TPS ARRET").Activate
 
 
 
    ' --- Dévérouillage feuille
    Dim w As Worksheet
For Each w In ActiveWorkbook.Sheets
w.Unprotect Password:="pikachu"
Next
 
 
  If T_Ref.Value = "" Then
    MsgBox "Veuillez introduire une ref "
    Exit Sub
  End If
   Set cel = Feuil1.Columns(1).Find(what:=T_Ref, LookIn:=xlValues, lookat:=xlWhole)
  If Not cel Is Nothing Then
    MsgBox "Aucun résultat !" & Chr(10) & "Essayez à nouveau "
    Unload Me
  End If
End Sub

06/07/2021, 15h21
Igloobel

Citation:

Envoyé par Geckothony

Bonjour,
J'ai un fichier Excel avec un userform, j'inscris des infos qui sont ensuite chargés sur un autre onglet du fichier Excel.
Est-il possible de modifier les infos déjà saisis via un userform ?

Exemple, faire un rappel des infos de la ligne 10 et les modifier ?

Merci pour votre aide !

La réponse est : Oui bien sûr !!!

Tu peux aussi utiliser les formulaires automatiques (Ces formulaires étaient déjà présents dans les versions antérieures à 2007)

Personnellement je le mets dans la barre d'accès rapide :

- clic sur la flèche et choisir autres commandes ...
- dans la ComboBox sélectionner : Toutes les commandes
- dans la ListBox sélectionner : Formulaire ...
- cliquer sur Ajouter puis OK

Le bouton formulaire est disponible

tu nous dis si cela te convient

A+

Je viens de tester le formulaire, enfaite je souhaite un userform, car le fichier est utilisée par plusieurs personnes et les feuilles sont verrouiller par mot de passe pour ne pas qu'ils touchent aux formules.

Il y a donc un userform sur la page principal où ils ajoutent des données sur un onglet de la feuille (Appelé "BD TPS ARRET), sauf que parfois ils veulent corriger ce qu'ils ont déjà renseigné.

Pour cela j'ai ajouté une colonne pour créer une référence par ligne de saisie, soit une référence par saisie, en gros, 1,2,3,4,5 ect...

Avec mes recherches je suis tombé sur un code que j'ai adapté, et lorsque je lance la recherche, il me marque qu'il ne trouve rien, alors qu'il est censé trouver quelque chose :calim2:
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 Private Sub btncreer_Click() Dim i As Integer i = 1 While ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 1) <> "" i = i + 1 Wend If T_Ref.Value = "" Then MsgBox "Veuillez completer le nom" Else ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 1) = T_Ref ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 2) = T_Date ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 3) = T_Periode ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 4) = T_Secteur ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 5) = T_Motif ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 6) = T_Temps ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 7) = T_Commentaire MsgBox "Opération effectuée" Unload Me End If End Sub Private Sub btnmodifier_Click() If T_Ref <> "" Then Sheets("BD TPS ARRET").Range("A" & Label1.Caption).Value = T_Ref MsgBox "Modification effectuer" Unload Me Else MsgBox "Saisissez une ref" Exit Sub End If End Sub Private Sub btnrecherche_Click() '------------------ OUVERTURE DE LA FEUILLE BD TPS ARRET ThisWorkbook.Worksheets("BD TPS ARRET").visible = True ThisWorkbook.Worksheets("BD TPS ARRET").Activate ' --- Dévérouillage feuille Dim w As Worksheet For Each w In ActiveWorkbook.Sheets w.Unprotect Password:="pikachu" Next If T_Ref.Value = "" Then MsgBox "Veuillez introduire une ref " Exit Sub End If Set cel = Feuil1.Columns(1).Find(what:=T_Ref, LookIn:=xlValues, lookat:=xlWhole) If Not cel Is Nothing Then MsgBox "Aucun résultat !" & Chr(10) & "Essayez à nouveau " Unload Me End If End Sub

06/07/2021, 18h31
Pierre Fauconnier

Citation:

Envoyé par Geckothony

Je viens de tester le formulaire, enfaite je souhaite un userform, car le fichier est utilisée par plusieurs personnes et les feuilles sont verrouiller par mot de passe pour ne pas qu'ils touchent aux formules.[...]

Et tu souhaites que plusieurs personnes puissent encode "en même temps" dans le fichier? Si oui, tu oublies. Excel n'est pas fait pour cela et tu ne sauras pas gérer les accès concurrents, ne serait-ce que parce que les utilisateurs qui suivent le premier qui ouvre le fichier ne l'auront qu'en lecture seule...
08/07/2021, 14h48
Igloobel

Citation:

Envoyé par Pierre Fauconnier

Et tu souhaites que plusieurs personnes puissent encode "en même temps" dans le fichier? Si oui, tu oublies. Excel n'est pas fait pour cela et tu ne sauras pas gérer les accès concurrents, ne serait-ce que parce que les utilisateurs qui suivent le premier qui ouvre le fichier ne l'auront qu'en lecture seule...

Pierre j'étais d'accord avec toi jusqu'à ce que ...

Dans l'entreprise où je travaille ils ont installé OneDrive et Teams sur SharePoint
Grace à cette mise en place, les groupes (équipes) peuvent échanger, discuter et même travailler en même temps sur même fichier.

Ce n'est plus Excel qui partage mais SharePoint et cela fonctionne nickel.

Une équipe travaille sur le sujet et bien évidemment ils l'ont testé.

donc en résumé eh bien cela dépend

Excel seul cela marche mal
Excel sur OneDrive ou Teams via SharePoint et partagé à ce niveau cela marche très bien et même chose sur tous les documents office (Word, Powerpoint ...)
08/07/2021, 16h19
Pierre Fauconnier

Citation:

Envoyé par Igloobel

[...]
Excel sur OneDrive ou Teams via SharePoint et partagé à ce niveau cela marche très bien et même chose sur tous les documents office (Word, Powerpoint ...)

Je reste assez dubitatif pour ce qui concerne les actions réalisées par des macros, du moins certaines, surtout lorsque je vois comment les macros sont écrites. Ok, je n'ai pas tout testé, mais je doute que des accès concurrents sur les mêmes lignes en modif soient bien gérés.

De plus, de mon expérience avec les équipes IT de mes clients, je doute assez que l'IT soit pour ce genre de développements. A voir sur le long terme, bien évidemment. Je reste néanmoins sur l'idée qu'Excel n'est pas fait pour cela, et qui si des macros doivent être développées dans un Excel partagé, il y a plus qu'intérêt à ce que le code soit bétonné. Lorsque je vois certaines propositions sur le forum, j'ai des doutes que ça passe la rampe sans soucis ;)