Recherche chaine de caractere dans excell
Résolu
ddeaidexls
Messages postés
2
Date d'inscription
mercredi 8 septembre 2004
Statut
Membre
Dernière intervention
15 septembre 2004
-
8 sept. 2004 à 00:36
ddeaidexls Messages postés 2 Date d'inscription mercredi 8 septembre 2004 Statut Membre Dernière intervention 15 septembre 2004 - 15 sept. 2004 à 01:07
ddeaidexls Messages postés 2 Date d'inscription mercredi 8 septembre 2004 Statut Membre Dernière intervention 15 septembre 2004 - 15 sept. 2004 à 01:07
3 réponses
cs_ITALIA
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
9
8 sept. 2004 à 09:33
8 sept. 2004 à 09:33
Correction :
' Ouvre l'application Excel
Set MonXl = CreateObject("Excel.Application") ' Ceci initialise la variable et charge Excel en arrière plan
MonXl.Visible = True 'Rend Excel visible...
MonXl.UserControl = True
' Ouvre MonFichier
MonXl.Workbooks.Open FileName:="C:\MonFichier.xls"
For i = 1 To 200
If InStr(1, MonXl.Range("A" & i).Value, "Elf") <> 0 Then MonXl.Range("B" & i).Value = "CARBURANT"
If InStr(1, MonXl.Range("A" & i).Value, "tel") <> 0 Then MonXl.Range("B" & i).Value = "TELEPHONIE"
....
....
....
....
....
....
....
....
....
Next
It@li@
' Ouvre l'application Excel
Set MonXl = CreateObject("Excel.Application") ' Ceci initialise la variable et charge Excel en arrière plan
MonXl.Visible = True 'Rend Excel visible...
MonXl.UserControl = True
' Ouvre MonFichier
MonXl.Workbooks.Open FileName:="C:\MonFichier.xls"
For i = 1 To 200
If InStr(1, MonXl.Range("A" & i).Value, "Elf") <> 0 Then MonXl.Range("B" & i).Value = "CARBURANT"
If InStr(1, MonXl.Range("A" & i).Value, "tel") <> 0 Then MonXl.Range("B" & i).Value = "TELEPHONIE"
....
....
....
....
....
....
....
....
....
Next
It@li@
cs_ITALIA
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
9
8 sept. 2004 à 09:30
8 sept. 2004 à 09:30
En Cochant Projet...Références : MIcrosoft EXCEL XX Object Library.
' Ouvre l'application Excel
Set MonXl = CreateObject("Excel.Application") ' Ceci initialise la variable et charge Excel en arrière plan
MonXl.Visible = True 'Rend Excel visible...
MonXl.UserControl = True
' Ouvre MonFichier
MonXl.Workbooks.Open FileName:="C:\MonFichier.xls"
For i= 1 to 200
Select Case MonXl.Range("A" & i ).Value
Case "Elf"
MonXl.Range("B" & i ).Value="CARBURANT"
Case "tel"
MonXl.Range("B" & i ).Value="TELEPHONIE"
....
....
....
....
....
....
....
....
....
End Select
Next
It@li@
' Ouvre l'application Excel
Set MonXl = CreateObject("Excel.Application") ' Ceci initialise la variable et charge Excel en arrière plan
MonXl.Visible = True 'Rend Excel visible...
MonXl.UserControl = True
' Ouvre MonFichier
MonXl.Workbooks.Open FileName:="C:\MonFichier.xls"
For i= 1 to 200
Select Case MonXl.Range("A" & i ).Value
Case "Elf"
MonXl.Range("B" & i ).Value="CARBURANT"
Case "tel"
MonXl.Range("B" & i ).Value="TELEPHONIE"
....
....
....
....
....
....
....
....
....
End Select
Next
It@li@
ddeaidexls
Messages postés
2
Date d'inscription
mercredi 8 septembre 2004
Statut
Membre
Dernière intervention
15 septembre 2004
15 sept. 2004 à 01:07
15 sept. 2004 à 01:07
Merci iTALIA. Cela fonctionne très bien. Juste une demande de renseignement supplémentaire : je ne comprends pas pourquoi cela ouvre une nouvelle feuille xls.
Je recopie le résultat de cette feuille dans ma feuille initiale.
Je recopie le résultat de cette feuille dans ma feuille initiale.
