XL 2019 recherche une valeur sur plusieurs feuilles protégées et affiche la cellule qui contient la valeur

youky(BJ)

XLDnaute Barbatruc

• 29 Avril 2021

• #2

Bonjour Ptt,
Voici j'ai mis un bouton et un module.
L'inputbox demande le code
Bruno

 

Pièces jointes

• Classeur70.xlsm

  46.6 KB · Affichages: 20

Vote positif 0 Vote négatif

Solution

P

pat66

XLDnaute Impliqué

• 29 Avril 2021

• #3

re,

merci et bravo c'est exactement ce qu'il me fallait , c'est très sympa à vous
Dans l'exemple je n'ai mis que les feuilles avec les mois, et la macro recherche sur toutes les feuilles , mais mon classeur en comportent d'autres, peut on limiter la recherche qu'à ces feuilles uniquement (janvier, fev, mars, ,etc.....?

merci d'avance

Pat66

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 29 Avril 2021

• #4

Oui,
ici on commence à lire l'onglet 2 jusqu'à la fin (nombre d'onglets)
For k = 2 To Sheets.Count
on peux mettre
For k = 2 To 5'pour lire de l'onglet 2 à 5
ou
For k = 5 To 8 'pour lire de la 5 à 8
A toi de voir mais faudra pas déplacer les onglets sinon d'autres manières existe
Dans ce cas il faut connaitre les noms d'onglets
Bruno

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 29 Avril 2021

• #5

Salut PAT66,
Selon ton classeur joint, voici en retour le mien
@+ Lolote83

 

Pièces jointes

• Copie de PAT66 - Classeur7.xlsm

  41.8 KB · Affichages: 14

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 29 Avril 2021

• #6

re,

un grand merci youky de m'aider à comprendre comment fonctionne et personnaliser votre macro
je vais essayer de l'adapter

Pat66

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 29 Avril 2021

• #7

re,

youky

j'ai réussi les feuilles concernées vont de 7 à 17, merci encore, j'ai une dernière requête :
peut aussi coloriser la cellule qui contient le résultat en jaune ?

j'ai testé ca à l'air de fonctionner ?
Sheets(k).Select
c.Activate
c.Interior.ColorIndex = 43

une dernière question j'aimerai enlever la couleur de la cellule colorée dès que je sélectionne une autre cellule, est ce possible ?

merci

​

 

Dernière édition: 29 Avril 2021

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 29 Avril 2021

• #8

bonjour Lolote83,

Je viens de voir votre solution et c'est incroyable ce que l'on peut faire avec 3 lignes
Pour l'instant, je vais configurer mon classeur avec la soluce de Youky, mais je garde précieusement votre solution au cas où .

un grand merci

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 29 Avril 2021

• #9

Bonsoir,
Pour enlever la couleur
En fenêtre des projets cliquer sur thisworkbook et copier ceci
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Index > 6 And Sh.Index < 18 Then
Range("C5:C1000").Interior.Color = xlNone
End If
End Sub

Bruno

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 30 Avril 2021

• #10

Bonjour,

un grand merci, cela correspond parfaitement, vous êtes un magicien

Pat66

 

Dernière édition: 30 Avril 2021

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 6 Mai 2021

• #11

youky(BJ) à dit:

Bonjour Ptt,
Voici j'ai mis un bouton et un module.
L'inputbox demande le code
Bruno

Cliquez pour agrandir...

Bonjour Le fil, Youky

peut on faire en sorte que si la valeur cherchée n'existe pas, un message s'affiche avec "la valeur recherchée n'existe pas

merci et belle journée

Pat 66

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 6 Mai 2021

• #12

Bonjour pat66, youky, le fil,

je te laisse essayer ceci (que j'ai fait à partir du code VBA de youky) :

VB:

Option Explicit

Sub trouve()
  Dim c As Range, nom$, rep%, k%, b As Byte
  'mot = Selection.Value
  nom = InputBox("Rechercher  ..? ", "Rechercher  ")
  If nom = "" Then Exit Sub 'y'a rien à rechercher !
  For k = 2 To Worksheets.Count
    With Worksheets(k).[A1:Z1000]
      Set c = .Find(nom, LookIn:=xlValues)
      If Not c Is Nothing Then
        'firstAddress = c.Address
        b = 1 '=> on a trouvé au moins une occurrence du nom
        Do
          Worksheets(k).Select: c.Activate
          rep = MsgBox("Continuer la recherche ?", 4 + 32, "Sélection")
          If rep = vbNo Then Exit Sub
          Set c = .FindNext(c)
        Loop While Not c Is Nothing 'And c.Address <> firstAddress
      End If
    End With
  Next k
  If b = 0 Then MsgBox "La valeur recherchée n'existe pas." _
    Else MsgBox "Recherche terminée !"
End Sub

éventuellement, adapte les 3 commentaires initiaux.

soan

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 6 Mai 2021

• #13

Bonjour Soan,

c'est parfait

merci beaucoup et une belle journée à toutes et à tous

Pat66

 

Vote positif 0 Vote négatif

B

Bugs1105

XLDnaute Nouveau

• 15 Mars 2022

• #14

Bonjour Soan,
je m'invite dans cette discussion, car je suis confronté à ce problème auquel votre solution m'a permis de le résoudre en partie. En effet lors d'une recherche si l'on veut continuer, la recherche ne s'effectue plus que sur la feuille trouvée, elle ne continue plus sur les autres feuilles. Pourriez vous m'aider.
En vous remerciant

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 15 Mars 2022

• #15

Bonjour Bugs,
Dans la macro à For k = 2 To Worksheets.Count
au lieu de 2 mets 1 pour commencer sur la 1ère page
La macro proposée regardait du 2ème onglet au dernier
Bruno

 

Vote positif 0 Vote négatif