IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Une macro pour deux feuilles du meme classeur [XL-2016]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Ingénieur en Télécommunication
    Inscrit en
    Avril 2020
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : Ingénieur en Télécommunication
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Avril 2020
    Messages : 11
    Par défaut Une macro pour deux feuilles du meme classeur
    Bonjour
    votre support svp ,j'ai une macro que je veux exécuter sur deux feuilles différente du mémé classeur Excel mais pour chaque classeur sur des colonnes différente et tous cela sur la même macro si possible

    Feui1:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub aguellil()
     
    Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
            FieldInfo:=Array(0, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
       Columns("B:B").TextToColumns Destination:=Range("B1"), DataType:=xlFixedWidth, _
            FieldInfo:=Array(0, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
     
    End Sub

    Feuil2:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub aguellil()
     
    Columns("F:F").TextToColumns Destination:=Range("F1"), DataType:=xlFixedWidth, _
            FieldInfo:=Array(0, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
       Columns("G:G").TextToColumns Destination:=Range("G1"), DataType:=xlFixedWidth, _
            FieldInfo:=Array(0, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
     
    End Sub

    merci d'avance

  2. #2
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 179
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 179
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Lorsque l'on crée une procédure qui doit être utilisée par des objets différents ou dont la valeur de certaines propriétés est différente, on crée une procédure avec un ou plusieurs arguments.
    Dans votre cas deux arguments, la feuille et la lettre de la colonne ou le numéro ainsi la colonne suivante sera l'argument n° de colonne +1 ou mieux encore deux objets de type Range la "Source " et la "Cible"


    Exemple (non testé) avec un seul argument sht
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Sub T(sht as worksheet)
      sht.Columns("F:F").TextToColumns Destination:=Range("F1"), DataType:=xlFixedWidth, _
      FieldInfo:=Array(0, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
    End Sub
    Que l'on invoquera pour effectuer l'opération sur les feuilles nommées Feuil1 et Feuil4
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Sub T0()
      T ThisWorkbook.Worksheets("Feuil1")
      T ThisWorkbook.Worksheets("Feuil4")
    End Sub
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  3. #3
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Une solution parmi de nombreuses autres :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Sub Main()
        Call aguellil(Worksheets("Feui1"), "A")
        Call aguellil(Worksheets("Feui2"), "F")
    End Sub
     
    Sub aguellil(Feuil As Worksheet, Col As String)
       Feuil.Columns(Col).TextToColumns Destination:=Feuil.Cells(1, Col), DataType:=xlFixedWidth, _
            FieldInfo:=Array(0, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
       Feuil.Columns(Col).Offset(0, 1).TextToColumns Destination:=Feuil.Cells(1, Col).Offset(0, 1), DataType:=xlFixedWidth, _
            FieldInfo:=Array(0, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
    End Sub
    C'est du code tapé directement sur le forum et non testé. Tu auras donc peut-être du débugage à faire.

  4. #4
    Membre averti
    Homme Profil pro
    Ingénieur en Télécommunication
    Inscrit en
    Avril 2020
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : Ingénieur en Télécommunication
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Avril 2020
    Messages : 11
    Par défaut
    Bnojour
    merci a vous pour votre support

    cdt

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2007] Petit soucis de combinaison d'une macro sur deux feuilles
    Par INFINITY100 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 01/05/2015, 14h44
  2. Macro pour deux feuilles uniquement
    Par CLAUDE19 dans le forum Macros et VBA Excel
    Réponses: 15
    Dernier message: 10/08/2011, 05h40
  3. Supprimer une ligne sur deux feuilles du même classeur
    Par apdf1 dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 12/03/2011, 12h28
  4. [XL-2007] Aplliquer une macro sur deux feuil d'un classeur
    Par anasleco dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 16/02/2010, 19h25
  5. [XL-2003] Signer une macro pour deux développeurs
    Par soazig dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 19/05/2009, 10h26

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo