Discussion :

[Nemesis7285]

Bonjour,
j'ai un petit soucis sous vba/excel pour un projet avec le contrôle spreadsheet.

J'ai donc:
sur mon classeur excel:
- Des feuilles avec des plages de données allant de B1 à C6

dans mon formulaire:
- bouton de commande "init" qui donne les noms de la listbox
- une listbox contenant les noms des onglets
- un bouton de commande "save" permet de sauvegarder les modifications du spreadsheet
- un objet spreadsheet qui me permet de voir les feuilles

Donc normalement, je clic sur "init", cela actualise la listbox (ensuite surement un autre truc, d'ou l'utilité de ce bouton).
J'en viens à cliquer sur un des noms de ma listbox, cela m'affiche sur le spreadsheet ma plage de donnée correspondante à l'onglet.
Je dois pouvoir modifier ces données.
Et enfin, le bouton "save" qui doit enregistrer les données du spreadsheet actif et les remplacer dans le bon onglet.

Problème:
- J'arrive pas à voir mes noms d'onglets (ce code marchait sur mon autre pc en 2003)
- Quand je clic onglet 2 ensuite 1 puis 2 cela me fait un message d'erreur
- Je n'arrive pas à exporter correctement les modifications de mon spreadsheet vers l'onglet correspondant à la listbox


Je viens de passer pas mal de temps à chercher des solutions mais je ne trouve pas comment faire.
Je suis preneur de toutes les solutions/aides/conseils !

Merci et bonne journée

[PMO2017]

Bonjour,

Essayez avec le code modifié

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
Public Sub Initialisation_Click()
Nfichier1 = ActiveWorkbook.Name
ListBox1.Clear
For Each sh In Sheets
ListBox1.AddItem sh.Name
Next
End Sub
Public Sub ListBox1_Click()
Dim ch As String
ch = CStr(Init.ListBox1.Value)
Worksheets(ch).Range("A1:C6").Copy 'plage de donnée pour la listbox
Spreadsheet1.[a1].Paste 'coller la plage excel dans l'objet spreadsheet
End Sub
Public Sub save_Click()
Spreadsheet1.[a1].CurrentRegion.Copy
Worksheets(CStr(Init.ListBox1.Value)).Paste
End Sub
Private Sub UserForm_Initialize()
Call Initialisation_Click
End Sub

Cordialement.

PMO
Patrick Morange

[Nemesis7285]

Merci beaucoup, cela fonctionne mais ne me colle pas au bon endroit, donc à partir de A1 mais plutôt aléatoirement sur la bonne feuille de destination suivant la cellule active.

Code :

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

1
2
3
4
Public Sub save_Click()
Spreadsheet1.[a1].CurrentRegion.Copy
Worksheets(CStr(Init.ListBox1.Value)).Paste
End Sub

Code :

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

1
2
3
4
5
6
7
Public Sub save_Click()
Spreadsheet1.Range("A1:G15").Copy

Worksheets(CStr(Init.ListBox1.Value)).Select
Worksheets(CStr(Init.ListBox1.Value)).Range("A1").Select
ActiveSheet.Paste
End Sub

Voilà, correction apportée, cela me copie correctement à partir de A1 ma plage venant de on spreadsheet.


Pour mon soucis de clic dans la listbox, j'ai l'impression que le problème vient plus de la mémoire du spreadsheet, car cela m'indique qu'une feuille porte déjà ce nom. Je suppose donc que lors du clic et de l'importation, cela enregistre quelque part cette "image". Je vais donc essayé de supprimer la mémoire du spreadsheet ou bien supprimer le message...

Encore merci, le bout du Cstr je n'aurais pas trouver tout seul car je ne vois pas trop ce que cela signifie.

EDIT: Correction ajoutée