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 :

[DÉBUTANT] Modification automatisée année dans cellule [XL-2016]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau membre du Club
    Femme Profil pro
    Étudiant
    Inscrit en
    Février 2018
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 45
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Février 2018
    Messages : 6
    Par défaut [DÉBUTANT] Modification automatisée année dans cellule
    Bonjour à tous,

    J'ai trois fichiers excel permettant d'extraire sous Quadra compta les éléments comptables par compte et par mois de trois types de clients différents.

    Ces trois matrices sont paramétrées pour 2017 du coup je dois changer cellule par cellule l'année qui doit être extraite. Je l'ai fait à 95% pour le premier tableau mais je souhaiterais automatiser cela pour les autres tableaux!

    À savoir tout de même que l'opération n'est pas si simple, car si vous regardez dans chaque cellule, vous trouverez les numéros de comptes qui sont recherchés dans le logiciel compta. Exemple : #DC{&65+&67=4}
    L'année apparaît dans une bulle commentaire sous forme : #DC{&65+&67=4}@01/08/2017@31/08/2017
    Pour modifier en 2018, au travers de l'interface Quadra, j'ouvre mon fichier excel, puis "Complément" puis dans la barre d'outils personnalisés, je clique sur l'icone " QBureautique - Concepteur : Insertion de liaisons de règles de calcul".
    Apparait alors une fenêtre avec les deux dates, je modifie la date et valide. Sauf qu'effectuer cette opération pour chaque cellule est aliénant.
    Y-aurait-il moyen d'effectuer une macro pour que toutes les dates 2017 se transforment en 2018 puis que le fichier effectue correctement ses extractions comme avant sous quadra ?

    Merci par avance pour votre aide!
    Ci-dessous le fichier excel et une copie d'écran de la boite de dialogue ouverte sous quadra

    (PS, je ne m'y connais pas du tout en macro mais si une démarche est expliquée point par point, je peux la faire! Merci )

  2. #2
    Expert confirmé Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    Décembre 2013
    Messages
    2 974
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Responsable comptable & financier
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2013
    Messages : 2 974
    Par défaut
    Bonsoir
    merci de tester ce code sur une copie de ton travail pour ne pas avoir de surprise vu mon niveau de débutant en VBA et que ce code est trouvé sur le net
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Sub corrComment()
        Dim co As Comment
        For Each co In ActiveSheet.Comments
            co.Text Text:=Replace(co.Text, "2017", "2018")
        Next co
    End Sub

  3. #3
    Nouveau membre du Club
    Femme Profil pro
    Étudiant
    Inscrit en
    Février 2018
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 45
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Février 2018
    Messages : 6
    Par défaut
    Merci Bennacer, ça me fait trop plaisir d'avoir une réponse!!!
    Serait-il possible de me guider pour savoir ou et comment taper ce code?

    Je n'ai jamais fait de macro ou vba, je ne sais pas comment m'y prendre... Merci ))

  4. #4
    Expert confirmé Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    Décembre 2013
    Messages
    2 974
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Responsable comptable & financier
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2013
    Messages : 2 974
    Par défaut
    je vous envoie ton fichier avec le code
    tu aura un imput box pour saisir l'année qui se trouve actuellement sur le fichier
    et une deuxième INPUTBOX pour la nouvelle année que vous souhaitez avoir sur ton fichier
    cordialement
    Fichiers attachés Fichiers attachés

  5. #5
    Nouveau membre du Club
    Femme Profil pro
    Étudiant
    Inscrit en
    Février 2018
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 45
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Février 2018
    Messages : 6
    Par défaut
    Merci beaucoup!!! C'est génial, ça fonctionne!

    Je vais essayer de transposer ca dans mes deux autres fichiers excel!

    Très bonne journée et merci beaucoup!

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

Discussions similaires

  1. [XL-2003] recuperer l'année dans cellule
    Par Philippe76 dans le forum Excel
    Réponses: 4
    Dernier message: 04/02/2011, 08h28
  2. Réponses: 3
    Dernier message: 05/09/2006, 15h59
  3. [VBS][Débutant] modification dans Active Directory
    Par _alex_ dans le forum VBScript
    Réponses: 1
    Dernier message: 12/05/2006, 22h52
  4. Réponses: 8
    Dernier message: 28/04/2004, 16h53
  5. [Débutant] Modifs dans Delphi
    Par J-P-B dans le forum XMLRAD
    Réponses: 6
    Dernier message: 20/06/2003, 15h55

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