Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Recherche de valeur via Boite de dialogue

J

jokerfidelio

XLDnaute Occasionnel
Bonjour a tous,

Sur l'exemple donné en fichier joint, j'aimerais faire une recherche de nombre (peu importe le nombre)
Via une boite de dialogue qui permettrait dans un premier temps de demander le nombre recherché et de demander ensuite par qu'elle nombre on souhaiterait le remplacer.

Code utilisé :
Code: 
Sub SelectionnerCellulesValeur()
Dim vValeur As Single
Dim vCellule As Object
Dim vSélection As String
vValeur = Val(InputBox("Valeur à sélectionner"))
Selection.CurrentRegion.Select
For Each vCellule In Selection
    If vCellule.value = vValeur Then vSélection = vSélection &
vCellule.Address & "."
Next
If Len(vSélection) > 0 Then
    Range(Left(vSélection, Len(vSélection) - 1)).Select
    Selection.Interior.ColorIndex = 6
End If
End Sub

a l’exécution du code j'ai un message d'erreur ligne 8

- J'aimerais aussi pouvoir incorporer une ligne pour sélectionner une plage reprécise de recherche

je vous remercie d'avance pour vos réponse
 

Pièces jointes

  • TEST.xlsm
    12.5 KB · Affichages: 34
Trier par date Trier par votes
J

jp14

XLDnaute Barbatruc
Bonjour
Il faut écrire
If vCellule.value = vValeur Then vSélection = vSélection & vCellule.Address & "."
ou
If vCellule.Value = vValeur Then vSélection = vSélection & _
vCellule.Address & "."

A tester

Jp14
 
Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc
Bonsoir,
Ce code à tester car je pige pas trop la demande
Bruno
VB: 
Sub SelectionnerCellulesValeur()
Dim vValeur As Single
Dim vCellule As Object
Dim vSélection As String
Dim ref As Range
Set ref = Application.InputBox(prompt:="Sélectionner les cellules sur la feuille", Type:=8)
vValeur = Val(InputBox("Valeur à sélectionner"))
Range(ref.Address).CurrentRegion.Select
For Each vCellule In Selection
    If vCellule.value = vValeur Then vSélection = vSélection & vCellule.Address & ","
Next
If Len(vSélection) > 0 Then
    Range(Left(vSélection, Len(vSélection) - 1)).Select
    Selection.Interior.ColorIndex = 6
End If
End Sub
 
Vote positif 0 Vote négatif
J

jokerfidelio

XLDnaute Occasionnel

le résultat souhaité :
Une boite de dialogue avec code de recherche, de valeur numérique
premier temps le chiffre recherche ---> seconde boite dialogue "remplacer par" et en option coloriser l’intérieur des cellules
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Bonjour le fil, le forum

Pourquoi passer par une macro alors qu'Excel sait le faire tout seul comme un grand???
1) Sélection des cellules
2) CTRL+H
3) Cliquez sur Options puis sur Format
(et choisir le format à appliquer lors du remplacement)
4) Cliquez sur Remplacer tout
 
Vote positif 0 Vote négatif
J

jokerfidelio

XLDnaute Occasionnel
merci pour votre reponse
les collaborateurs non pas tous le meme niveau sur excel, le but est de facilite les manipulations
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Re

L'utilisation d'Edition/Remplacer n'est pas réservé aux experts
En attendant CTRL+H fonctionne, ta macro non

Garder à l'esprit, que plus un classeur est simple d'usage et ergonomique, mieux c'est.
Ça rejoint ce principe: le K.I.S.S

PS1: Une macro qui plante n'a jamais facilité les manipulations d'un classeur pour des utilisateurs de base (qui ne connaissent justement pas VBA)

PS2: As-tu au moins essayé ma proposition avant de publier ta réponse?
 
Vote positif 0 Vote négatif
J

jokerfidelio

XLDnaute Occasionnel

oui j'avais deja essaye avant de poster sur le forum la solution d'Edition/Remplacer
qui d'ailleurs cest vrai fonctionne tres bien
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Re

