Fichier de données a comparer
DephineTodo
Messages postés
1
Statut
Membre
-
Kuartz Messages postés 852 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
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:
- Fichier de données a comparer
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier .dat - Guide
1 réponse
Bonjour,
Vous pouvez faire comme ça :
Cordialement.
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.
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?