Pour les doublons... possible... y a t'il une solution pour les faire ressotrir ?
=NB.SI($D:$D;$D1)>1
Hello,
bon tests...
autre sujet autre fil.
Une piste: Format/mise en forme conditionnelle -> la formule est :après avoir sélectionner la colonne D idem pour CCode:=NB.SI($D:$D;$D1)>1
A+
=NB.SI($C$1:$C$1000;$C1)>1
bonjour le forum,
@elpat:
Pour la formule de format conditionnelles,je te laisse la corriger,c'est pas compliqué.
elle doit ressembler à celle-ci:
sélectionne les cellules C1:C1000 avant de mettre le format conditionnel.Code:=NB.SI($C$1:$C$1000;$C1)>1
Pour le reste, je croise les doigts.
A+
If Cellule Is Nothing Then
......suite de quelque ligne
End If
If Cellule Is Nothing Then
'
'Référencer la cellule dessous la dernière cellule non vide de la colonne de recherche
'
Set Cellule = sh.Cells(sh.Rows.Count, plageRecherche.Column).End(xlUp).Offset(1)
'
'y placer la valeur et passer la couleur d'écriture en rouge
'
With Cellule
.Value = sValeur
.Font.ColorIndex = COLOR_INDEX_ROUGE
End With
Else
' une cellule correspondante a été trouvée
' mise en VERT Brillant
Cellule.Font.ColorIndex = Cellule.Font.ColorIndex = COLOR_INDEX_VERT
' préparation de la future sélection de cellule
Set Cellule = Cellule.Parent.Range("B" & Cellule.Row)
'
End If
Const COLOR_INDEX_VERT = 4
Const COLOR_INDEX_ROUGE = 3
Hello elPat,
Me disais bien aussi, pas de nouvelle, bonnes nouvelles.
Bon pour la couleur Magenta, y'a pas dans ma palette alors ce sera duvert brillant.
Dans la Macro 'ChercherNum(.......)' repère les lignes:
Code:If Cellule Is Nothing Then ......suite de quelque ligne End If
et remplace les par celles-ci.
Code:If Cellule Is Nothing Then ' 'Référencer la cellule dessous la dernière cellule non vide de la colonne de recherche ' Set Cellule = sh.Cells(sh.Rows.Count, plageRecherche.Column).End(xlUp).Offset(1) ' 'y placer la valeur et passer la couleur d'écriture en rouge ' With Cellule .Value = sValeur .Font.ColorIndex = COLOR_INDEX_ROUGE End With Else ' une cellule correspondante a été trouvée ' mise en VERT Brillant Cellule.Font.ColorIndex = Cellule.Font.ColorIndex = COLOR_INDEX_VERT ' préparation de la future sélection de cellule Set Cellule = Cellule.Parent.Range("B" & Cellule.Row) ' End If
Et En tête de module, rajoute:
immédiatement sous ou dessus:Code:Const COLOR_INDEX_VERT = 4
Code:Const COLOR_INDEX_ROUGE = 3
Sur ce je m'en vais également cloper dehors.
Fait trop chaud pour les coquillages. Mais le plouf dans l'eau Hum!!!!
A+
GROS.. heu... hemmmm... et cette ...macro... je la touve où...
hello,
GROS!!!!!!
On vois tout de suite ceux qui préfèrent le cigare plutôt que de comprendre ce qu'il font
Je te laisse chercher! telle sera ta punition!!!!
Une piste: ALT-F11 et le module dans laquelle est la macro se nomme 'mdlRecherche'
Vas, cours, vole et ne reviens que lorsque tu auras trouvé. Je t'offirirai un cigare et une cassolette de chanterelles au huitres chaudes accompagnée d'un Saumur.
A+++
hello,
GROS!!!!!!
On vois tout de suite ceux qui préfèrent le cigare plutôt que de comprendre ce qu'il font
Je te laisse chercher! telle sera ta punition!!!!
Une piste: ALT-F11 et le module dans laquelle est la macro se nomme 'mdlRecherche'
Vas, cours, vole et ne reviens que lorsque tu auras trouvé. Je t'offirirai un cigare et une cassolette de chanterelles au huitres chaudes accompagnée d'un Saumur.
A+++
Etes vous sûr, ÔÔÔ votre luminescence verdâtre brillant dans ma nuit excellesque, que vous n'avez point oublié qq babioles magiques ?? Humm ??
Cellule.Font.ColorIndex = Cellule.Font.ColorIndex = COLOR_INDEX_VERT
Cellule.Font.ColorIndex = COLOR_INDEX_VERT
Hello,
Oui la luminescence opaque et boueuse de votre humble serviteur, begaie:
remplacer :par :Code:Cellule.Font.ColorIndex = Cellule.Font.ColorIndex = COLOR_INDEX_VERT
Code:Cellule.Font.ColorIndex = COLOR_INDEX_VERT
il s'en trouve dépitéTout en étant sûr que votre Grâce l'épargnera de son courroux.
A++
On Error GoTo FIN_Recherche
Set Cellule = plageRecherche.Resize(, 2).Find(what:=sValeur, LookIn:=xlValues, lookat:=[SIZE=3][COLOR=red]xlWhole[/COLOR][/SIZE], searchorder:=xlByRows)
Hello,
Pleure pas on va trouver.
Repère dans la macro ChercherNum les lignes
Code:On Error GoTo FIN_Recherche Set Cellule = plageRecherche.Resize(, 2).Find(what:=sValeur, LookIn:=xlValues, lookat:=[SIZE=3][COLOR=red]xlWhole[/COLOR][/SIZE], searchorder:=xlByRows)
Quand tu as trouvé, remplace xlWhole par xlPart.
Ce paramètre demande de chercher soit dans la totalié des cellules (xlWhole:le texte doit correspondre exactement au contenu de la cellule)
soit sur une partie des cellules (xlPart:le texte est une partie ou non du texte de la cellule)
Cela trouvera tes références avec l'espace.
Le problème qui survient alors c'est que si tu rentre qu'une partie de la référence à chercher, la macro s'arrêtera sur la première trouvée.
si tu es seul à t'en servir tu saura qu'il faut rentre le contenu entier de la référence à chercher.
Sinon une autre solution pourrait être de faire une boucle sur toutes les cellules. Mais en général (mon capitaine), plus il y a de cellules à parcourir plus c'est long.
A toi de choisir.
A+
On Error GoTo FIN_Recherche
Set Cellule = plageRecherche.Resize(, 2).Find(What:=sValeur, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, [SIZE=3][COLOR=red]SearchFormat:=False[/COLOR][/SIZE])
bonjour toutes et tous
Hello Elpat,
donc voici un autre paramètre avec lequel la recherche fonctionne correctement. C'est vrai que je ne pense pas toujours à le mettre:
Code:On Error GoTo FIN_Recherche Set Cellule = plageRecherche.Resize(, 2).Find(What:=sValeur, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, [SIZE=3][COLOR=red]SearchFormat:=False[/COLOR][/SIZE])
Ce paramètre indique à excel de ne pas chercher de format particulier.
Pourrais-tu s'i te plait indiquer ta version excel dans ton profile.C'est toujours un plus pour ce qui désire t'apporter une réponse.
A bientôt