Correction d'une macro

Résolu/Fermé

nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 - Modifié le 4 janv. 2020 à 11:27
nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 - 7 janv. 2020 à 17:29

Bonjour mes amis,

Bonne année à vous tous,

J'ai une macro qui exporte les données dans le fichier "Agenda" sur une autre feuil "export agenda"

mais j'ai fait une mauvaise manipulation et je recois ce msg :

'exportation infos
Private Sub CommandButton2_Click()
    With Worksheets("Agenda Export")
        .Range("A2:C50").ClearContents
        .Range("A2").Resize(UBound(TInfos, 2) + 1, UBound(TInfos, 1)) = Application.Transpose(TInfos)
    End With
    a = Sheets("Agenda Export").Cells(Rows.Count, "A").End(xlUp).Row
    For b = 2 To a
        Set rn = Sheets("Agenda").Cells.Find(What:=Sheets("Agenda Export").Cells(b, "A").Value, After:=Range("A1"), LookIn:= _
        xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
        Sheets("Agenda Export").Cells(b, "A") = "=Hyperlink(" & """" & "#Agenda!" & rn.Offset(0, 1).Address & """" & "," & """" & Sheets("Agenda Export").Cells(b, "A").Value & """" & ")"
    Next
End Sub

EDIT : correction des balises de code

Merci infiniment.

Configuration: Windows / Firefox 52.0

A voir également:

Correction d'une macro
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Correction orthographe - Guide

2 réponses

Réponse 1 / 2

pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
6 janv. 2020 à 17:56

Bonjour,

La variable TInfos qui est "public" donc visible de tous les modules est déclarée deux fois dans le module Mtax et dans le module Module5.

Il suffit de supprimer l'une des deux déclaration

nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
6 janv. 2020 à 18:30

comment puis-je faire ça? supprimer manuellement? sans ajouter ou modifier qlq chose??

pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643 > nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
Modifié le 7 janv. 2020 à 10:55

Bonjour,

Oui tout simplement en mettant en commentaire (en mettant une apostrophe devant) l'une des deux déclarations.
Par exemple dans le module MTax remplacer :

Public TInfos()

par

'Public TInfos()

puis tester.

PS : Au temps pour moi, mes excuses à yg_be qui avait déjà répondu. Je n'avais pas déroulé tous les posts !

nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 > pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020
7 janv. 2020 à 17:29

Merci à vous !

Réponse 2 / 2

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
31 déc. 2019 à 21:08

bonjour, msg=?

nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
4 janv. 2020 à 10:23

celui la en jaune : Private Sub CommandButton2_Click()

est ce msg est selectionner en blue : TInfos

Merci

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476 > nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
4 janv. 2020 à 11:47

et quel est le texte du message?

nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 > yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024
4 janv. 2020 à 11:55

erreur de compilation:
nom ambigu detecté: TInfos

peux-tu partager ton fichier?

Voila Mr,
Merci

https://www.cjoint.com/c/JAelsshlY65

Discussions similaires

Quelqu'un a le corrigé du livre transmath 3eme ?

PDF: manuel de correction

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

Discussions similaires

Newsletters