XL 2013 Assembler texte

M

Millai

XLDnaute Nouveau

• 25 Juin 2019

• #2

Bonsoir,

Regarde si c'est bon !

 

Pièces jointes

• Convertir.xlsm

  82.9 KB · Affichages: 12

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 25 Juin 2019

• #3

Re,

Nickel tu est devenu un pro du VBA

 

Vote positif 0 Vote négatif

M

Millai

XLDnaute Nouveau

• 25 Juin 2019

• #4

Attention, pour certaine ville ça ne fonctionne pas car il y a une différence dans les nom :

Exemple :
En colonne D il y a Épieds avec un accent mais en face il y a Epieds dans la colonne I sans accent, ils sont donc différent est le code de s'applique par pour eux.

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 25 Juin 2019

• #5

Ok

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 26 Juin 2019

• #6

Bonjour le fil,

Pour les problèmes d'accent, on peut utiliser une petite fonction

VB:

Sub Bouton1_Cliquer()
  'Déclaration des variables
  Dim rngColumnI As Range, rngColumnD As Range, Find As Range
  Set rngColumnI = Range("I5:I820")
  Set rngColumnD = Range("D5:D808")

  Dim element As Variant

  'Blocage du refresh de l'interface
  Application.ScreenUpdating = False

  'Boucle sur toute les cellules (dans la range) dans J
  For Each element In rngColumnI
    'Cherche si la cellules existe aussi dans D
    Set Find = rngColumnD.Cells.Find(What:=SupAccents(element), lookat:=xlWhole)
    'Condition si la valeur est trouvé
    If Not Find Is Nothing Then
      'Recopie de la valeur dans J pour la mettre dans E
      Range("E" & Find.Row) = (Range("J" & element.Row))
    End If
  Next

  'Déblocage du refresh de l'interface
  Application.ScreenUpdating = True
End Sub

Function SupAccents(ByVal sChaine As String) As String
  Dim sTmp As String, i As Long, p As Long
  Const sCarAccent As String = "ÁÂÃÄÅÇÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïñòóôõöùúûüýÿ"
  Const sCarSansAccent As String = "AAAAACEEEEIIIINOOOOOUUUUYaaaaaaceeeeiiiinooooouuuuyy"
  sTmp = sChaine
  For i = 1 To Len(sTmp)
    p = InStr(sCarAccent, Mid(sTmp, i, 1))
    If p > 0 Then Mid$(sTmp, i, 1) = Mid$(sCarSansAccent, p, 1)
  Next i
  SupAccents = sTmp
End Function

A+

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 26 Juin 2019

• #7

Bonjour Bruno,

Je te remercie mais je pense qu'il y a un petit problème parce que à la base il y a 507 lignes dans la colonnes "J" et avec la fonction on retrouve que 408 lignes ?

Ou j'ai pas compris....

Max

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 26 Juin 2019

• #8

Bonjour

Personne a une idée pour que sa fonctionne

Merci

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Juin 2019

• #9

Bonjour maval

Curieux !! Chez moi la distinction est bien faite
Essaie en ajoutant en tête de module : Option compare Binary

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 27 Juin 2019

• #10

Bonjour Pierrejean

Non sa ne donne rien tout les noms avec des accents sont ignorés?????

Merci

Max

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Juin 2019

• #11

Re
Ais_je Bien compris ?
Tu souhaites que l'on ignore les les accents pour faire la comparaison ou que l'on différencie
Par exemple pour Épieds veux-tu que l'on mette Eppois Eppoises ou que l'on s'abstienne ?

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 27 Juin 2019

• #12

Re,

Oui en faite il faut pas s'occuper des accents. si dans la colonne "J"il y a un gentilé il doit être copier dans la colonne "E"

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Juin 2019

• #13

Re
Voila une version qui ignore les É en Initiale dans la colonne D
Pour les autre accents on dépasse les capacités de traitement (au mons sur mon PC )
Si impératif de tout traiter revient et j'essaierai d'aller plus à fond

 

Pièces jointes

• Convertir.xlsm

  84.3 KB · Affichages: 4

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Juin 2019

• #14

Re
Voici une version qui traite tous les accents selon cette liste : "ÉÈÊËÔéèêëàçùôÛûïî"

 

Pièces jointes

• ConvertirV2.xlsm

  84.2 KB · Affichages: 2

Vote positif 0 Vote négatif