Marco excel vba : COMMENT LIRE DES Expression
Fermé
Bonjour,
COMMENT LIRE DES Expressions régulières ??
j'ai ce code:
Sub recherche_vraiment_tres_tres_multiple()
Dim valeurs, TBadress(), val As Variant
Dim i, derlig, Ix As Integer
Dim cherche As Range
****************************************************
a la place d'écrire ces paramètre
valeurs = Array("sap", "oracle")
"ORA-" pour :oracle
"Xnn" dont X est une lettre et n est un chiffre pour: sap
***************************************************
derlig = Range("A65536").End(xlUp)
For i = 1 To derlig
With ActiveSheet.Rows(i)
For Each val In valeurs
Set cherche = .Cells.Find(val)
If Not cherche Is Nothing Then
ReDim Preserve TBadress(Ix)
TBadress(Ix) = "Ligne " & cherche.Row & " " & val
Ix = Ix + 1
End If
Next
End With
Next i
For Ix = 0 To UBound(TBadress)
texte_a_afficher = texte_a_afficher & vbCrLf & TBadress(Ix)
Next
MsgBox texte_a_afficher
End Sub
COMMENT LIRE DES Expressions régulières ??
j'ai ce code:
Sub recherche_vraiment_tres_tres_multiple()
Dim valeurs, TBadress(), val As Variant
Dim i, derlig, Ix As Integer
Dim cherche As Range
****************************************************
a la place d'écrire ces paramètre
valeurs = Array("sap", "oracle")
"ORA-" pour :oracle
"Xnn" dont X est une lettre et n est un chiffre pour: sap
***************************************************
derlig = Range("A65536").End(xlUp)
For i = 1 To derlig
With ActiveSheet.Rows(i)
For Each val In valeurs
Set cherche = .Cells.Find(val)
If Not cherche Is Nothing Then
ReDim Preserve TBadress(Ix)
TBadress(Ix) = "Ligne " & cherche.Row & " " & val
Ix = Ix + 1
End If
Next
End With
Next i
For Ix = 0 To UBound(TBadress)
texte_a_afficher = texte_a_afficher & vbCrLf & TBadress(Ix)
Next
MsgBox texte_a_afficher
End Sub
7 réponses
-
Modérateur
________ ___. .__ \______ \ ____ __ _\_ |__ | | ____ ____ | | \ / _ \| | \ __ \| | / _ \ / \ | ' ( <_> ) | / \_\ \ |_( <_> ) | \ /_______ /\____/|____/|___ /____/\____/|___| / \/ \/ \/
https://forums.commentcamarche.net/forum/affich-19257474-macro-excel -
Bonjour,
Il me semble avoir déjà vu ce sujet dans d'autres posts ....
Au final, tu ouvres 5 ou 6 topics et les bénévoles helpeurs te font ton boulot. -
Contributeurtoujours pas compris,
met un classeur excel sur Cijoint.com
Une feuille qui représente la réalité et une autre feuille avec le résultat que tu voudrais avoir.
Oublie pas de mettre le lien dans une poste suivant. -
ContributeurBonjour,
Désolé, mais ta macro n'a rien à voir avec des expressions régulières... -
ok
j'ai une feuille d'excel de plusieurs lignes et colons
mon but c cherche de mot clé dans les lignes de ma fille exel
et retourner le numero de la linge et la foction de cet mot
exemple:
ligne 1 SAP
ligne 2 UNIX
ligne 3 ORACLE
ligne 4 ORACLE
ligne 5 UNIX
ligne 6 SAP
.
.
.
.
.
"ORA-" pour :oracle
"Xnn" dont X est une lettre et n est un chiffre pour: sap
"UNI' pour : unix -
ContributeurBonjour,
difficile de te répondre valablement, ton code n'est pas explicite et tu ne développe pas ta question.
Essaye d'expliquer plus clairement (sans code)
A+ -
SVP personne m'aidé
