savoir comment faire

benji1919

XLDnaute Occasionnel
bonjour je voudrais qu'on procede par etape,

donc j'ai une grosse base de données excel, j'aimerais que dans ma combobox il ya tout les nom de mes feuilles de mon classeur excel, pour pouvoir choisir dans quelle feuille encoder les données.
je vous mais aussi mon fichier excel. comme sa vous pouvez comprendre mieux.
forme.jpg

je vous met aussi mon fichier excel a disposition.
 

Pièces jointes

  • blio.xlsm
    83.7 KB · Affichages: 42

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le forum

Petit a)
extrait de la charte du forum
1 – Les forums doivent rester conviviaux. Donc, les échanges doivent être courtois, respectueux et garder la bonne humeur. Les propos agressifs ne sont donc pas tolérés.

Petit b)
si ont ne me répond pas cela veut dire que vous êtes des incapables.

Conclusion:
Sachant que le point a) est en contradiction avec le point b), calculer le temps qu'il faudra à la mère-père de benji (cocher la mention utile) pour venir lui remettre les idées en place ?
Ah ces petits jeunes!

Si ça continue, faudra que cela cesse ;)

May be sixteen is better than seventeen?
Who knows?
 

Staple1600

XLDnaute Barbatruc
Re

Tu as donc ta réponse ;)
Mettre 16 (sixteen) au lieu de 17 dans
Me.Chemin = TblBD(EnregBD, 17)

D'où l'importance de lire attentivement les réponses qu'on te donne.

Tu ne me fais pas chier ;)
Tu te donnes juste en spectacle ;)
(Et c'est dommage pour toi, car je ne suis pas le seul à lire ta discussion, et tes écrits laissent transparaître un peu trop les mauvais aspects de ta personnalité...)

NB: Je n'ai jamais écrit : sixteen years old ...
 

cp4

XLDnaute Barbatruc
Tu me fais pitié benji. Tu te compliques la vie avec cette histoire d'enregistrer sur des feuilles différentes alors qu'elles ont la même structure. Tu aurais pu rajouter une colonne et créer un base de données sur une seule feuille, d'où tu pourras extraire ce que tu veux.

J'ai repris ton fichier, mais en ce moment je n'ai vraiment pas le temps. Tracasseries administratives.

Pour les photos, je pense qu'il faut qu'elles soient au format *.jpg pour qu'elles s'affichent. Pas de png.

ps: je ne te l'envoie tel qu'il est, tu vas encore te noyer.
sans promesses, si je trouve le temps je le terminerai. Mais d'ici là, tu auras une mauvaise note.
Je pense que tu t'es attaqué à un projet au-dessus de tes compétences. Tu aurai dû faire simple.

bonne continuation.
 

Noel Bedard

XLDnaute Occasionnel
Bonjour le fil, le forum,

Bonjour le fil, le forum

Même ailleurs, le son de cloche est le même
https://www.developpez.net/forums/d...macros-vba-excel/besoin-d-aide-fichier-excel/

Beaucoup moins patient que nous, je crois que les gens se parlent entre eux et c'est pas long qu'il se fait tassé.

Ça n'a pas été long qu'il s'est fait retourné dans la conversation que vous citez.

Ça fait pitié de voir cela, j'aurais bien aimé continuer à le supporter mais il ne veut pas s'aider. Avant de déplacer des colonnes ou des feuilles, il devrait prendre le temps de voir les conséquences, revenir en arrière et se demandé pourquoi.

Mais j'ai réussi à lui faire un tableur avec le peu de connaissance que j'ai, il était fonctionnelle, peut-être fragile mais fonctionnelle.
Il pense que les codes suivent les cellules et les feuilles, tant qu'il ne fera pas la différence, il va ramer le petit gars.

Merci et bonne soirée
Noël
 

cp4

XLDnaute Barbatruc
Bonsoir JM, le fil

Alors là, je le prends au mot sur l'autre fil
pouvez vous juste m'aider pour le code vba de la combobox pour pouvoir choisir dans quelle page encoder les données et le reste j'essayerais de me débrouiller.
Je joins le fichier et débrouille-toi.
 

Pièces jointes

  • blio_Final.xlsm
    223.8 KB · Affichages: 40

Staple1600

XLDnaute Barbatruc
Bonsoir cp4

pouvez vous juste m'aider pour le code vba de la combobox pour pouvoir choisir dans quelle page encoder les données
Sauf erreur de ma part , le code pour cette action est déjà implémenté dans son fichier, non ?
VB:
Private Sub UserForm_Initialize()
Dim ws As Worksheet
      For Each ws In ActiveWorkbook.Sheets
      If ws.CodeName <> "Feuil1" Then
            ListePage.AddItem ws.Name
      End If
      Next
'suite du code
End Sub
VB:
Private Sub ListePage_Click()
Dim nomde As String
      nomde = ListePage.Text
      Set f = ActiveWorkbook.Worksheets(nomde)
      f.Select
      UserForm_Initialize
End Sub
 

Noel Bedard

XLDnaute Occasionnel
Bonsoir le Forum,

VB:
Private Sub UserForm_Initialize()
Dim ws As Worksheet
  For Each ws In ActiveWorkbook.Sheets
  If ws.CodeName <> "Feuil1" Then
  ListePage.AddItem ws.Name
  End If
  Next

  Set f = ActiveWorkbook.ActiveSheet
  Set RngBD = f.Range("A5:P5" & f.[A65000].End(xlUp).Row)
  If f.CodeName <> "Feuil1" Then
  RngBD.Sort key1:=Application.Index(RngBD, 1, 1)
  End If

Private Sub ListePage_Click()
Dim nomde As String
  nomde = ListePage.Text
  Set f = ActiveWorkbook.Worksheets(nomde)
  f.Select
  UserForm_Initialize
End Sub

Oui c'est bien ça
 

Discussions similaires

Réponses
5
Affichages
165

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 837
dernier inscrit
Ugo