Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Tableau

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

jaclam

XLDnaute Nouveau
Bonjour

Je ne crois pas avoir vu cette question déjà traitée (du moins selon mes recherches).
J'ai créé un tableau Excel (v. Microsoft 365) à partir d'une plage de données. Dans les cellules dune ligne, j'ai des dates, des sigles sous forme de liste déroulante, des nombres et des formules de calcul.
J'ai renseigné les différentes lignes jusqu'à la ligne 37. Chaque nouvelle ligne renseignée reprenait les formats et les formules de la précédente ligne, ce qui fait la beauté de cet instrument qu'est le tableau. La couleur de ligne du tableau était également reprise (alternativement gris et couleur).
Arrivé à la ligne 38, impossible de retrouver ni les formats dates (exprimées en nombre), ni la couleur de la ligne, ni les formules de la précédente ligne, ni même la liste déroulante. Pourtant, quand mon curseur est positionné sur une des cellules de la ligne 38, je vois que je suis bien dans le tableau ( "Création de tableau" apparaît bien dans le menu principal.
J'ai essayé diverses solutions comme par exemple modifier dans le gestionnaire de noms la dernière ligne du tableau : 38 au lieu de 37(j'avais lu cela ailleurs) mais rien n'y fait.
J'espère avoir été clair.
Votre aide serait la bienvenue.
Merci beaucoup et bonne journée.
Jean-Claude
 
Trier par date Trier par votes
Bonjour jaclam, le forum,

Si vous craignez de vous tromper vous pouvez exécuter cette macro pour faire le travail :
VB: 
Sub MAJ_Tableau()
Dim P As Range, tablo
Application.ScreenUpdating = False
With Sheets("Suivi compte")
    Set P = .ListObjects(1).Range 'tableau structuré
    tablo = P 'mémorise les valeurs
    .Cells.Clear 'efface toute la feuille
    P = tablo 'restitue les valeurs
    With .ListObjects.Add(xlSrcRange, P, , xlYes) 'recrée le tableau structuré
        .TableStyle = "TableStyleMedium8"
        With .Range.Rows(2).Resize(.ListRows.Count)
            .Columns(1).Validation.Add xlValidateList, Formula1:="=INDIRECT(""Symboles"")"
            .Columns(7).Validation.Add xlValidateList, Formula1:="A,V"
            .Columns(10).FormulaR1C1 = "=IF(RC[-2]<>"""",RC[-2]+N(R[-1]C),"""")"
            Union(.Columns(8), .Columns(10)).NumberFormat = "0.00;[Red]-0.00"
        End With
    End With
    Union(P.Columns(3).Resize(, 2), P.Columns(7)).HorizontalAlignment = xlCenter
    P.Columns.AutoFit 'ajustement largeurs
    With .UsedRange: End With 'actualise les barres de défilement
End With
End Sub
Grâce à With .UsedRange: End With la Dernière cellule est maintenant J37.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonjour et merci à vous @job75 , @TooFatBoy et @Phébus
J'ai téléchargé la correction et je vais tester. Par contre j'avoue que je n'ai pas compris tout votre échange sur les lignes et colonnes vides (?)
D'autre part @job75 tu dis "Le tableau structuré Tableau2 était mal construit"? Bizarre car pour le faire j'ai juste cliqué sur "Mettre en forme de tableau". Tu a une idée sur ce qui a pu se produire ?
Merci encore pour votre aide précieuse
 
Vote positif 0 Vote négatif
Je viens de modifier un peu la macro du post #18.

Et celle-ci fonctionne même si le tableau d'origine n'est pas structuré :
VB: 
Sub MAJ_Tableau()
Dim P As Range, tablo
Application.ScreenUpdating = False
With Sheets("Suivi compte")
    Set P = .[A1].CurrentRegion
    If P.Rows.Count = 1 Then Set P = P.Resize(2)
    tablo = P 'mémorise les valeurs
    .Cells.Clear 'efface toute la feuille
    P = tablo 'restitue les valeurs
    With .ListObjects.Add(xlSrcRange, P, , xlYes) 'recrée le tableau structuré
        .TableStyle = "TableStyleMedium8"
        With .Range.Rows(2).Resize(.ListRows.Count)
            .Columns(1).Validation.Add xlValidateList, Formula1:="=INDIRECT(""Symboles"")"
            .Columns(7).Validation.Add xlValidateList, Formula1:="A,V"
            .Columns(10).FormulaR1C1 = "=IF(RC[-2]<>"""",RC[-2]+N(R[-1]C),"""")"
            Union(.Columns(8), .Columns(10)).NumberFormat = "0.00;[Red]-0.00"
        End With
    End With
    Union(P.Columns(3).Resize(, 2), P.Columns(7)).HorizontalAlignment = xlCenter
    P.Columns.AutoFit 'ajustement largeurs
    With .UsedRange: End With 'actualise les barres de défilement
End With
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour à tous.
Merci @job75 pour cette nouvelle macro.
  • j'ai continué à remplir le TS et 'est impeccable !
  • j'ai déjà testé la première macro avec succès. Quelle est la nouveauté ? Et cette macro me servirait en cas de problème quelque soit le nombre de lignes remplies ?
  • maintenant, j'ai peur de faire une quelconque modif : je voudrai intervenir sur les formats de nombres de certaines colonnes : puis-je le faire sans risque ou est-il mieux d'inclure des lignes complémentaires dans ta macro 'sur le modèle de la tienne : Union(.Columns(8), .Columns(10)).NumberFormat = "0.00;[Red]-0.00") ?
