XL 2019 Déplacer ligne d'un tableau structuré à un autre, au choix [VBA]

Leguyl · 10 Mars 2023

Bonjour à tou(te)s,

Dans un fichier, j'ai un onglet Data reprenant la réf., le nom des chantiers et les initiales des gestionnaires de chantiers plus d'autres onglets nommés avec ces initiales et contenant chacun un tableau structuré avec la même structure.

Il arrive parfois qu'un chantier soit réattribué à un autre gestionnaire. J'aimerais éviter le simple couper/coller manuel d'un tableau à un autre.

Auriez-vous une solution VBA qui me permette, par ex, de déplacer facilement une ligne d'un tableau structuré à un autre de son choix ?

Merci d'avance à qui voudra bien se pencher sur ma demande.

vgendron · 13 Mars 2023

Hello
avec une correction qui permet de ne copier QUE les valeurs (en ignorant les formules)

vgendron · 10 Mars 2023

Hello

un essai avec un formulaire

Leguyl · 13 Mars 2023

vgendron à dit:
Hello

un essai avec un formulaire

Désolé pour la réponse tardive... week-end chargé.

Merci beaucoup vgendron, je teste ça tout de suite et te reviens après.

Leguyl · 13 Mars 2023

Re,

Ça marche mais... la ligne collée dans le tableau de destination contient uniquement les valeurs et, donc, les formules de cette ligne sont perdues.

Avec un simple copier/coller d'une ligne du tableau source vers celui de destination, les formules restent "liées" aux cellules de la source. Je veux dire que la formule suivante, dans le tableau tabCD :

VB:

=[@[CA total]]-[@Facturé]

devient

Code:

=tabCD[@[CA total]]-tabCD[@Facturé]

lorsque la ligne est collée dans un autre tableau.

Existe-t-il un moyen d'éviter cela, càd de déplacer une ligne en gardant les formules mais sans référence au tableau source ?

vgendron · 13 Mars 2023

Hello
avec une correction qui permet de ne copier QUE les valeurs (en ignorant les formules)

cp4 · 13 Mars 2023

Leguyl à dit:
Re,

Ça marche mais... la ligne collée dans le tableau de destination contient uniquement les valeurs et, donc, les formules de cette ligne sont perdues.

Avec un simple copier/coller d'une ligne du tableau source vers celui de destination, les formules restent "liées" aux cellules de la source. Je veux dire que la formule suivante, dans le tableau tabCD :

VB:

=[@[CA total]]-[@Facturé]

devient

Code:

=tabCD[@[CA total]]-tabCD[@Facturé]

lorsque la ligne est collée dans un autre tableau.

Existe-t-il un moyen d'éviter cela, càd de déplacer une ligne en gardant les formules mais sans référence au tableau source ?

Bonjour,

Juste une suggestion en l'absence de @vgendron , Copier les cellules n'ayant pas de formule et les ajouter au bas du tableau. Car à l'ajout d'une ligne, les formules sont automatiquement ajouter dans un tableau structuré.
A+

edit: resalut @vgendron pas vu

vgendron · 13 Mars 2023

Hello @cp4: je vois qu'on a eu la meme idée

cp4 · 13 Mars 2023

vgendron à dit:
Hello @cp4: je vois qu'on a eu la meme idée

En effet, cependant j'ai testé ton dernier fichier ça plante sur cette ligne

WorksheetFunction.IsFormula

Je n'ai pas trouvé cette fonction dans l'aide d'excel.

vgendron · 13 Mars 2023

ha?? peut-etre un pb de version ?
la fonction existe pour ces versions
Excel for Microsoft 365 Excel for Microsoft 365 for Mac Excel for the web Excel 2021 Excel 2021 for Mac Excel 2019 Excel 2019 for Mac Excel 2016 Excel 2016 for Mac Excel 2013 Excel for Mac 2011 Less

cp4 · 13 Mars 2023

