Pierre Fauconnier

Dans le premier billet traitant des échanges Excel-Access par ADODB, j'ai développé un framework générique qui permet de réaliser les quatre actions CRUD sur une base de données (Create, Read, Update, Delete).

Après ce billet théorique, je passe à la pratique avec la création d'une DAL spécifique pour les manipulations des données d'une table. Dans une architecture "trois-tiers", ce module standard spécifique fait partie de la couche d'accès aux données. C'est au travers ...

Salut.

Quelques questions sur le forum m'ont amené à rédiger quatre billets sur la question de l'échange d'informations entre Excel et une base Access. Afin de ne pas réinventer toute la roue à chaque fois, je propose ici un "framework" constitué de quelques fonctions rudimentaires permettant les manipulations CRUD sur une base Access au départ d'Excel, autour duquel nous allons greffer les interactions avec un userform.

Le premier billet détaillera le framework. ...

Salut.

On voit des horreurs sur le forum. Dans cette discussion, "on" propose même un unload sauvage lorsqu'une donnée n'est pas bien remplie.

Voici comment il me semble professionnel d'architecturer son code lorsque l'on utilise un userform qui nécessite une validation de données.

Validation "technique"

La validation technique consiste à vérifier que le userform a reçu des infos qui correspondent aux types ...

Envoyé par xxx

[...]Mais, n'en déplaise à un certain monsieur, VB.net est en avance sur VBA[...]

Donc, avoir l'exigence que sur un forum VBA, on parle VBA, que sur un forum VB.NET, on parle VB.NET et qu'il ne sert pas à grand-chose, sur un forum VBA, de venir dire qu'il vaut mieux faire du VB.NET, c'est, pour ce triste sire, penser et dire que VBA est en avance sur VB.NET.

Il y a vraiment des crét***gens qui n'ont pas grand chose à foutre de leur vie, apparemment, qui sont manifestement ...

Sur le forum, je viens de rencontrer une utilisation pour le moins étonnante de Select End Select

Envoyé par ...

Bonjour

Code VBA :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
 Select Case True
    Case Not Intersect(Target, Range("G51:G54")) Is Nothing
    Worksheets("PRESCRIPTION").Range("H51:H54").Formula = Worksheets("PRESCRIPTION").Range("AF51:AF54").Formula

...