Remplacement automatique de caracteres

Modeste

XLDnaute Barbatruc

• 10 Mai 2011

• #2

Re : Remplacement automatique de caracteres

Bonjour zilio,

Il faudrait que tu sois plus précis: tu veux que le remplacement se fasse au moment où tu encodes ou sur des données déjà encodées.
Le remplacement doit se faire dans la même cellule, en "écrasant" la valeur initiale? Si oui, il n'y a guère que deux solutions:
- les corrections automatiques
- les macros

Tu es disposé à te retrousser les manches? Tu connais le VBA? 😀

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Mai 2011

• #3

Re : Remplacement automatique de caracteres

Bonjour zilio

Salut Modeste 🙂 🙂

Une solution Vba pour les colonnes A et B de la feuille exemple

 

Pièces jointes

• zilio_exemple.zip

  10.2 KB · Affichages: 79
• zilio_exemple.zip

  10.2 KB · Affichages: 79
• zilio_exemple.zip

  10.2 KB · Affichages: 87

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 10 Mai 2011

• #4

Re : Remplacement automatique de caracteres

Re-bonjour, salut Pierre 🙂

Visiblement, pierrejean avait déjà retroussé ses propres manches (ce n'est pas visible sur la photo 😱) et il avait les doigts qui fourmillaient 😉 ... Que du bonheur, comme disait l'autre!

 

Vote positif 0 Vote négatif

Z

zilio

XLDnaute Nouveau

• 10 Mai 2011

• #5

Re : Remplacement automatique de caracteres

Bonjour, Modeste,et Pierrejean
j'ai aucune connaissance du langage VBA.Mais j’arrive a lancer des petit macro que je trouve sur le net et cela m'aide beaucoup.
Pour travail un peu plus complexe j'ai un peu de mal.
Pour revenir a ma problématique j'ai un fichier avec plusieurs(feuille excel) onglet et je souhaite mettre a jour des codes produits.J'ai une feuille excel de correspondance entre les ancien et les nouveau codes.
La confidentialité de mon stage fait que je ne peut vous donnez ce fichier c'est pour cela que j'ai mis un petit exemple.

 

Vote positif 0 Vote négatif

Z

zilio

XLDnaute Nouveau

• 10 Mai 2011

• #6

Re : Remplacement automatique de caracteres

Re bonjour
pierrejean encore une fois tu vas me sauver la vie j'ai vu le code VBA, j'ai juste un petit souci que j'aurais peut être du préciser .En faite j'ai plusieurs feuille excel a traité.
En te remerciant pour ton devouement

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Mai 2011

• #7

Re : Remplacement automatique de caracteres

Re

Il te suffit de recopier le code Vba dans les modules respectifs des feuilles concernées

PS:merci Modeste pour ton appreciation

 

Vote positif 0 Vote négatif

Z

zilio

XLDnaute Nouveau

• 10 Mai 2011

• #8

Re : Remplacement automatique de caracteres

Re

[QUOTEIl te suffit de recopier le code Vba dans les modules respectifs des feuilles concernées[/QUOTE]

J'ai effectuer l’opération que du m'a demandé mais cela ne marche pas quand j’exécute il me demande de nommer la macro ce que j'ai fais en l'appelant remplacement.
excel ouvre une macro vide avec ce la syntaxe ci dessous

Sub remplacement()

End Sub

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Mai 2011

• #9

Re : Remplacement automatique de caracteres

Re

Vois l'exemple de recopie en feuil3

 

Pièces jointes

• zilio_exemple.zip

  10.2 KB · Affichages: 52
• zilio_exemple.zip

  10.2 KB · Affichages: 48
• zilio_exemple.zip

  10.2 KB · Affichages: 48

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 10 Mai 2011

• #10

Re : Remplacement automatique de caracteres

Bonsoir à tous

S'il s'agit de traiter des données en divers endroits du classeur, on peut aussi utiliser cette procédure (à placer dans un module standard) :

VB:

Sub toto()
Dim i&, l&, c&, n&, tmp$, oCor(), oDat, oPlg As Range, oCel As Range, nSh$, Sh As Worksheet
  nSh = "correspondances"
  If ActiveSheet.Name <> nSh Then
    Set Sh = Sheets(nSh)
    n = Sh.Cells(Rows.Count, 1).End(xlUp).Row
    If n > 1 Then
      oCor = Sh.Cells(2, 1).Resize(n - 1, 2).Value
      For Each oPlg In Selection.Areas
        oDat = oPlg.Value
        If Not IsEmpty(oDat) Then
          If VarType(oDat) > vbArray Then
            For l = 1 To UBound(oDat, 1)
              For c = 1 To UBound(oDat, 2)
                tmp = oDat(l, c)
                For i = 1 To n - 1
                  If tmp = oCor(i, 2) Then oDat(l, c) = oCor(i, 1): Exit For
                Next
              Next c
            Next l
          Else
            For i = 1 To n - 1
              If oDat = oCor(i, 2) Then oDat = oCor(i, 1): Exit For
            Next
          End If
          oPlg.Value = oDat
        End If
      Next oPlg
    End If
  End If
End Sub

Pour l'utiliser, sélectionner une (ou des) plage(s) de données et exécuter la procédure.​

ROGER2327
#5228

Samedi 21 Palotin 138 (Occultation de Saint Mce le Dr Sandomir, SQ)
21 Floréal An CCXIX
2011-W19-2T17:52:10Z

 

Dernière édition: 10 Mai 2011

Vote positif 0 Vote négatif