Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel doublons min/maj

doublons min/maj

2 réponses
Avatar
Unss34
Bonjour,
Dans 2 colonnes B et C triées (nom et prénom) je teste la présence de
doublons avec (extrait):
If ActiveCell Like ActiveCell.Offset(1, 0) And ActiveCell.Offset(0, 1)
Like ActiveCell.Offset(1, 1) Then...
(il doit y avoir plus simple, mais je ne sais pas faire)
en maj et d'autres en minuscules tout en étant orthographiquement les
mêmes, la macro ne les considère pas comme des doublons. Que faut-il ajouter
pour résoudre ce pb ?
Merci de votre aide
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Philippe.R
Bonsoir,
Pour éviter l'embrouille, on gagne à comparer des chaînes passées en
majuscule

Sub compare()
For Each c In Selection
If UCase(c.Value) = UCase(c.Offset(1, 0).Value) _
And UCase(c.Offset(0, 1).Value) = UCase(c.Offset(1, 1).Value) Then
MsgBox c.Value & c.Offset(0, 1).Value & " pareil que " _
& c.Offset(1, 0).Value & c.Offset(1, 1).Value
End If
Next c
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Unss34" <unss34(a_enlever)@free.fr> a écrit dans le message de
news:
Bonjour,
Dans 2 colonnes B et C triées (nom et prénom) je teste la présence de
doublons avec (extrait):
If ActiveCell Like ActiveCell.Offset(1, 0) And ActiveCell.Offset(0, 1)
Like ActiveCell.Offset(1, 1) Then...
(il doit y avoir plus simple, mais je ne sais pas faire)
en maj et d'autres en minuscules tout en étant orthographiquement les
mêmes, la macro ne les considère pas comme des doublons. Que faut-il
ajouter pour résoudre ce pb ?
Merci de votre aide



Avatar
Unss34
Merci, Philippe.R,
Comme cela, cest bon !

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:

Bonsoir,
Pour éviter l'embrouille, on gagne à comparer des chaînes passées en
majuscule

Sub compare()
For Each c In Selection
If UCase(c.Value) = UCase(c.Offset(1, 0).Value) _
And UCase(c.Offset(0, 1).Value) = UCase(c.Offset(1, 1).Value) Then
MsgBox c.Value & c.Offset(0, 1).Value & " pareil que " _
& c.Offset(1, 0).Value & c.Offset(1, 1).Value
End If
Next c
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Unss34" <unss34(a_enlever)@free.fr> a écrit dans le message de
news:
Bonjour,
Dans 2 colonnes B et C triées (nom et prénom) je teste la présence de
doublons avec (extrait):
If ActiveCell Like ActiveCell.Offset(1, 0) And ActiveCell.Offset(0, 1)
Like ActiveCell.Offset(1, 1) Then...
(il doit y avoir plus simple, mais je ne sais pas faire)
en maj et d'autres en minuscules tout en étant orthographiquement les
mêmes, la macro ne les considère pas comme des doublons. Que faut-il
ajouter pour résoudre ce pb ?
Merci de votre aide