Fichier de données a comparer

DephineTodo Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   -
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

A voir également:

1 réponse

Réponse 1 / 1
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   61
 
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.
0
DelphineTodo
 
bonjour, merci pour cette reponse. J ai integré votre code mais ca rame a l execution, du coup je ne sais pas si ca marche.
0
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   61
 
Bonjour,

Je ne comprend pas. Il suffit de vérifier si les les cellules se sont bien colorées. Chez moi ça ne rame pas. Le code ne s'exécute pas jusqu'au bout parce qu'il rame?
0