Tous les billets

Sujet initial : http://www.developpez.net/forums/d16...-aide-d-macro/

Sur Feuil1, les données commencent en ligne 2 car la ligne 1 contient des en-têtes.
La plage A à F est contigüe.

1) on cherche la première ligne dont la cellule de la colonne C commence par "401" dans la valeur de la cellule.

2) de cette ligne là incluse, et pour toutes ...

Sujet d'origine : http://www.developpez.net/forums/d16...onction-match/

Contexte : rechercher des articles dans un tableau et leur affecter une valeur identique

Envoyé par joe.levrai

Une suggestion basée sur un tableau structuré excel (objet ListObject en VBA), obtenu via le menu Insertion >> Tableau

Sur Feuil1, en colonne A : Une liste d'articles qui commence en A1, sans ligne vide, et la colonne B vide

...

Voici simplement un copié collé d'un code de Peter Thornton (Excel MVP 2008-13) et sa traduction.

Cela permet d'attraper l'instance EXCEL que l'on souhaite lorsqu'il y en a plusieurs d'ouvertes.

Code VB :

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

1
2
3
Option Explicit
'https://social.msdn.microsoft.com/Forums/office/en-US/e3e99712-01a7-483e-bf0e-52bb1f94889c/how-to-use-accessibleobjectfromwindow-api-in-vba-to-get-excel-application-object-from-excel?forum=exceldev
Private Declare Function FindWindowEx

...

Bonjour à tous

Problème qui intervient quand on veut écrire directement dans les fichiers HTML qui sont donc encodés UTF-8 sans BOM.

Il n'est pas question de modifier dynamiquement par VBA le DOM cf par exemple l'excellent tutoriel de Qwazerty ici mais bien de manipuler un fichier encodé UTF-8 sans BOM et dans ce cas pratique d'ajouter / modifier du texte dans un fichier.


Pour notre exemple

Côté HTML
Prendre un fichier ...

Si vous voulez recevoir des Evénements sur plusieurs EMAILS ouverts, vous devez utiliser un Module de classe.

Ici nous allons tester le CHANGEMENT de SUJET d'un Email et agir selon.

A METTRE dans THISOUTLOOKSESSION

Code VBA :

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

1
2
3
4
5
6
7
8
9
 
 
 
Private m_MyEmails As VBA.Collection
Private m_lNextKeyEmails As Long
 
 
Private Sub Application_ItemLoad(ByVal item As Object)
'---------------------------------------------------------------------------------------

...