Marco excel vba : COMMENT LIRE DES Expression
Fermé
masawi86
Messages postés
27
Statut
Membre
-
baladur13 Messages postés 47339 Date d'inscription Statut Modérateur Dernière intervention -
baladur13 Messages postés 47339 Date d'inscription Statut Modérateur Dernière intervention -
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
-
________ ___. .__ \______ \ ____ __ _\_ |__ | | ____ ____ | | \ / _ \| | \ __ \| | / _ \ / \ | ' ( <_> ) | / \_\ \ |_( <_> ) | \ /_______ /\____/|____/|___ /____/\____/|___| / \/ \/ \/
https://forums.commentcamarche.net/forum/affich-19257474-macro-excel -
-
Bonjour,
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+ -
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 -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bonjour,
Désolé, mais ta macro n'a rien à voir avec des expressions régulières... -
toujours 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. -
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.
