Remplacer une chaîne de caractères par une autre

De zBasic

Aller à : navigation, rechercher

Sub RechercheEtRemplace
GlobalScope.BasicLibraries.loadLibrary("zBasic")

Do 'On boucle tant que la recherche renvoie une cellule
	sAdr = zRecherche.Chaine("Feuille1", "A1:E100", "TOTO")
	if sAdr = "" then exit do 'Plus rien, on sort de la boucle
	zCellule.Ecrit("Feuille1", sAdr, "C", "X")
Loop Until sAdr = ""	
End Sub

Récupérée de « https://beaussier.com/wiki/index.php?title=Remplacer_une_chaîne_de_caractères_par_une_autre&oldid=221 »

Exemples