Lpc940 a écrit :Petite question subsidiaire
j'aurais voulu faire un unique carto regroupant tout les départements dans lesquels je ciste, ayant fait au préalable un carto par département en utilisant les base de données csv. je voulais regroupé toutes ces pages sur le même carto, en copiant collant les feuilles, cela marche très bien jusqu'à environ 17 ou 18 onglets rajoutés, mais après sur la page de l'onglet d'entête ben ca coince un peu je n'ai plus le total de bas de colonne, cela semble être limité aux nombres d'onglets. Cela vient il de chez moi ou as tu mis une limitation.
Salut,
J'ai limité aléatoirement à 29 le nombre de lignes dans le tableau. Mais ce n'est pas une contrainte technique.
Je vais retirer cette limite.
En attendant cette modif officielle, tu peux modifier le source du module macartociste, Subroutine Recapitulation et remplacer les lignes
Else
Range("A" + CStr(lin + 1) & ":N29").ClearContents
Range("A" + CStr(lin + 2) & ":N29").Interior.ColorIndex = xlNone
Range("A" + CStr(lin + 1) & ":N29").Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A" + CStr(lin + 1) & ":N29").Borders(xlInsideVertical).LineStyle = xlNone
Range("A" + CStr(lin + 1) & ":N29").Borders(xlEdgeTop).LineStyle = xlNone
Range("A" + CStr(lin + 1) & ":N29").Borders(xlEdgeBottom).LineStyle = xlNone
Range("A" + CStr(lin + 1) & ":N29").Borders(xlEdgeRight).LineStyle = xlNone
End If
par
Else
Range("A" + CStr(lin + 1) & ":
N999").ClearContents
Range("A" + CStr(lin + 2) & ":
N999").Interior.ColorIndex = xlNone
Range("A" + CStr(lin + 1) & ":
N999").Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A" + CStr(lin + 1) & ":
N999").Borders(xlInsideVertical).LineStyle = xlNone
Range("A" + CStr(lin + 1) & ":
N999").Borders(xlEdgeTop).LineStyle = xlNone
Range("A" + CStr(lin + 1) & ":
N999").Borders(xlEdgeBottom).LineStyle = xlNone
Range("A" + CStr(lin + 1) & ":
N999").Borders(xlEdgeRight).LineStyle = xlNone
End If
et dans fonction ClearSansMessage remplace les lignes
Range("A20:N29").ClearContents: Range("A20:N29").ClearComments
Range("A20:N29").Interior.ColorIndex = xlNone
Range("M13").Interior.ColorIndex = xlNone
Range("A20:N29").Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A20:N29").Borders(xlInsideVertical).LineStyle = xlNone
Range("A20:N29").Borders(xlEdgeTop).LineStyle = xlNone
Range("A20:N29").Borders(xlEdgeBottom).LineStyle = xlNone
Range("A20:N29").Borders(xlEdgeRight).LineStyle = xlNone
par les lignes
Range("A20:
N999").ClearContents: Range("A20:
N999").ClearComments
Range("A20:
N999").Interior.ColorIndex = xlNone
Range("M13").Interior.ColorIndex = xlNone
Range("A20:
N999").Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A20:
N999").Borders(xlInsideVertical).LineStyle = xlNone
Range("A20:
N999").Borders(xlEdgeTop).LineStyle = xlNone
Range("A20:
N999").Borders(xlEdgeBottom).LineStyle = xlNone
Range("A20:
N999").Borders(xlEdgeRight).LineStyle = xlNone
Comment fais-tu les mises à jour depuis tes x carto ? A mon avis, il faudrait mettre bout à bout les x cartocistes NF et faire la Maj avec ce fichier cumulé.
A+