Problème de transfert

[zeltron24]

Bonsoir à vous tous,

Cette fois encore je sollicite vos connaissances d'Excel pour un sujet assez important.
Voilà dans un classeur comprenant plusieurs feuilles nommées (Magasin A - Magasin B - Magasin C ....) je souhaiterai créer un UserForm qui me donnerait :
- La liste des feuilles du classeur. Afin de sélectionner la feuille adéquate
- Des combiText. Pour y noter La Date; les Achats; Les Sorties; Les Retours
Enfin et c'est le plus difficile, en cliquant sur un bouton, avoir les données reportées sur la feuille sélectionnée plus haut dans la liste. Et en bonus, si je reprend la meme feuille avec d'autres données elles doivent s'inscrire dans la rangée du dessous.
Je souhaite de tout coeur que quelqu'un puisse me résoudre ce problème.
Ci joint un exemple de classeur simple.

Merci d'avance pour votre aide.
Zeltron24

 

[Staple1600]

Re : Problème de transfert

Bonsoir


Utilise le moteur de recherche du site

mot clé: liste feuilles

 

[Staple1600]

Re : Problème de transfert

Par exemple tu trouveras ceci

Private Sub CommandButton1_Click()
'AUTEUR: Hervé
Dim j As Byte
Dim i As Byte

'lister
Workbooks.Add 'crée un nouveau classeur
ActiveSheet.Name = "liste des feuilles" 'nomme l'onglet 1 du nouveau classeur
'j = 1'inutile
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = False Then
Cells(j + 5, 1) = .List(i, 0) ': Cells(j, 5) = .List(i, 1)
.Selected(i) = False
j = j + 1
End If
Next
End With
'Application.DisplayAlerts = False

Unload UserForm1
End Sub

 

[zeltron24]

Re : Problème de transfert

Bonsoir Staple 1600

Ok, je vais voir si je trouve mon bonheur sur le site et merci pour ton conseil

A +

 

[ChTi160]

Re : Problème de transfert

Salut zeltron24
bonsoir Staple1600
Effectivement tu devrais trouver ton bonheur dans les archives

en pièce jointe un fichier juste pour faire voir (pas de test ,pas de mise en forme ) mais bon un début pour patienter Lol

Le Fichier :Regarde la pièce jointe CompteV1.xls

Bonne fin de Soirée

 

[zeltron24]

Re : Problème de transfert

Bonsoir,

Avec un peu de retard (cause travail) je tiens à remercier Chti160 et Staple1600 pour votre aide plus que satisfaisante.

Un grand merci je me charge de mettre en forme tout ce beau travail que vous m'avez fait.
Cordialement
Zeltron24