Marco excel vba : COMMENT LIRE DES Expression
Fermé
masawi86
Messages postés
24
Date d'inscription
Statut
Membre
Dernière intervention
-
baladur13 Messages postés 47799 Date d'inscription Statut Modérateur Dernière intervention -
baladur13 Messages postés 47799 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
A voir également:
- Marco excel vba : COMMENT LIRE DES Expression
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
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+
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
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