Bonjour,
Avec votre code, j'ai testé ces deux cas :
cas 1 : je définis Engins2 en tant que fonction
comme vous l'avez fait puis je définis
sub test
dim e as variant
e = Engins2
end sub
et j'exécute test
cas 2 : je définis Engins2 en tant que sub comme
vous l'avez fait puis je définis
sub
Bonjour,
Afin d'analyser un LOG, je tente de filtrer par macro le contenu d'un
fichier.
J'ai sur ma feuille1 mon LOG et sur ma feuille nommé ERROR la zone de
critère qui contient en C1 *le texte que je veux filtrer*
Le filtre extrait mes données vers la seconde lignes de la feuille ERROR
S
Bonjour xavier
function Engins2(nombre as integer) as variant
Dim oDocument as object, oFeuilles as object
Dim oFeuille as object, oCell as object, oZone as object
oDocument = thisComponent
oFeuilles = oDocument.Sheets
oFeuille = oFeuilles.getByName("Feuille1")
oCell=oFeuille.getCellByPosition(1