Cheyenne_2021
XLDnaute Junior
Bonjour,
Je vous souhaite à chacun une année 2023 douce et agréable.
1er fichier Excel : Par une macro, je recopie certaines parties du tableau dans un autre tableau dans un autre fichier Excel déjà créé. Ça, j’y arrive.
Je dois faire cette opération 18 fois, j’aimerais ne pas avoir à modifier le code 18 fois, sachant que dans chaque fichier, le tableau porte un nom diffèrent.
Je récupère donc le nom du tableau par macro et le mets dans une variable : OK.
Par contre, ensuite je teste les zones du tableau modifiées pour les passer en couleur avec Intersect et là, ca ne fonctionne pas. J’aimerais pouvoir mettre le nom de la variable à la place du nom du tableau « en dur ».
Je pense que le nom du tableau est un string et pas un range, que c’est quelque chose comme ça mais je n’y arrive pas.
Je vous remercie,
Je vous souhaite à chacun une année 2023 douce et agréable.
1er fichier Excel : Par une macro, je recopie certaines parties du tableau dans un autre tableau dans un autre fichier Excel déjà créé. Ça, j’y arrive.
Je dois faire cette opération 18 fois, j’aimerais ne pas avoir à modifier le code 18 fois, sachant que dans chaque fichier, le tableau porte un nom diffèrent.
Je récupère donc le nom du tableau par macro et le mets dans une variable : OK.
Par contre, ensuite je teste les zones du tableau modifiées pour les passer en couleur avec Intersect et là, ca ne fonctionne pas. J’aimerais pouvoir mettre le nom de la variable à la place du nom du tableau « en dur ».
Je pense que le nom du tableau est un string et pas un range, que c’est quelque chose comme ça mais je n’y arrive pas.
Je vous remercie,
VB:
Dim UR_Tableau As Range
Nom_TabUR = ListObjects(1).Name
UR_Tableau = ListObject(1)
If Not Intersect([UR_Tableau], Target) Is Nothing Then
'If Not Intersect([T_UR2], Target) Is Nothing Then ' avant
