Recherche chaine de texte

[COUCOU]

Bonjour Le Forum,

J'ai un code ou je dois mettre a jour toutes les lignes qui contiennent la chaine de texte que je saisi dans une inputbox

je ne sais pas ecrire la boucle qui ferait cette petite chose.

le code ' Do Until activesheet.cells(ligne,colonne) <> NUMCDE '
prend seulement les ligne qui sont strictement égale a ce que je saisi

Merci d'avance

 

[WILFRIED]

Salut coucou

Avec le peu d'info que tu donne voila une proposition

dim m_cell as range
dim chaine_seach as string
dim chaine_replace as string

chaine_search=inputbox('entrer la chaine de caractère à changer')
chaine_replace=inputbox('entrer la chaine de caractère deremplacement')

range('A1',range('A65536').end(xlup)).select
for each m_cell in selection
if m_cell.value like '*' & chaine_search & '*' then
m_cell.value=left(m_cell.value,instr(1,m_cell.value,chaine_search,vbtextcompare)) & ' ' & chaine_replace & ' ' & right(m_cell.value,len(m_cell.value)-len(chaine_search)-1)
end if
next
cela devrait marcher si tu veux remplacer une partie du contenue d'une cellule de la colonne A dans le contexte.

Si tu veux changer toutes la cellule il faut simplifier mon code.

A+