XL 2019 Réussir à exécuter une macro VBA sur différentes feuilles à la fois

Yazeubi

XLDnaute Junior
Bonjour à tous,
Je cherche à crée une macro, afin de pouvoir faire fonctionné ma propre macro sur toutes les feuilles de mon fichier EXCEL.

Le but de ma première macro est de récupérer des données d'un tableau situé dans la feuille 1 pour les répertoriés sur une feuille X. J'aimerai que cette macro s'effectue toute seule sur toutes les autres feuilles (j'en ai 24). De plus qu'à chaque fois que les données se rentrent dans le tableau, elles se décalent de deux colonnes afin que les données ne se chevauchent pas.
Voici ma macro pour copier coller mes valeurs dans ma feuille x (Données rassemblée):
ActiveWindow.SmallScroll Down:=-39
Range( _
"C12:21, C24:24, C27:30, C33:34, C37:38, C40:49, C53:53, C56:58, C61:61, C64:64 ,C67:70, C73:74" _
).Select
Range("C73").Activate
Selection.Copy
Sheets("Données rassemblée").Select
Range("B3").Select
ActiveWindow.SmallScroll Down:=-27
ActiveSheet.Paste

Merci beaucoup de votre aide
 

Yazeubi

XLDnaute Junior
Bonjour @Phil69970,
Après la mise en place de ton codage dans mon Excel je me suis rendue compte d'un léger problème que j'ai expliqué en détails dans la feuille "Test". J'ai rajouté une feuille pour imagé ce que j'aimerais dans "Exemple souhaitais".

De plus, j'ai eu une autre idée pour optimisé mon Excel que je ne vous ai pas présenté. J'aimerais rajouté à chaque lignes un bouton dans la case situé devant le tableau (sauf pour les dates). Le code que j'ai mis ci-dessous à été un test et n'est pas représentatif de ce que je souhaiterai. Pour cela j'ai rajouté une feuil "Bouton" représentant ce que j'aimerai.

Je vous remercie encore pour votre formidable travail, je ne veux en aucun cas abusé de votre temps, je comprendrai si ce que je demande est en trop. J'ai tout de même un peu avancé sur le sujet, mon problème est de faire une boucle pour qu'un bouton se crée sur toutes les lignes situé devant le début de mon tableau.

VB:
Sub Création_Bouton_A6()
'
' Création_Bouton_A3 Macro
'Création à l'aide d'une macro d'un bouton dans une case précise, ce bouton créé possèdes lui même une macro


 
 With Range("A6")
       PosG = .Left
       PosH = .Top
       Hauteur = .Height
       Longueur = .Width
       With ActiveSheet.Buttons
      .Add(PosG, PosH, Longueur, Hauteur).Select
      .OnAction = "Création_Bouton_A4"    ' Le bouton est crée, il faut rajouter à cette endroit le nom de la macro que l'on souhaite donnée. La macro "Création_Bouton_A4" est un exemple.
      .Caption = "Bouton sur C4"
   End With
End With

End Sub

Sub Création_Bouton_A4()
'
' Création_Bouton_A4 Macro
'

'
    ActiveSheet.Buttons.Add(1, 40, 60, 12).Select
    Selection.OnAction = "Création_Bouton_A3"
    Range("C4").Select



End Sub
 

Pièces jointes

  • Excel PHIL69970 code collage feuilles.xlsm
    72.8 KB · Affichages: 2

Phil69970

XLDnaute Barbatruc
Bonjour @Yazeubi

Quelques remarques :
1) Perso je n'aime pas quand un demandeur "feulletonne" en modifiant la demande initiale au fur et à mesure des réponses faites.

2) Il me semble qu'au post # 6 je t'ai clairement expliqué ce qu'est un fichier représentatif.

3) J'ai plutôt l'impression que tu marches à vu et ce n'est pas ma manière de voir les choses.

4) Je ne suis pas convaincu de la multiplication des boutons qui sont surement source de futur problème et je n'ai pas compris à quoi ils servent ou serviront (Voir remarques 1 et 3)

5) Je te conseille de refaire une nouvelle demande.

6) Rappel du principe du forum c'est :

==>une question ==> une ou plusieurs réponses ==> je valide la réponse qui me va et que j'ai retenu
==> Nouvelle question ==> une ou plusieurs réponses==> je valide la réponse qui me va et que j'ai retenu....

7) Tu as modifié ma macro donc il est normal quelle ne récupère plus les dates
Ma macro :
1651741119367.png

Ta modification :
1651741175860.png


8) De plus ma macro fonctionne pour récupérer les 2 colonnes comme dans ta demande initiale et toi tu modifies pour en mettre qu'une et demain il y en aurait 3 etc.....
Si tu veux récupérer une colonne vide sans tout refaire ma macro tu contournes le problème en mettant une valeur ici (un espace vide suffit et seulement ici )

1651741566671.png


9) Il me semble que j'ai répondu correctement à tes 2 demandes, perso je n'irais pas plus loin avec ce fil.

Bonne lecture

@Phil69970
 

Discussions similaires