Bonjour à tous !
Dans une feuille de calcul Excel, j'ai une colonne qui contient du texte, par exemple
L2.M300<-3.
L3.M3*16.
(c'est pas que du chinois ...)
Je fais une macro qui recherche dans cette colonne l'existance de texte, par exemple, si "M3*" est présent.
Dans le cas présent, j'aimerai que Excel me donne uniquement la seconde cellule (L3.M3*16.)
Hors pour Excel, "M3*" est présent deux fois (L2 et L3)
(M300 commence par "M3" aussi)
J'espere etre clair ...
Ci dessous un extrait du code
D'avance, merci de votre aide,
Didier
==================================================================
var = Feuil3.Cells(ind_var, 1).Value & "*"
Feuil2.Activate
With Range(Cells(1, 1), Cells(max_calc, 1))
Set LastCell = .Cells(.Cells.Count)
End With
Set FoundCell = Range(Cells(1, 1), Cells(max_calc, 1)).Find(what:=var, LookIn:=xlValues, LookAt:=xlPart)
If Not FoundCell Is Nothing Then
FirstAddr = FoundCell.Address
End If
Dans une feuille de calcul Excel, j'ai une colonne qui contient du texte, par exemple
L2.M300<-3.
L3.M3*16.
(c'est pas que du chinois ...)
Je fais une macro qui recherche dans cette colonne l'existance de texte, par exemple, si "M3*" est présent.
Dans le cas présent, j'aimerai que Excel me donne uniquement la seconde cellule (L3.M3*16.)
Hors pour Excel, "M3*" est présent deux fois (L2 et L3)
(M300 commence par "M3" aussi)
J'espere etre clair ...
Ci dessous un extrait du code
D'avance, merci de votre aide,
Didier
==================================================================
var = Feuil3.Cells(ind_var, 1).Value & "*"
Feuil2.Activate
With Range(Cells(1, 1), Cells(max_calc, 1))
Set LastCell = .Cells(.Cells.Count)
End With
Set FoundCell = Range(Cells(1, 1), Cells(max_calc, 1)).Find(what:=var, LookIn:=xlValues, LookAt:=xlPart)
If Not FoundCell Is Nothing Then
FirstAddr = FoundCell.Address
End If