vgendron à dit:
ha?? peut-etre un pb de version ?
la fonction existe pour ces versions
Excel for Microsoft 365 Excel for Microsoft 365 for Mac Excel for the web Excel 2021 Excel 2021 for Mac Excel 2019 Excel 2019 for Mac Excel 2016 Excel 2016 for Mac Excel 2013 Excel for Mac 2011 Less

Merci pour l'info, je suis sous excel 2010

edit: solution pour excel 2010

VB:

If Not LigneToCopy.Columns(j).HasFormula Then

Leguyl · 13 Mars 2023

Impec ! J'en apprends encore tous les jours, je ne connaissais pas cette fonction WorksheetFunction.IsFormula

Un grand merci à toi @vgendron et merci également à @cp4 pour ta participation.

Bonne journée à tous

Leguyl · 14 Mars 2023

Bonjour,

Si ça marche au poil avec mes fichiers tests, ce n'est pas le cas dans mon fichier de travail qui contient des onglets supplémentaires avec des tableaux de synthèse, des listes...

J'obtiens ce message lorsque je clique sur le bouton "Déplacer chantier" :

Erreur d'exécution '9' :
L'indice n'appartient pas à la sélection

Si je supprime ces onglets, ça fonctionne

cp4 · 14 Mars 2023

Leguyl à dit:
Bonjour,

Si ça marche au poil avec mes fichiers tests, ce n'est pas le cas dans mon fichier de travail qui contient des onglets supplémentaires avec des tableaux de synthèse, des listes...

J'obtiens ce message lorsque je clique sur le bouton "Déplacer chantier" :

Si je supprime ces onglets, ça fonctionne

Bonjour,

Hé, oui, le piège lorsqu'on fournit un fichier qui ne reflète pas exactement le fichier réel.
Question: Est-ce que les onglets supplémentaires se trouvent dans le tableau "tabChantiers" en colonne C?

edit: à supposer que c'est le cas (question ci-dessus), Remplace le code de l'userform comme ci-dessous.

VB:

Private Sub UserForm_Initialize()
   Dim d As Object, cel As Range
   Set d = CreateObject("scripting.dictionary")
   Me.Cbx_Source.Clear
   Me.Cbx_Dest.Clear

   For Each cel In Range("tabChantiers[Gest.]")
      d(cel.Value) = ""
   Next cel
   If d.Count > 0 Then
      For i = 0 To d.Count - 1
         With Sheets(d.keys()(i)).ListObjects(1)
            Me.Cbx_Source.AddItem .Name
            Me.Cbx_Dest.AddItem .Name
         End With
      Next i
   End If
End Sub

Leguyl · 14 Mars 2023

cp4 à dit:
Bonjour,

Hé, oui, le piège lorsqu'on fournit un fichier qui ne reflète pas exactement le fichier réel.
Question: Est-ce que les onglets supplémentaires se trouvent dans le tableau "tabChantiers" en colonne C?

Bonjour cp4,

Non, là ça ne pose pas de problème d'ajouter des onglets pour des gestionnaires supplémentaires avec la même structure de tableau.

Le problème se pose plutôt lorsque l'onglet supplémentaire contient un tableau différent des précédents. Par ex. dans l'un d'entre-eux j'ai une synthèse des résultats par gestionnaire, dans un autre, une liste de chantiers non encore "emportés" par la boîte. Même un simple onglet vide empêche le code de fonctionner.

XL 2019 Déplacer ligne d'un tableau structuré à un autre, au choix [VBA]

Leguyl

XLDnaute Occasionnel

Pièces jointes

vgendron

vgendron

XLDnaute Barbatruc

Pièces jointes

Leguyl

XLDnaute Occasionnel

Leguyl

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Pièces jointes

cp4

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Leguyl

XLDnaute Occasionnel

Leguyl

XLDnaute Occasionnel

cp4

XLDnaute Barbatruc

Leguyl

XLDnaute Occasionnel

Discussions similaires