Discussion :

[fibule38]

bonjour,

Dans un classeur, je voudrais remplacer toutes les cellules qui COMMENCENT par 16 par XX
J'ai utilisé la fonction remplacer ou j'ai fait la macro ci-dessous , mais le problème est qu'il remplace aussi les caractères identiques autres que les 2 premiers.
J'ai en colonne A les cellules qui commencent toutes par 16_une lettre_une incrémentation:
16A01 16A02 etc 16A16 16A17 etc, 16B01 16b02 etc 16B16 16B17 etc et j'ai un classeur de plus de 200 feuilles.
Lorsque j'utilise ma macro ou CTRL F et remplacer 16 par xx, toutes les zones où il y 16 à la fin sont aussi remplacer par xx.
Que faut il modifier à ma macro, svp ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub remplace()
Dim sh As Worksheet
For Each sh In Sheets
    sh.Cells.Replace What:="16", Replacement:="XX", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Next sh
End Sub

[QuestVba]

Bonsoir,

Utilise cette formule en B1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=REMPLACER(A1; 1; 2; "XX")

Exemple:

16A01	XXA01
16A02	XXA02
16A16	XXA16

REMPLACER(ancien_texte, no_départ, no_car, nouveau_texte)


La syntaxe de REMPLACER contient les arguments suivants :

• ancien_texte Obligatoire. Représente le texte dont vous voulez remplacer un nombre donné de caractères.
• no_départ Obligatoire. Représente la place du premier caractère de la chaîne ancien_texte là où le remplacement par nouveau_texte doit commencer.
• no_car Obligatoire. Représente le nombre de caractères d’ancien_texte que nouveau_texte doit remplacer à l’aide de REMPLACER.
• nouveau_texte Obligatoire. Représente le texte qui doit remplacer les caractères d’ancien_texte.

[unparia]

Bonjour
Je crains fort, s'il s'agit de remplacer directement (et non d'obtenir un résultat avec remplacement dans une autre cellule) que tu ne puisses éviter ce genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim sh As Worksheet, cellule As Range, c As String
  For Each sh In Worksheets
     For Each cellule In sh.UsedRange.Cells
       c = cellule.Value
       If Left(c, 2) = "16" Then
          Mid(c, 1, 2) = "XX"
          cellule.Value = c
       End If
    Next
  Next

[fibule38]

bonjour et merci.

Je clôture en résolu