Forums XLPages

Excel & VBA Espace Débutants [résolu] rassembler 26 feuilles dans 1

rassembler 26 feuilles dans 1
#1
pgaz44
Débutant XLPages

Inscription: 28/07/2009

Messages: 7

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 29-07-2009 09h49
Bonjour,

Je viens encore faire appel à vous car je suis débutante en vba et là je ne sais pas comment m'y prendre.

Voilà j'ai fait un lexique avec 1 feuille par lettre mais je voudrai aussi que les mêmes infos soient disponible dans une feuille globale.

En gros voici le principe :
- on clique sur une des feuilles pour rajouter ou modifier un sigle.
- si on en a rajouté un, on refait un tri par ordre alphabétique.

je voudrai sur la feuille tous un bouton pour actualier ou créer la liste globale.

C'est pas facile à expliquer, j'espère que je suis assez clair.

Merci d'avance pour votre aide
Pièce jointe:
zip Pgaz44.zip   [ Taille: 34.17 Ko - Téléchargements: 528 ]
Hors Ligne
 Rapport   Haut 

Re: rassembler 26 feuilles dans 1
#2
JeanMarie
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 29-07-2009 15h08
Bonjour pgaz44 

Colle le code ci-dessous dans un module
Public Sub Compilation()
'Evite la visualisation des actions à l'écran
Application.ScreenUpdating = False
'Première étape suppression des données existantes sur la feuille "Tous"
Worksheets("Tous").Range("A2:B65536").ClearContents

'Deuxième étape, copier les éléments de chaque feuille
'Activation de la boucle, 26 feuilles
'Le caractére A le code ASCII 65
  For I = 65 To 90
  'L'instruction Chr converti la valeur numérique en caractére texte
  'L'instruction With de répéter la méme instruction X fois
  With Worksheets(Chr(I))
  'On teste si la cellule A2 de la feuille contient une donnée
    If .Range("A2") <> "" Then
      'Des données sont présentes, on procède à la copie et au collage dans la feuille "Tous"
      'L'instruction .end(xlup) permet de remonter à la derniére cellule contenant une donnée
         'cette intruction est équivalente au raccourci clavier Ctrl+Flèche du haut
      '.end(xlup)(2) le 2 permet le décalage, elle évite l'écrasement d'une donnée
      .Range("A2", .Cells(.Range("A65536").End(xlUp).Row, 2)).Copy Destination:=Worksheets("Tous").Range("A65536").End(xlUp)(2)
    End If
  End With
  Next I
'Réactivation des actions à l'écran
Application.ScreenUpdating = True
End Sub

Ensuite rajoute ton bouton sur la feuille, puis affecte la macro Compilation à ce bouton.
Tu peux regarder ce lien pour savoir comment procéder.
Tutoriels n° 04 : Associer la macro à un bouton de la barre d'outils ... 

@+Jean-Marie
Hors Ligne
 Rapport   Haut 

Re: rassembler 26 feuilles dans 1
#3
pgaz44
Débutant XLPages

Inscription: 28/07/2009

Messages: 7

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 29-07-2009 15h11
Super, j'ai réussi sans souci merci beaucoup !

Cependant est ce possible de faire "le collage" sur l'onglet tous à partir de la ligne 6 car je souhaite mettre le bouton au dessus ?
Edité par pgaz44 le 29/07/2009 15:37:47
Hors Ligne
 Rapport   Haut 

Re: rassembler 26 feuilles dans 1
#4
JeanMarie
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 29-07-2009 20h09
Re...

C'est possible et simple, il te suffit de modifier la ligne
Worksheets("Tous").Range("A2:B65536").ClearContents
en
Worksheets("Tous").Range("A6:B65536").ClearContents

Place une donnée dans la cellule A5 de la feuille "Tous"

@+Jean-Marie
 
Hors Ligne
 Rapport   Haut 

Re: rassembler 26 feuilles dans 1
#5
pgaz44
Débutant XLPages

Inscription: 28/07/2009

Messages: 7

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 30-07-2009 09h20
En effet c'est parfait ainsi et pas si dur que ça. Je pense êter capable de refaire ce bouton seule j'ai bien compris le code grâce aux commentaires.

Merci infiniment
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes