recherche d'infos dans un fichier

Le
JLematou
bonjour à tous,

j'ai un fichier .html avec des données dans tous les sens.

je voudrais extraitre les chaines de caractères suivants
, Host= CAOTTN02798;
et les positionner en col A dans un fichier XLS.
sachant que "CAOTTN02798" est naturellement variable et inconnu.
la chaine est toujours comprise ente une , et un ;

voici une petite idée du fichier tel que je le reçois.

52043 CAOTTN0L3APR6L 138.120.163.87 rdemores 2008-12-11 20:42:31 Pronto
Version: 2.9/2.9, Host= CAOTTN02798; PCRefresh= 802 MB/558 MB; CopyStart=
12/11/2008 1:54:47 PM; CopyEnd= 12/11/2008 2:05:02 PM; USMTStart= 12/11/2008
1:54:52 PM; USMTEnd= 12/11/2008 2:41:33 PM 52042 ESMADD0E01211 159.23.105.3
admin 2008-12-11 20:31:23 MASTER Assignement_
Assetà1211;SerialNumber=CZC510217W; 52041 MXCUAN0MX0072 128.251.177.222
admin 2008-12-11 20:31:04 MASTER V2.5.1
MXCUAN0MX0072;delay8;SpeedKBb73;Model=Latitude D600
;Mtyp=Unattend;joindom=1;packages=-1;retry=5;packages
failed=H_1020_MSACCESS_2000;S_1030_Step_03_hotfixes; 52040 FRVELN0L005544
139.54.117.48 admin 2008-12-11 20:26:18 Pronto Version: 2.3/2.3, Host=
FRVELN0C27091; PCRefresh= 0.1 GB/0 GB; CopyStart= 12/11/2008 6:21:18 PM;
CopyEnd= 12/11/2008 6:33:39 PM; USMTStart= 12/11/2008 6:21:29 PM; USMTEnd=
12/11/2008 8:26:09 PM 52039 ARBUEN0AR0274 128.251.209.129 admin 2008-12-11
20:24:25 MASTER V2.5.0 ARBUEN0AR0274;delay6;SpeedKB595;Model=ThinkPad
T60;MTyp=Image;joindom=3;packages=0;retry=7; 52038 USMUYN0L3ABV1L
135.185.86.4 admin 2008-12-11 20:17:10 MASTER Assignement_
Asset=L3ABV1L;SerialNumber=L3ABV1L;Login=na02CTURLEY;Old_Serial=test;Old_HOSTNAME=oldPC
52037 ATVIEN0A85951 146.112.155.74 admin 2008-12-11 20:15:52 MASTER
Assignement_ Asset¨5951;SerialNumber=HUB51105BV ;Login=njozef 52036
ARBUEN0AR0274 128.251.209.129 admin 2008-12-11 20:15:27 MASTER Assignement_
Asset=AR0274;SerialNumber=L3AM046; 52035 BEANTN0L006574 172.31.143.214
Administrator 2008-12-11 19:58:23 Pronto Version: 2.4/2.4, Host=
BEANTN0021549; PCRefresh= 0 GB/0 GB; CopyStart= 11/12/2008 18:08:10; CopyEnd=
11/12/2008 18:10:12; USMTStart= 11/12/2008 18:08:14; USMTEnd= 12/11/2008
7:58:15 PM 52034 CAOTTN0L3AGH0H


--
Merci à tous pour votre aide.

Très cordialement

JACK dit : Lematou
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #18448101
Adapte le nom de la feuille et de la cellule

Sub test()
MsgBox Trouve(Feuil1.Range("A1"), "host")
End Sub


Function Trouve(Rg As Range, Mot As String)
Dim F As Integer, X As String, D As Integer

On Error Resume Next
D = 1
Do While Err.Number = 0
With Application.WorksheetFunction
D = .Search("Host=*,", Rg, D)
If Err <> 0 Then Err = 0: Exit Do
F = .Search(";", Rg, D)
X = Mid(Range("A1"), D, F - D)
t = X & vbCrLf & t
D = F + 1
End With
Loop
If t <> "" Then
Trouve = Left(t, Len(t) - 2)
Else
Trouve = "Rien trouvé."
End If
End Function





"JLematou" discussion :
bonjour à tous,

j'ai un fichier .html avec des données dans tous les sens.

je voudrais extraitre les chaines de caractères suivants
, Host= CAOTTN02798;
et les positionner en col A dans un fichier XLS.
sachant que "CAOTTN02798" est naturellement variable et inconnu.
la chaine est toujours comprise ente une , et un ;

voici une petite idée du fichier tel que je le reçois.

52043 CAOTTN0L3APR6L 138.120.163.87 rdemores 2008-12-11 20:42:31 Pronto
Version: 2.9/2.9, Host= CAOTTN02798; PCRefresh= 802 MB/558 MB; CopyStart 12/11/2008 1:54:47 PM; CopyEnd= 12/11/2008 2:05:02 PM; USMTStart= 12/11/2008
1:54:52 PM; USMTEnd= 12/11/2008 2:41:33 PM 52042 ESMADD0E01211 159.23.105.3
admin 2008-12-11 20:31:23 MASTER Assignement_
Assetà1211;SerialNumber=CZC510217W; 52041 MXCUAN0MX0072 128.251.177.222
admin 2008-12-11 20:31:04 MASTER V2.5.1
MXCUAN0MX0072;delay8;SpeedKBb73;Model=Latitude D600
;Mtyp=Unattend;joindom=1;packages=-1;retry=5;packages
failed=H_1020_MSACCESS_2000;S_1030_Step_03_hotfixes; 52040 FRVELN0L005544
139.54.117.48 admin 2008-12-11 20:26:18 Pronto Version: 2.3/2.3, Host FRVELN0C27091; PCRefresh= 0.1 GB/0 GB; CopyStart= 12/11/2008 6:21:18 PM;
CopyEnd= 12/11/2008 6:33:39 PM; USMTStart= 12/11/2008 6:21:29 PM; USMTEnd 12/11/2008 8:26:09 PM 52039 ARBUEN0AR0274 128.251.209.129 admin 2008-12-11
20:24:25 MASTER V2.5.0 ARBUEN0AR0274;delay6;SpeedKB595;Model=ThinkPad
T60;MTyp=Image;joindom=3;packages=0;retry=7; 52038 USMUYN0L3ABV1L
135.185.86.4 admin 2008-12-11 20:17:10 MASTER Assignement_
Asset=L3ABV1L;SerialNumber=L3ABV1L;Login=na02CTURLEY;Old_Serial=test;Old_HOSTNAME=oldPC
52037 ATVIEN0A85951 146.112.155.74 admin 2008-12-11 20:15:52 MASTER
Assignement_ Asset¨5951;SerialNumber=HUB51105BV ;Login=njozef 52036
ARBUEN0AR0274 128.251.209.129 admin 2008-12-11 20:15:27 MASTER Assignement_
Asset=AR0274;SerialNumber=L3AM046; 52035 BEANTN0L006574 172.31.143.214
Administrator 2008-12-11 19:58:23 Pronto Version: 2.4/2.4, Host BEANTN0021549; PCRefresh= 0 GB/0 GB; CopyStart= 11/12/2008 18:08:10; CopyEnd 11/12/2008 18:10:12; USMTStart= 11/12/2008 18:08:14; USMTEnd= 12/11/2008
7:58:15 PM 52034 CAOTTN0L3AGH0H


--
Merci à tous pour votre aide.

Très cordialement

JACK dit : Lematou
JLematou
Le #18448421
bonjour michdenis

j'ai donc ouvert mon fichier avec Exel
j'ai collé ton code dans 1 module VBA tel que tu me les as indiqués

et quand je veux exécuter la macro j'ai une retour "erreur d'exécution 424
"je suis toujours en 2000"

mais je trouve étrange que sub ne fasse qu'une ligne .............
je ne vois pas comment fonctionne la fonction dans le cas présent.
parceque quand j'active ma macro il va directement sur msgbox et hop il
plante
le mystere est total

dans ton code il vient bien indiquer tous les" Host" lignes après ligne ?

le résultat qui m'interesse c'est le champs qu'il y a apres host
je sais que j'ai beaucoup de difficultées a vous suivre parce qu'il y a une
marge entre vos compétences et les mienes. c'est un peu pour cela que je rame.

de mon coté j'ai commencé a écrire un code qui vient lire ligne à ligne avec
la fonction rechercher puis je viens coller les cellules les unes apres les
autres en A
mais je crois que je vais une fois de plus écrire une page de code alors que
vous vous le fait en ( 5 lignes).

donc si tu
--
Merci à tous pour votre aide.

Très cordialement

JACK dit : Lematou


"michdenis" a écrit :

Adapte le nom de la feuille et de la cellule

Sub test()
MsgBox Trouve(Feuil1.Range("A1"), "host")
End Sub


Function Trouve(Rg As Range, Mot As String)
Dim F As Integer, X As String, D As Integer

On Error Resume Next
D = 1
Do While Err.Number = 0
With Application.WorksheetFunction
D = .Search("Host=*,", Rg, D)
If Err <> 0 Then Err = 0: Exit Do
F = .Search(";", Rg, D)
X = Mid(Range("A1"), D, F - D)
t = X & vbCrLf & t
D = F + 1
End With
Loop
If t <> "" Then
Trouve = Left(t, Len(t) - 2)
Else
Trouve = "Rien trouvé."
End If
End Function





"JLematou" discussion :
bonjour à tous,

j'ai un fichier .html avec des données dans tous les sens.

je voudrais extraitre les chaines de caractères suivants
, Host= CAOTTN02798;
et les positionner en col A dans un fichier XLS.
sachant que "CAOTTN02798" est naturellement variable et inconnu.
la chaine est toujours comprise ente une , et un ;

voici une petite idée du fichier tel que je le reçois.

52043 CAOTTN0L3APR6L 138.120.163.87 rdemores 2008-12-11 20:42:31 Pronto
Version: 2.9/2.9, Host= CAOTTN02798; PCRefresh= 802 MB/558 MB; CopyStart > 12/11/2008 1:54:47 PM; CopyEnd= 12/11/2008 2:05:02 PM; USMTStart= 12/11/2008
1:54:52 PM; USMTEnd= 12/11/2008 2:41:33 PM 52042 ESMADD0E01211 159.23.105.3
admin 2008-12-11 20:31:23 MASTER Assignement_
Assetà1211;SerialNumber=CZC510217W; 52041 MXCUAN0MX0072 128.251.177.222
admin 2008-12-11 20:31:04 MASTER V2.5.1
MXCUAN0MX0072;delay8;SpeedKBb73;Model=Latitude D600
;Mtyp=Unattend;joindom=1;packages=-1;retry=5;packages
failed=H_1020_MSACCESS_2000;S_1030_Step_03_hotfixes; 52040 FRVELN0L005544
139.54.117.48 admin 2008-12-11 20:26:18 Pronto Version: 2.3/2.3, Host > FRVELN0C27091; PCRefresh= 0.1 GB/0 GB; CopyStart= 12/11/2008 6:21:18 PM;
CopyEnd= 12/11/2008 6:33:39 PM; USMTStart= 12/11/2008 6:21:29 PM; USMTEnd > 12/11/2008 8:26:09 PM 52039 ARBUEN0AR0274 128.251.209.129 admin 2008-12-11
20:24:25 MASTER V2.5.0 ARBUEN0AR0274;delay6;SpeedKB595;Model=ThinkPad
T60;MTyp=Image;joindom=3;packages=0;retry=7; 52038 USMUYN0L3ABV1L
135.185.86.4 admin 2008-12-11 20:17:10 MASTER Assignement_
Asset=L3ABV1L;SerialNumber=L3ABV1L;Login=na02CTURLEY;Old_Serial=test;Old_HOSTNAME=oldPC
52037 ATVIEN0A85951 146.112.155.74 admin 2008-12-11 20:15:52 MASTER
Assignement_ Asset¨5951;SerialNumber=HUB51105BV ;Login=njozef 52036
ARBUEN0AR0274 128.251.209.129 admin 2008-12-11 20:15:27 MASTER Assignement_
Asset=AR0274;SerialNumber=L3AM046; 52035 BEANTN0L006574 172.31.143.214
Administrator 2008-12-11 19:58:23 Pronto Version: 2.4/2.4, Host > BEANTN0021549; PCRefresh= 0 GB/0 GB; CopyStart= 11/12/2008 18:08:10; CopyEnd > 11/12/2008 18:10:12; USMTStart= 11/12/2008 18:08:14; USMTEnd= 12/11/2008
7:58:15 PM 52034 CAOTTN0L3AGH0H


--
Merci à tous pour votre aide.

Très cordialement

JACK dit : Lematou



michdenis
Le #18448391
Tout copier signifie copier tout ce qui suit et ça fait plus de 2 lignes


Adapte le nom de la feuille et de la cellule
'-------------------------------
Sub test()
MsgBox Trouve(Feuil1.Range("A1"), "host")
End Sub

'-------------------------------
Function Trouve(Rg As Range, Mot As String)
Dim F As Integer, X As String, D As Integer

On Error Resume Next
D = 1
Do While Err.Number = 0
With Application.WorksheetFunction
D = .Search("Host=*,", Rg, D)
If Err <> 0 Then Err = 0: Exit Do
F = .Search(";", Rg, D)
X = Mid(Range("A1"), D, F - D)
t = X & vbCrLf & t
D = F + 1
End With
Loop
If t <> "" Then
Trouve = Left(t, Len(t) - 2)
Else
Trouve = "Rien trouvé."
End If
End Function
'-------------------------------



"JLematou" discussion :
bonjour michdenis

j'ai donc ouvert mon fichier avec Exel
j'ai collé ton code dans 1 module VBA tel que tu me les as indiqués

et quand je veux exécuter la macro j'ai une retour "erreur d'exécution 424
"je suis toujours en 2000"

mais je trouve étrange que sub ne fasse qu'une ligne .............
je ne vois pas comment fonctionne la fonction dans le cas présent.
parceque quand j'active ma macro il va directement sur msgbox et hop il
plante
le mystere est total

dans ton code il vient bien indiquer tous les" Host" lignes après ligne ?

le résultat qui m'interesse c'est le champs qu'il y a apres host
je sais que j'ai beaucoup de difficultées a vous suivre parce qu'il y a une
marge entre vos compétences et les mienes. c'est un peu pour cela que je rame.

de mon coté j'ai commencé a écrire un code qui vient lire ligne à ligne avec
la fonction rechercher puis je viens coller les cellules les unes apres les
autres en A
mais je crois que je vais une fois de plus écrire une page de code alors que
vous vous le fait en ( 5 lignes).

donc si tu
--
Merci à tous pour votre aide.

Très cordialement

JACK dit : Lematou


"michdenis" a écrit :

Adapte le nom de la feuille et de la cellule

Sub test()
MsgBox Trouve(Feuil1.Range("A1"), "host")
End Sub


Function Trouve(Rg As Range, Mot As String)
Dim F As Integer, X As String, D As Integer

On Error Resume Next
D = 1
Do While Err.Number = 0
With Application.WorksheetFunction
D = .Search("Host=*,", Rg, D)
If Err <> 0 Then Err = 0: Exit Do
F = .Search(";", Rg, D)
X = Mid(Range("A1"), D, F - D)
t = X & vbCrLf & t
D = F + 1
End With
Loop
If t <> "" Then
Trouve = Left(t, Len(t) - 2)
Else
Trouve = "Rien trouvé."
End If
End Function





"JLematou" discussion :
bonjour à tous,

j'ai un fichier .html avec des données dans tous les sens.

je voudrais extraitre les chaines de caractères suivants
, Host= CAOTTN02798;
et les positionner en col A dans un fichier XLS.
sachant que "CAOTTN02798" est naturellement variable et inconnu.
la chaine est toujours comprise ente une , et un ;

voici une petite idée du fichier tel que je le reçois.

52043 CAOTTN0L3APR6L 138.120.163.87 rdemores 2008-12-11 20:42:31 Pronto
Version: 2.9/2.9, Host= CAOTTN02798; PCRefresh= 802 MB/558 MB; CopyStart > 12/11/2008 1:54:47 PM; CopyEnd= 12/11/2008 2:05:02 PM; USMTStart= 12/11/2008
1:54:52 PM; USMTEnd= 12/11/2008 2:41:33 PM 52042 ESMADD0E01211 159.23.105.3
admin 2008-12-11 20:31:23 MASTER Assignement_
Assetà1211;SerialNumber=CZC510217W; 52041 MXCUAN0MX0072 128.251.177.222
admin 2008-12-11 20:31:04 MASTER V2.5.1
MXCUAN0MX0072;delay8;SpeedKBb73;Model=Latitude D600
;Mtyp=Unattend;joindom=1;packages=-1;retry=5;packages
failed=H_1020_MSACCESS_2000;S_1030_Step_03_hotfixes; 52040 FRVELN0L005544
139.54.117.48 admin 2008-12-11 20:26:18 Pronto Version: 2.3/2.3, Host > FRVELN0C27091; PCRefresh= 0.1 GB/0 GB; CopyStart= 12/11/2008 6:21:18 PM;
CopyEnd= 12/11/2008 6:33:39 PM; USMTStart= 12/11/2008 6:21:29 PM; USMTEnd > 12/11/2008 8:26:09 PM 52039 ARBUEN0AR0274 128.251.209.129 admin 2008-12-11
20:24:25 MASTER V2.5.0 ARBUEN0AR0274;delay6;SpeedKB595;Model=ThinkPad
T60;MTyp=Image;joindom=3;packages=0;retry=7; 52038 USMUYN0L3ABV1L
135.185.86.4 admin 2008-12-11 20:17:10 MASTER Assignement_
Asset=L3ABV1L;SerialNumber=L3ABV1L;Login=na02CTURLEY;Old_Serial=test;Old_HOSTNAME=oldPC
52037 ATVIEN0A85951 146.112.155.74 admin 2008-12-11 20:15:52 MASTER
Assignement_ Asset¨5951;SerialNumber=HUB51105BV ;Login=njozef 52036
ARBUEN0AR0274 128.251.209.129 admin 2008-12-11 20:15:27 MASTER Assignement_
Asset=AR0274;SerialNumber=L3AM046; 52035 BEANTN0L006574 172.31.143.214
Administrator 2008-12-11 19:58:23 Pronto Version: 2.4/2.4, Host > BEANTN0021549; PCRefresh= 0 GB/0 GB; CopyStart= 11/12/2008 18:08:10; CopyEnd > 11/12/2008 18:10:12; USMTStart= 11/12/2008 18:08:14; USMTEnd= 12/11/2008
7:58:15 PM 52034 CAOTTN0L3AGH0H


--
Merci à tous pour votre aide.

Très cordialement

JACK dit : Lematou



JLematou
Le #18448841
ok Michdenis,

il y a un grand pas de fait j'ai tout repris et maintenant la macro tourne
mais elle ne balaie l'ensemble du fichier
pour ta gouverne, j'avais modifié lee nom de la feuille et je ne sais pas
pas mais malgré que je m'étais en principe appliqué a modifier aussi ta macro
pour adapter le nom de la feuille il ne trouvait pas son compte.

il y a donc du mieux

merci

--
Merci à tous pour votre aide.

Très cordialement

JACK dit : Lematou


"michdenis" a écrit :

Tout copier signifie copier tout ce qui suit et ça fait plus de 2 lignes


Adapte le nom de la feuille et de la cellule
'-------------------------------
Sub test()
MsgBox Trouve(Feuil1.Range("A1"), "host")
End Sub

'-------------------------------
Function Trouve(Rg As Range, Mot As String)
Dim F As Integer, X As String, D As Integer

On Error Resume Next
D = 1
Do While Err.Number = 0
With Application.WorksheetFunction
D = .Search("Host=*,", Rg, D)
If Err <> 0 Then Err = 0: Exit Do
F = .Search(";", Rg, D)
X = Mid(Range("A1"), D, F - D)
t = X & vbCrLf & t
D = F + 1
End With
Loop
If t <> "" Then
Trouve = Left(t, Len(t) - 2)
Else
Trouve = "Rien trouvé."
End If
End Function
'-------------------------------



"JLematou" discussion :
bonjour michdenis

j'ai donc ouvert mon fichier avec Exel
j'ai collé ton code dans 1 module VBA tel que tu me les as indiqués

et quand je veux exécuter la macro j'ai une retour "erreur d'exécution 424
"je suis toujours en 2000"

mais je trouve étrange que sub ne fasse qu'une ligne .............
je ne vois pas comment fonctionne la fonction dans le cas présent.
parceque quand j'active ma macro il va directement sur msgbox et hop il
plante
le mystere est total

dans ton code il vient bien indiquer tous les" Host" lignes après ligne ?

le résultat qui m'interesse c'est le champs qu'il y a apres host >
je sais que j'ai beaucoup de difficultées a vous suivre parce qu'il y a une
marge entre vos compétences et les mienes. c'est un peu pour cela que je rame.

de mon coté j'ai commencé a écrire un code qui vient lire ligne à ligne avec
la fonction rechercher puis je viens coller les cellules les unes apres les
autres en A
mais je crois que je vais une fois de plus écrire une page de code alors que
vous vous le fait en ( 5 lignes).

donc si tu
--
Merci à tous pour votre aide.

Très cordialement

JACK dit : Lematou


"michdenis" a écrit :

