Bonjour,

Sur le site des documentations de Microsoft il existe une liste de toutes les propriétés existantes, voici le lien :

https://docs.microsoft.com/en-us/office/vba/api/excel.querytable.refresh

Merci,

Bonjour,

Est-ce que la macro existante fournit le résultat escompté ?
Si oui sur mon poste elle roule en 6 secondes, ainsi il sera difficile de faire mieux en terme de performance…d’autant plus que les boucles sont déjà pas mal optimisées.

J’ai cependant remarqué 2 portions du code pouvant être amélioré:

1- Au lieu d’utiliser une boucle pour définir le nombre de ligne dans l’onglet Tabelle 1 (la variable l dans votre code), vous pourriez aller chercher la dernière ligne non vide de la colonne 15 avec le code suivant :

l = Sheets(“Tabelle1”).Range(“O” & Rows.Count).End(xlUp).Row – 1

2- La suppression des données que vous faites sur l’onglet Tabelle 2 ne se fait pas correctement car elle est basée sur la variable l qui correspond au nombre de ligne de l’onglet Tabelle 1, afin d’être certain d’effacer toutes les lignes il faudrait donc remplacer par :

With Sheets(“Tabelle2”)
.Range(.Cells(1, 1), .Cells(1048576, 17)).Clear
End With

N’hésitez pas si vous avez des questions,

Cordialement,

Julien Roldan

Bonjour,

Pouvez-vous joindre votre fichier de travail afin d’avoir plus d’informations sur votre besoin ?

Merci

Bonjour,

Afin d’empêcher de renommer seulement certaines feuilles il vous faudra utiliser le langage VBA, il y a alors plusieurs solutions :

-La plus simple est de refaire vos liens hypertexte en VBA en utilisant la référence (name) de chaque feuille. Dans ce cas-là peu importe le nom apparent de l’onglet tant que la référence (name) ne change pas le lien hypertexte renverra toujours à la même cellule.

Exemple:

Sub Lien_Hypertexte ()
Sheet2.Activate
Range(“A3”).select
End sub

Cette solution vous permettra d’assurer la fonctionnalité des liens hypertexte tout en laissant la liberté à vos utilisateurs de renommer les feuilles.

-L’autre solution consiste à automatiquement renommer l’onglet selon une valeur définit en VBA à chaque fois qu’il y a une action dans l’onglet. Cela permettra même si l’utilisateur change le nom de l’onglet de réatribuer la valeur souhaitée, et fonctionnelle avec le lien hypertexte, automatiquement.

Exemple :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.Name <> “Onglet1” Then
ActiveSheet.Name = “Onglet1”
End If
End Sub

Cette solution n’empêchera pas l’utilisateur de renommer l’onglet mais sa valeur ne sera pas pris en compte.

Bonjour,

Il existe 2 façons de bâtir un formulaire dans Excel :

-Dans Visual Basic (userform) : la structure du formulaire sera développée via le module Visual Basic et devra être appelé par un code VBA pour être ouvert. Il apparaitra ainsi comme une nouvelle fenêtre restreignant l’utilisateur aux fonctionnalités (contrôles) de cette fenêtre. Dans ce cas-ci vous ne pourrez donc pas accéder à votre ruban.

-Dans une feuille Excel (form) : les différentes fonctionnalités (contrôles) d’un formulaire peuvent également être utilisées directement dans une feuille Excel via l’onglet Développeur du ruban. De la même façon que le userform VBA, l’interaction entre les différents contrôles de ce formulaire pourra également être développé en VBA en faisant référence aux noms de chaque contrôles. La différence avec ce type de formulaire c’est que vous pourrez utiliser votre ruban pour exécuter des actions.

Merci,