[VBA-E]Récupération de données pour mise à jour !
Hello, Donnez moi votre avis sur cette marche à suivre pour une mise a jour de données et si quelqu'un sait comment faire ????
J'ai toujours le problème des mises à jour. Je vous explique différemment :
1) il faut que je puisse choisir la ligne excel que je veux mettre à jour (choisir via un listbox ou un truc dans le genre)
2) ensuite, une fois que la ligne est choisie, stocker les valeurs des colonnes (A1,B1,C1, etc) dans des variables.
donc :
Code:
1
2
3
4
5
6
7
|
dim colone1 as Variant
dim colone1 as Variant
colone1 = Range("A1")
colone2 = Range("B1")
etc.. |
3) insérer les valeurs des variables dans des textbox afin que l'utilisateur puisse modifier dedans
donc :
Code:
1
2
3
4
|
textbox1.value = colone1
textbox1.value = colone2
etc... |
4) crééer un bouton_click qui permettrait de sauvegarder les nouvelles données dans la variable
5) ensuite, un autre (ou le meme) bouton_click qui permet de réécrire les nouvelles données par dessus les anciennes données !
Code:
1
2
3
4
5
6
|
Public Sub boouton_Click()
Range("A1") = new_colone1 '??jsais pas si c'est possible
Range("B1") = new_colone2
End Sub |
Par contre j'ai ecrit les exemples de code mais ils ne doivent pas du tout correspondre a la réalité, c'était pour essayé d'etre plus précis !
Merci d'avances et a bientot !
autre probleme engendré par cette belle réussite !
DESOLE D'ETRE AUTANT DEPANDANT DE VOUS LE FORUM
------------------------------------------------------
mais y a encore une question ki me tarode :
comment faire pour que les modifications se fasse sur un autre fichier également ?
parce que mon userform de base (celui ki me permet de rentrer les informations dans mon fichier excel) ecrit sur deux fichier différents, 1pour la vision direct et le second pour avoir un résumé de toutes les informations rentrées précédemment !
le premier fichier : declaration_panne.xls
le second : summary_breakdown.xls
comment fait le programme pour ecrire sur les deux fichier :
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
| Application.Workbooks.Open("C:\summary_breakdown.xls").Activate
Dim sbm_range As Range
Dim sbm_test As Integer
Dim identifiant As Range
Dim sbm_increment As Range
Dim Cel As Range
Set identifiant = Range("A" & Rows.Count).End(xlUp)(2)
Set sbm_increment = Range("L" & Rows.Count).End(xlUp)(2)
Set sbm_range = Range("L1:L65536")
Set Cel = Range("B" & Rows.Count).End(xlUp)(2)
sbm_test = Application.WorksheetFunction.Max(sbm_range)
sbm_test = sbm_test + 1
identifiant(1, 1) = sbm_test
sbm_increment(1, 1) = sbm_test
Cel(1, 1) = CorpsDeclarations.ExpediteurNom.Text
Cel(1, 2) = CorpsDeclarations.ExpediteurPrenom.Text
Cel(1, 3) = CorpsDeclarations.DateJour & " \ " & CorpsDeclarations.DateMois & " \ " & CorpsDeclarations.DateAnnee
Cel(1, 4) = selectioncase
Cel(1, 5) = CorpsDeclarations.Supplement.Text
Cel(1, 6) = CorpsDeclarations.HeureArret_H & " H " & CorpsDeclarations.HeureArret_M.Text
Cel(1, 7) = CorpsDeclarations.HeureReprise_H & " H " & CorpsDeclarations.HeureReprise_M.Text
Cel(1, 8) = CorpsDeclarations.TotalHeure_H & " H " & CorpsDeclarations.TotalHeure_M.Text
Cel(1, 9) = CorpsDeclarations.RaisonPanne.Text
Cel(1, 10) = CorpsDeclarations.ReparationsReglages.Text
Application.ActiveWorkbook.Save
Application.ActiveWorkbook.Close |
jsai pas si je peu utiliser le meme concept ???
