XL 2016 VBA - Comment empêcher l'extension de la modification à toutes les lignes

[Dudu2]

Bonjour,

Dans un tableau structuré, je modifie la 1ère formule par du code VBA et automatiquement les autres suivent.
C'est normal, c'est un des comportements utiles d'un tableau structuré.

Sauf que... en l'occurrence, je ne veux modifier que la 1ère formule.
Connaissez-vous un moyen d'empêcher l'extension de la modification à toutes les lignes ?
Sur une modif manuelle il suffit de faire un Undo, mais avec du code ?

Merci

 

[Deadpool_CC]

rapdiement avant de quitter le taff ... c'est pas le plus propre mais as-tu tenté de lui passer l'envoi de Ctrl + Z dans ton code Vba ?

 

[TooFatBoy]

Bonjour,

Un truc un peu tordu, mais qui semble fonctionner : déverrouiller la cellule, protéger la feuille, appliquer la modification, déprotéger la feuille, reverrouiller la cellule... 🤪

 

[Dudu2]

Bonjour @Deadpool_CC,
Non on ne peut pas faire ça car les modif VBA détruisent la pile des Undo.
De toutes façons, un Application.Undo eut été encore plus simple.

 

[Dudu2]

Bonjour @TooFatBoy,
Tu sors l'artillerie lourde de 155mm 😉.
Une possibilité est d'affecter un tableau des formules de toute la colonne. Mais c'est quand même du 30mm en rafales 😎

 

[Dudu2]

Une possibilité est d'affecter un tableau des formules de toute la colonne.

Même ça, ça ne marche pas !

 

[Dudu2]

Sinon ça, ça fonctionne:

Sub a()
    Dim TabFormulas() As Variant
   
    With ActiveSheet.ListObjects(1).ListColumns("T3")
        TabFormulas = .DataBodyRange(2).Resize(.DataBodyRange.Rows.Count - 1).Formula
       
        If .DataBodyRange(1).Formula = "=[@T1]" Then
            .DataBodyRange(1).Formula = "=[@T1]&[@T2]"
        Else
            .DataBodyRange(1).Formula = "=[@T1]"
        End If
       
        .DataBodyRange(2).Resize(.DataBodyRange.Rows.Count - 1).Formula = TabFormulas
    End With
End Sub

Et curieusement après cette intervention dans le tableau, le code initial fonctionnera également !

 

[TooFatBoy]

Et curieusement après cette intervention dans le tableau, le code initial fonctionnera également !

Oui, j'avais aussi vu ça avant de poster ma première réponse.
Et ça m'est déjà arrivé plusieurs fois d'avoir des cellules qui ne se mettaient pas à jour au niveau de la formule.

Mais ça parait logique puisque la première cellule ne suit plus les mêmes règles que les autres, elle est donc gérée à part.

J'ai le vérificateur qui est activé et du coup la première cellule comporte un petit triangle vert, ce qui montre qu'elle est bien différentes des autres cellules de la colonne. 😉

 

[TooFatBoy]

Bonjour @TooFatBoy,
Tu sors l'artillerie lourde de 155mm 😉.

Voui, je sais bien et c'est pour ça que j'ai écrit que c'était tordu. 😅

Mais c'est l'idée qui m'est venue en tête immédiatement, et comme ça marche, je propose.
Ca fait déjà une solution possible, à défaut d'avoir quelque chose de mieux. 😉