Coup d’accélérateur sur Word

Bonjour à tous,

Dans la vidéo ci-dessous, je couvre l'utilisation des styles de titre, l'un des "wordélérateurs" les plus puissants 😉
- utilisation des styles de titre
- numérotation automatique
- mode plan
- création automatisée des tables des matières
- modification des styles avec les modèles pré-établis

Nouveau cours sur Excel VBA : Création automatisée de formulaires

Bonjour à tous,

Cours avancé sur VBA

J'ai le très grand plaisir de vous annoncer la sortie d'un nouveau cours sur Excel VBA.
C'est le tout premier d'une série consacrée à l'utilisation avancée de VBA.

Ce cours est l'équivalent d'une journée de formation sur Excel VBA !

Je vais traiter des sujets suivants :
- l'ajout de contrôles sur un userform par VBA (et non pas manuellement)
- la gestion automatisée de ces contrôles
- les modules de classes

Le cours vous donnera aussi accès à des fichiers vous permettant d'incorporer ce type de formulaire directement dans vos applications.

Voici une petite vidéo qui vous montre ce que vous serez capable de faire après avoir suivi ce cours.

A bientôt.

Gaetan

Fonctions de texte pour tables de données

Bonjour à tous,

L'objectif de cet article est de traiter une entrée de texte en séparant le nom et le prénom, qui ont été incorrectement entrés.

En l’occurrence, nous allons combiner les fonctions suivantes en 4 méga-formules :
SI
DROITE
GAUCHE
STXT
CODE
SUBSTITUE
CHERCHE

Et voici donc comment on procède en vidéo :

Tout d'abord pour supprimer les espaces en double, ainsi que les espaces à la fin du texte:
La formule :
=SUBSTITUE(SI(DROITE(A2;1)=" ";GAUCHE(A2;NBCAR(A2)-1);A2);" ";" ")

Et la deuxième phase qui permet de distinguer les noms (entrés en majuscule) des prénoms :
La formule pour le nom :
=SI(CODE(STXT(B2;2;1))<91;GAUCHE(B2;CHERCHE(" ";B2)-1);DROITE(B2;NBCAR(B2)-CHERCHE(" ";B2)))
et pour le prénom :
=SI(CODE(STXT(B2;2;1))>91;GAUCHE(B2;CHERCHE(" ";B2)-1);DROITE(B2;NBCAR(B2)-CHERCHE(" ";B2)))

Et finalement pour les cas particuliers, on ajoute un contrôle supplémentaire:
=SI(NBCAR(B2)-NBCAR(SUBSTITUE(B2;" ";""))<>1;"ATTENTION A CONTROLER MANUELLEMENT";"")

J'espère que tout ceci vous ouvrira des portes pour retraiter vos fichiers mal remplis !

Mais encore plus important, si vous voulez éviter ceci dans le futur, je ne peux que vous renvoyer à mes deux derniers cours qui rappelle les règles d'or de la saisie de données, fournissent des exemples et des solutions très pratiques et efficaces. Ces cours représentent la synthèse de toute mon expérience dans ce domaine !
- Organisez et gérez vos données sous Excel
- VBA Avancé – Création automatisée de formulaires

A très bientôt

Gaetan