jokerfidelio à dit:
oui j'avais deja essaye avant de poster sur le forum la solution d'Edition/Remplacer
qui d'ailleurs cest vrai fonctionne tres bien
Cliquez pour agrandir...
Donc pourquoi une macro dans ce cas?
Et si tu l'as essayé alors pourquoi ce n'est pas cette macro que tu utilises ?
VB: 
Sub Macro1()
Dim Valeur1, Valeur2
Valeur1 = InputBox("Saisir la valeur à remplacer?")
Valeur2 = InputBox("Saisir la valeur de remplacement?")
'ici on paramétra grâce à l'enregistreur de macros
'le format souhaité pour les valeurs remplacées
    With Application.ReplaceFormat.Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249946592608417
        .PatternTintAndShade = 0
    End With
Selection.Replace What:=Valeur1, Replacement:=Valeur2, LookAt:=xlPart, SearchOrder:=xlByRows, ReplaceFormat:=True
End Sub

Encore une fois, je ne vois aucun avantage à utiliser une macro ici sauf à vouloir prendre tes collaborateurs pour des décérébrés

PS: L'avantage de CTRL+H, c'est que l'utilisateur a la main:
il peut choisir la couleur, la police, gras souligné ou pas
(la macro ne le permet pas)
Si il se trompe dans sa saisie, il peut corriger avant d'appuyer sur Remplacer tout
(la macro ne le permet pas)
Et il peut annuler
(la macro ne le permet pas)
 
Dernière édition:
Vote positif 0 Vote négatif
J

jokerfidelio

XLDnaute Occasionnel
Staple1600 à dit:
Re

Question:
Est-ce que tu as cliqué sur le lien dans le message#9?
Si oui, tu en penses quoi?
Cliquez pour agrandir...

effectivement le principe du KISS a du bon ! je comprend le principe et c'est positif
loin de moi de prendre les gens pour des décérébrés, moi même j'ai un niveau vba quasi nul et le l'avoue volontier...
j'essaye des choses simple, mais peu etre complique a mettre en place je l'avoue aussi !
c'est juste mon vecu qui parle et que meme avec des formations ou explication c'est parfois difficile de ce faire comprendre !

je vous remercie beaucoup pour le code qui fonctionne impeccablement
 
Vote positif 0 Vote négatif
J

jokerfidelio

XLDnaute Occasionnel
Staple1600 à dit:
Re


Si tu ne l'a pas dit, tu l'as pas un peu sous entendu,non?


La macro que je t'ai soumise n'est pas optimisée, elle pourrait planter.
Et dans ce cas, il fera quoi le collaborateur?

Alors que CTRL+H lui ne plantera pas
Cliquez pour agrandir...


j'aimerais comprendre cette partie du code, pour personnaliser le format, s'il vous plait

Code: 
 With Application.ReplaceFormat.Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249946592608417
        .PatternTintAndShade = 0
    End With
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

Z
  • Question
XL 2010 Utilisation variable dans code
Réponses
5
Affichages
502
patricktoulon
C
  • Résolu(e)
Microsoft 365 Boite de dialogue suivant date et récupération de données
2
Réponses
15
Affichages
896
chnico80
C
L
  • Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
678
Liner77
L
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
536
Nico2978
P
  • Question
XL 2019 VBA moteur de recherche
2
Réponses
21
Affichages
2 K
philgood54000
P
  • Question
Microsoft 365 Empêcher l'affichage de la boite de dialogue copier/coller
Réponses
6
Affichages
435
patricktoulon
L
  • Question
Microsoft 365 vba Outlook traiter un fichier excel lors de sa reception
Réponses
0
Affichages
499
lesoldat9
L
  • Résolu(e)
XL 2013 (RESOLU)Mot de passe Masqué
Réponses
5
Affichages
711
Compte Supprimé 979
C
K
  • Question
Microsoft 365 Erreur sur la recherche via 2 combo Box aux choix de l'utilisateur
Réponses
6
Affichages
547
Dranreb
  • Sondage
XLS : Arbre de Recherche BinaiRe Equilibré ou Arbre AVL
Réponses
10
Affichages
790
Lu76Fer
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…