Recherche valeur "**"

Bonjour à tous,

j'ai un petit souci, je vous explique ;

en colonne A, j'ai des données qui sont séparées par un astérisque * et je voudrai que si deux ** sont collés alors copie la cellule en collone A de l'onglet test.

je suis parti sur la petite macro ci-dessous, mais elle remonte même les lignes ou les astérisques ne sont pas collés.

c'est plus facile à comprendre avec le fichier joint.

Sub Test()

derlig = Range("A5000").End(xlUp).Row

For i = 1 To derlig

With Sheets("test")

If Cells(i, 1) Like "**" Then .Range("A5000").End(xlUp)(2) = Cells(i, 1)

End With

Next

End Sub

merci pour votre aide precieuse

Pour l'opérateur like l'astérisque est équivalent à n'importe quelle valeur.

Mets

If Cells(i, 1) = "**" Then .Range("A5000").End(xlUp)(2) = Cells(i, 1)

Bonsoir EngueEngue,

Merci, mais cela fonctionne que si dans la cellule les deux astérisques sont seuls.

Mes données sont séparées par un astérisque *72528*0**3371*, lorsque j'ai plusieurs astérisque qui sont collé (cela veut dire qu'il me manque des données) alors je copie la cellule.

Encore merci pour l'info sur link

bonsoir,

essaie ceci

If instr(Cells(i, 1) , "**")<>0  Then .Range("A5000").End(xlUp)(2) = Cells(i, 1)

c'est parfait, merci h2so4.

Trés bonne journée à tous.

j'ai omis un détail, une fois avoir utilisé ;

If instr(Cells(i, 1) , "**")<>0 Then .Range("A5000").End(xlUp)(2) = Cells(i, 1)

je dois supprimer les lignes contenant les astérisques, mais mon code ci dessous supprime tous et je n'arrive pas à faire mieux.

Sub supp1()

With Range("A2:A5000")

.Replace What:="**", Replacement:="", LookAt:=xlWhole

.SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp

End With

End Sub

j'aurai bien remplacé les astérisques par autre chose, mais je n'ai pas le droit.

pouvez-vous encor m'aider, svp

Merci beaucoup

Merci

bonsoir,

essaie ceci

Sub supp1()
     derlig = Range("A5000").End(xlUp).Row
     For j = derlig To 2 Step -1
     If InStr(Cells(j, 1), "**") <> 0 Then Rows(j).Delete shift:=xlUp
     Next j
End Sub

cela fonctionne, merci beaucoup h2so4.

bonne soirée à tous