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
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
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
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:erIvpj2QJHA.4008@TK2MSFTNGP02.phx.gbl...
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
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
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
Merci, Philippe.R,
Comme cela, cest bon !
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
eLmO2U4QJHA.4916@TK2MSFTNGP06.phx.gbl...
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:erIvpj2QJHA.4008@TK2MSFTNGP02.phx.gbl...
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
"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