fichier de données a comparer Fermé

Question

Bonjour, 


j essaye de creer un fichier excel : 
- une page de test des données
- onglet 1 liste de données 
- onglet 2 autre liste 
etc il pourra y avoir plus de 10 onglets avec des liste  de données 

Objectif: l' utilisateur  saisi la liste des numeros dans l 'onglet test et clique sur un bouton et hop ABRACADRA, la  presence des numeros est verifiée dans tous les autres onglets. Il faut que  si les numeros existent  dans un  autre onglet, cela soit signalé (apparait en rouge ou autre)
Les données ont cette tête la:

4566
4568
47889
463232
5566

qui m'aidera à faire cette macro ???? chuis nullarde!!!!! pleeeazzzzz

Configuration: Windows 7 / Internet Explorer 10.0

Kuartz · Answer

Bonjour,

Vous pouvez faire comme ça :

Sub Code()

Dim Donnee As String
Dim c As Range

Donnee = InputBox("Entrez la donnée à vérifier")

For i = 1 To ThisWorkbook.Worksheets.Count

DL = Sheets(i).Cells(Application.Rows.Count, 1).End(xlUp).Row
DC = Sheets(i).Cells(1, Application.Columns.Count).End(xlToLeft).Column

For Each c In Sheets(i).Range("A1:Z2000")
      If c.Value = Val(Donnee) Then
         c.Interior.Color = RGB(255, 0, 0)
      End If
Next c

Next i

End Sub

Cordialement.

Fichier de données a comparer

1 réponse

Discussions similaires

Newsletters