Discussion :

[documentation]

Bonjour a tous,

j'ai un léger problème du au fait que je ne connais pas bien VBA
J'ai une macro qui me trouve des différences entre deux plages sur deux onglets et met les différences en rouge.

Pour les chiffres, cette macro fonctionne très bien !
En revanche, j'aimerais la faire tourner sur une colonne de 500 lignes, ou chaque cellule contient un Nom et un prénom.
Le problème est que dans l'onglet 1, les cellules sont sous la forme :

Jean Baptiste Chevalier
Pierre de Machin
etc.


et dans l'onglet 2 :

Chevalier Jean Baptiste
de Machin Pierre


Ainsi, ma macro me détecte des erreurs partout, car elle cherche un contenu exact.

Voici la macro en question :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub colorier()
 
For Each cel In Range("H1:H300")
Set absent = Range("'2'!H1:'2'!H300").Find(cel, LookIn:=xlValues, LookAt:=xlWhole)
If absent Is Nothing Then
cel.Interior.ColorIndex = 3
End If
Next
 
End Sub

Voyez vous quelquechose a faire sur la partie

Code :

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

Find(cel, LookIn:=xlValues, LookAt:=xlWhole)

afin que cela fonctionne ?

D'avance merci !

Cordialement

[laetitia]

bonjour documentation le forum as tu essaye seulement comme cela

Code :

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

Find(cel, LookIn:=xlValues)

autrement cree une coloms temporaire extraire la parti de gauche ou de droite &comparer

salutations

[documentation]

j'ai essayé avec ce code, ca ne fonctionne pas je sais pas pourquoi

Je peux effectivement créer une colonne mais en fait je travaille sur un "outil de comparaison" pour quelqu'un de ma société qui veut juste effectuer des controles de temps à autre et qui veut juste avoir à lancer ttes les macros...
Donc l'idéal serait que tout soit sous forme de macro.

[laetitia]

rebonjour tu peus cree le code de la colonne par macro.??

salutations

[documentation]

re bonjour laetitia

je ne comprends pas très bien ta question

[Didier Gonard]

Bonjour,

Laetitia a parlé de colonne temporaire, ce qui veut dire que tu la crée pour tes besoins et tu la détruit ensuite par macro sans doute...

Mais comme tu l'énonces au départ le souci va bien au-delà d'une simple inversion nom-prénom :

ean Baptiste Chevalier
Pierre de Machin
etc.


et dans l'onglet 2 :

Chevalier Jean Baptiste
de Machin Pierre

avec Machin...
sans entrer dans une usine à gaz... ce qui serait une solution intermédiaire possible serait de convenir que dans l'onglet 1, les noms sont en dernière place et de ne faire des recherches que sur cette partie dans toutes les chaînes de la colonne de l'onglet 2. Pas fiable à 100%, mais très correct si la saisie est homogène en cet endroit.

cordialement,

Didier

[documentation]

Merci de ta réponse.

Pense tu qu'il est facile de créer une macro qui garderait d'une colonne de cellule a chaque fois uniquement le mot de gauche (ou de droite) ?

car si j'ai le nom de famille uniquement, je peux faire tourner ma macro de comparaison.

[Didier Gonard]

bonjour,

oui, vois dans l'aide vba notamment à :

InStr
InStrRev
Mid
Left
Right... bref les fonctions de chaînes

Le principe étant de trouver, par exemple le 1er espace en partant de la droite (InStrRev) et de t'en servir avec (Right) pour récupérer le dernier mot...
di les séparateurs de nom peuvent varier, tu adaptes, mais "Roche-Tanguy" serait surement à traiter en 1 mot...

cordialement,

Didier

[documentation]

Merci Didier

Sinon j'ai trouvé ceci :

Code :

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

1
2
3
4
dim cell as Range
For Each cell In Selection
cell = Split(cell, " ", 2)
Next cell

Cela conserve le premier mot de ma cellule.

Voyez vous un moyen de garder le dernier mot ?

Ce serait parfait car ca le conserverait dans la même cellule et je n'aurais qu'à garder le premier mot dans un onglet, le dernier dans l'autre, et hop je compare !

[documentation]

j'ai réussi !

Pour info pour récupérer le dernier mot je fais :

Code :

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

Split(maChaine,monSep)(UBound(Split(maChaine,monSep)))