Messages des blogs récents

Bonjour

Dans cette vidéo, on voit comment vider une table de données Excel en VBA. Le modèle objet Excel n'exposant rien de simple, style MaTable.Clear, on est obligé d'explorer l'objet, et on découvre la propriété DataBodyRange qui pointe vers la plage de données, et qui expose la méthode Delete.

Youpie! On a gagné. Mais bien sûr, ce serait un peu trop simple. si le tableau est vide, l'objet DataBodyRange n'existe pas et donc, on ne peut pas le "deleter". ...

• La première des choses à voir sur un serveur MS SQL est de voir si toutes les bonnes pratiques ont été appliquées. La plupart du temps cela débloque 50 à 90 % des problèmes.
• La seconde des choses à faire consiste à mener une campagne d'indexation : rajouter les index manquants et supprimer les index inutiles, redondants (doublons) ou inclus.
• La troisième des choses est de voir quels sont les objets lents (pas seulement les requêtes) : requêtes, procédures, déclencheurs et UDF.

...

Salut.

Je suis tellement convaincu de la justesse de l'intitulé que je l'ai mis en signature sur mon profil forum...

Dans cette discussion, je rencontre du code qui crée des plages nommées puis des listes de validation en VBA...

https://www.developpez.net/forums/d2...g-dictionnary/, on propose du code pour créer une liste personnalisée que l'on supprime ensuite par code. Ce n'est pas l'objectif ...

Salut.

Je vois souvent des codes événementiels qui font "plein de choses"... Pas sûr que ce soit une bonne pratique!

Dans ce billet, j'explique déjà pourquoi il ne faut jamais appeler du code événementiel, chose que je vois trop fréquemment sur le forum et qui est pour moi une mauvaise pratique. Un code événementiel ne peut être "appelé" que par l'événement considéré, sinon ce n'est plus du code événementiel. Certains ont déjà du mal à ce stade, ...

Salut.

Dans cette discussion, la demande consistait à pouvoir vider rapidement un tableau structuré en VBA.

La réponse générique que je donne est la suivante et fonctionne pour le classeur actif:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Table_Clear(Tablename As String)
  If Not Range(Tablename).ListObject.DataBodyRange Is Nothing Then Range(Tablename).ListObject.DataBodyRange.Delete
End Sub

Je préfère passer par la plage plutôt que par la feuille et le listobject ( ...