> Adapte le nom de la feuille et de la cellule
>
> Sub test()
> MsgBox Trouve(Feuil1.Range("A1"), "host")
> End Sub
>
>
> Function Trouve(Rg As Range, Mot As String)
> Dim F As Integer, X As String, D As Integer
>
> On Error Resume Next
> D = 1
> Do While Err.Number = 0
> With Application.WorksheetFunction
> D = .Search("Host=*,", Rg, D)
> If Err <> 0 Then Err = 0: Exit Do
> F = .Search(";", Rg, D)
> X = Mid(Range("A1"), D, F - D)
> t = X & vbCrLf & t
> D = F + 1
> End With
> Loop
> If t <> "" Then
> Trouve = Left(t, Len(t) - 2)
> Else
> Trouve = "Rien trouvé."
> End If
> End Function
>
>
>
>
>
> "JLematou" > discussion :
> bonjour à tous,
>
> j'ai un fichier .html avec des données dans tous les sens.
>
> je voudrais extraitre les chaines de caractères suivants
> , Host= CAOTTN02798;
> et les positionner en col A dans un fichier XLS.
> sachant que "CAOTTN02798" est naturellement variable et inconnu.
> la chaine est toujours comprise ente une , et un ;
>
> voici une petite idée du fichier tel que je le reçois.
>
> 52043 CAOTTN0L3APR6L 138.120.163.87 rdemores 2008-12-11 20:42:31 Pronto
> Version: 2.9/2.9, Host= CAOTTN02798; PCRefresh= 802 MB/558 MB; CopyStart > > 12/11/2008 1:54:47 PM; CopyEnd= 12/11/2008 2:05:02 PM; USMTStart= 12/11/2008
> 1:54:52 PM; USMTEnd= 12/11/2008 2:41:33 PM 52042 ESMADD0E01211 159.23.105.3
> admin 2008-12-11 20:31:23 MASTER Assignement_
> Assetà1211;SerialNumber=CZC510217W; 52041 MXCUAN0MX0072 128.251.177.222
> admin 2008-12-11 20:31:04 MASTER V2.5.1
> MXCUAN0MX0072;delay8;SpeedKBb73;Model=Latitude D600
> ;Mtyp=Unattend;joindom=1;packages=-1;retry=5;packages
> failed=H_1020_MSACCESS_2000;S_1030_Step_03_hotfixes; 52040 FRVELN0L005544
> 139.54.117.48 admin 2008-12-11 20:26:18 Pronto Version: 2.3/2.3, Host > > FRVELN0C27091; PCRefresh= 0.1 GB/0 GB; CopyStart= 12/11/2008 6:21:18 PM;
> CopyEnd= 12/11/2008 6:33:39 PM; USMTStart= 12/11/2008 6:21:29 PM; USMTEnd > > 12/11/2008 8:26:09 PM 52039 ARBUEN0AR0274 128.251.209.129 admin 2008-12-11
> 20:24:25 MASTER V2.5.0 ARBUEN0AR0274;delay6;SpeedKB595;Model=ThinkPad
> T60;MTyp=Image;joindom=3;packages=0;retry=7; 52038 USMUYN0L3ABV1L
> 135.185.86.4 admin 2008-12-11 20:17:10 MASTER Assignement_
> Asset=L3ABV1L;SerialNumber=L3ABV1L;Login=na02CTURLEY;Old_Serial=test;Old_HOSTNAME=oldPC
> 52037 ATVIEN0A85951 146.112.155.74 admin 2008-12-11 20:15:52 MASTER
> Assignement_ Asset¨5951;SerialNumber=HUB51105BV ;Login=njozef 52036
> ARBUEN0AR0274 128.251.209.129 admin 2008-12-11 20:15:27 MASTER Assignement_
> Asset=AR0274;SerialNumber=L3AM046; 52035 BEANTN0L006574 172.31.143.214
> Administrator 2008-12-11 19:58:23 Pronto Version: 2.4/2.4, Host > > BEANTN0021549; PCRefresh= 0 GB/0 GB; CopyStart= 11/12/2008 18:08:10; CopyEnd > > 11/12/2008 18:10:12; USMTStart= 11/12/2008 18:08:14; USMTEnd= 12/11/2008
> 7:58:15 PM 52034 CAOTTN0L3AGH0H
>
>
> --
> Merci à tous pour votre aide.
>
> Très cordialement
>
> JACK dit : Lematou
>


michdenis
Le #18449061
Si tu veux balayer la plage de cellule A1:A10

tu fais comme ceci :

'-------------------------------
Sub test()

with worksheets("Feuil1") ' Nom de la feuille à adapter
for each c in .Range("A1:A10") 'plage à adapter
MsgBox Trouve(c , "host")
Next
End Sub

C'était mon dernier message sur ce fil.
JLematou
Le #18456391
Merci Michdenis

pour info voilà comment je m'en suis sorti de ce bourbier, ce n'est peut
être pas beau mais j'ai mon résultat

Sub Recherche_host()
Range("A1").Select
v = "x"
i = 0
Do While (v <> "")
i = ActiveCell.Value
If (i >= "") Then
H = Left(Right(i, 21), 5)
If (H = "Host=") Then
ho = Left(Right(i, 15), 14)
ActiveCell.FormulaR1C1 = ho
ActiveCell.Offset(1, 0).Select
ho = ""
Else
ActiveCell.FormulaR1C1 = ho
ActiveCell.Offset(1, 0).Select
v = ActiveCell.Value
End If
End If
Loop

End Sub
--
Merci à tous pour votre aide.

Très cordialement

JACK dit : Lematou


"michdenis" a écrit :

Si tu veux balayer la plage de cellule A1:A10

tu fais comme ceci :

'-------------------------------
Sub test()

with worksheets("Feuil1") ' Nom de la feuille à adapter
for each c in .Range("A1:A10") 'plage à adapter
MsgBox Trouve(c , "host")
Next
End Sub

C'était mon dernier message sur ce fil.







Publicité
Poster une réponse
Anonyme