Merci encore à vous tous pour votre aide.
Bonne fin de WE.
Jean-Claude
 
Vote positif 0 Vote négatif
Les 2 macros recréent le tableau quel que soit le nombre de lignes du tableau d'origine.

Vous pouvez en effet formater la colonne B en ajoutant :
VB: 
           .Columns(2).NumberFormat = "0.00"
Pour les colonnes E et F je vous conseille de ne pas y toucher puisque le nombre de décimales varie de 1 à 5, le format Standard convient très bien.
 

Pièces jointes

Vote positif 0 Vote négatif
jaclam à dit:
Par contre j'avoue que je n'ai pas compris tout votre échange sur les lignes et colonnes vides (?)
Cliquez pour agrandir...
Je disais que si tu utilises la combinaison de touches <Ctrl>+<Fin> tu vois que la "plage utilisée" comprend deux colonnes à droite du TS et trois lignes en dessous.

Ce n'est pas grave en soi, c'est juste que ça fait un fichier un tout petit peu plus gros pour rien. 😉
 
Vote positif 0 Vote négatif
jaclam à dit:
D'autre part @job75 tu dis "Le tableau structuré Tableau2 était mal construit"? Bizarre car pour le faire j'ai juste cliqué sur "Mettre en forme de tableau".
Cliquez pour agrandir...
Et moi j'ai dit :
TooFatBoy à dit:
Pour moi, c'est juste le TS qui a été mal construit, mais ça se répart. 😉
Cliquez pour agrandir...
C'est pour ça que j'ai proposé en #8 ton TS corrigé (mise en forme et formule).



jaclam à dit:
Tu a une idée sur ce qui a pu se produire ?
Cliquez pour agrandir...
Souvent quand tu crées le TS après avoir intégré les formules et fait les mises en forme, lors de l'ajout de lignes il y a des soucis.
Du coup tu refais tout, colonne par colonne au niveau des données du TS et c'est bon.

D'ailleurs, tu vois que les formules n'ont plus du tout le même aspect, puisqu'elles utilisent le fait qu'elles sont dans un TS.
 
Vote positif 0 Vote négatif
Bonjour
Merci pour la macro corrigée

=================
TooFatBoy à dit:
C'est pour ça que j'ai proposé en #8 ton TS corrigé (mise en forme et formule).
......
D'ailleurs, tu vois que les formules n'ont plus du tout le même aspect, puisqu'elles utilisent le fait qu'elles sont dans un TS.
Cliquez pour agrandir...
Oui j'ai vu le changement des formules sur la forme. Merci.

Merci à vous et bonne journée.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Question Question
Microsoft 365 Tableau de progressions
Réponses
10
Affichages
272
Rosario.
R
T
  • Question Question
XL 2019 dans un tableau ( mise en forme de tableau), 2 couleur pour 1 tableau
Réponses
4
Affichages
52
tuti
T
T
  • Question Question
XL 2019 tableau , cellule protégé et ligne vide
Réponses
2
Affichages
52
sylvanu
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
41
StéphaneDeLà
S
M
  • Résolu(e)
XL 2016 Formule de ligne précédente non mise à jour après une insertion automatique de lignes dans l'objet tableau.
Réponses
4
Affichages
42
TooFatBoy
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
53
vgendron
P
  • Résolu(e)
XL 2019 Tri sur une ligne dans un tableau.
Réponses
4
Affichages
117
Paulle
P
A
  • Résolu(e)
Autres Tri tableau vba
Réponses
9
Affichages
89
sylvanu
R
  • Question Question
Microsoft 365 rechercher sur la première ligne d'un tableau
Réponses
1
Affichages
97
Dranreb
C
  • Résolu(e)
XL 2019 Problème de transferts de données formulaire à feuille
Réponses
5
Affichages
37
ceralpes
C
E
  • Question Question
Microsoft 365 Formule excel pour utiliser la dernier donnée d'une ligne dans une formule
Réponses
8
Affichages
231
emmanuel.conche
E
  • Question Question
XL 2019 correction formule impossible
Réponses
4
Affichages
168
Ferbank
  • Résolu(e)
Microsoft 365 Tableau de STATS sur autre feuille
Réponses
8
Affichages
352
AtTheOne
  • Question Question
XL 2021 [Résolu] MFC et tableau structuré
Réponses
14
Affichages
337
jeff1494
H
  • Question Question
XL 2013 Erreur VBA 1004 Impression zone d'impression tableau
Réponses
13
Affichages
366
Helios77
H
B
  • Question Question
XL 2013 trier les lignes pour transfert sur autre tableau
Réponses
2
Affichages
236
bruno972
B
  • Résolu(e)
XL pour MAC Mise en forme conditionnelle dynamique
2 3
Réponses
36
Affichages
1 K
Philarête
R
  • Résolu(e)
Microsoft 365 Tableau convocations
2
Réponses
29
Affichages
1 K
Rosario.
R
A
  • Résolu(e)
Microsoft 365 programme VBA pour "importer" les valeurs de certaines cellules d'une autre feuille appartenant à une ligne que j'identifie par un n°
2
Réponses
27
Affichages
586
arnomorize
A
O
  • Question Question
Autres recopie de cellules selon la date
Réponses
3
Affichages
132
olivier Clech
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…