Correction d'une macro [Résolu]

Signaler
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
-
nonossov
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
-
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

2 réponses

Messages postés
1861
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
7 janvier 2020
542
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

comment puis-je faire ça? supprimer manuellement? sans ajouter ou modifier qlq chose??
pilas31
Messages postés
1861
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
7 janvier 2020
542 > nonossov
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020

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
1861
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
7 janvier 2020

Merci à vous !
Messages postés
9351
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 janvier 2020
489
bonjour, msg=?
yg_be
Messages postés
9351
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 janvier 2020
489 > nonossov
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020

peux-tu partager ton fichier?
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
9351
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 janvier 2020

yg_be
Messages postés
9351
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 janvier 2020
489 > nonossov
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020

Tu as déclaré deux fois
Public TInfos()
, une fois dans le module Mtax, une fois dans le module Module5.
Tu dois donc décider soit de supprimer une des deux déclarations, soit de nommer différemment les deux variables. Si tu choisis la deuxième méthode, je te suggère de changer les deux noms, de façon à ne pas oublier de vérifier toutes les utilisations.
Par ailleurs, je recommande d'ajouter
option explicit
au début de chacun de tes modules.
nonossov
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
> nonossov
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020

Mr yg_be.
que est ce que vous pensez?
yg_be
Messages postés
9351
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 janvier 2020
489 > nonossov
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020