Macro avec RechercheV

Bonjour Françoise,

For a = 1 To Worksheets(1).UsedRange.Rows.Count
b = 0
For i = 1 To Worksheets(2).UsedRange.Rows.Count
If Worksheets(1).Cells(a, 2) = Worksheets(2).Cells(i, 3) Then
b = 1
End If
Next i
For i = 1 To Worksheets(3).UsedRange.Rows.Count
If Worksheets(1).Cells(a, 2) = Worksheets(3).Cells(i, 3) Then
b = 2
End If
Next i
If b = 1 Then
Worksheets(1).Cells(a, 2).Interior.ColorIndex = 3
ElseIf b = 2 Then
Worksheets(1).Cells(a, 2).Interior.ColorIndex = 4
Else
Worksheets(1).Cells(a, 2).Interior.ColorIndex = 0
End If
Next a

Bonjour à tous,

je voudrais faire une macro de vérification sur un dossier comportant 3
feuilles
sur la première toutes les données avec comme point de repaire en colonne B
le n°de facture : 001; 002; 003; etc
sur la deuxième feuille un certain nombre de données avec en colonne C le n°
de facture
sur la troisième feuille les autres données avec en colonne C le n° de facture
JE VEUX VERIFIER
que tous les numéros de facture de la feuille 2 et 3 sont bien comprises
dans la feuille 1 afin de voir ensuite dans la feuille 1, quelles sont les
factures qui ne figurent pas dans les données des feuilles 2 et 3
pour cela, je voudrais utiliser une macro qui lorsqu'elle trouve dans la
feuille 2 un nr de facture de la feuille 1, colore ce numéro en rouge, et si
c'est dans la feuille 3 la colore en vert. Ainsi je verrai facilement les
numéros de factures restés en noir et donc manquant dans les autres feuilles.

Pouvez-vous m'aider à rédiger cette macro ?

D'avance merci pour votre aide
Françoise

Bonsoir Françoise,
De quoi faire avancer la chose.
C'est à adapter bien sûr à tes besoins.
A mettre dans un module standard

Sub Vérifier()
Dim Couleur As Integer
Dim NumFact As String
'toutes les factures non trouvées en feuille 1
Sheets("Feuil1").Select
Range(Range("B65536").End(xlUp), Range("B2")).Select
With Selection.Interior
.ColorIndex = 3 'en rouge
End With
'facture feuille x dans feuille 1 ?
For i = 2 To 3
Sheets(i).Activate
Range("C2").Activate
If i = 2 Then Couleur = 4 Else Couleur = 6
Do While ActiveCell.Value <> ""
NumFact = ActiveCell.Value
ChercheFacture NumFact, Couleur
Sheets(i).Activate
ActiveCell.Offset(1, 0).Activate
Loop
Next i
Sheets(1).Select
End Sub

Function ChercheFacture(wNum As String, wCouleur As Integer)
Sheets(1).Activate
On Error Resume Next
Columns("B:B").Select
Selection.Find(What:=wNum, After:¬tiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
If Err = 0 Then 'trouvé
ActiveCell.Select
With Selection.Interior
.ColorIndex = wCouleur
End With
End If
End Function

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Françoise" <Françoise@discussions.microsoft.com> a écrit dans le message de
news: 9DD8EDF2-DCD3-4CAE-807A-60CDA9088AC8@microsoft.com...

Bonjour à tous,

je voudrais faire une macro de vérification sur un dossier comportant 3
feuilles
sur la première toutes les données avec comme point de repaire en colonne
B
le n°de facture : 001; 002; 003; etc
sur la deuxième feuille un certain nombre de données avec en colonne C le
n°
de facture
sur la troisième feuille les autres données avec en colonne C le n° de
facture
JE VEUX VERIFIER
que tous les numéros de facture de la feuille 2 et 3 sont bien comprises
dans la feuille 1 afin de voir ensuite dans la feuille 1, quelles sont les
factures qui ne figurent pas dans les données des feuilles 2 et 3
pour cela, je voudrais utiliser une macro qui lorsqu'elle trouve dans la
feuille 2 un nr de facture de la feuille 1, colore ce numéro en rouge, et
si
c'est dans la feuille 3 la colore en vert. Ainsi je verrai facilement les
numéros de factures restés en noir et donc manquant dans les autres
feuilles.

Pouvez-vous m'aider à rédiger cette macro ?

D'avance merci pour votre aide
Françoise

Bonjour
Une macro n'est pas forcément utile pour ce que tu veux faire.
Tu peux utiliser la mise en forme conditionnelle...

Cordialement
Pascal

"Françoise" <Françoise@discussions.microsoft.com> a écrit dans le message de
news: 9DD8EDF2-DCD3-4CAE-807A-60CDA9088AC8@microsoft.com...

Bonjour à tous,

je voudrais faire une macro de vérification sur un dossier comportant 3
feuilles
sur la première toutes les données avec comme point de repaire en colonne
B
le n°de facture : 001; 002; 003; etc
sur la deuxième feuille un certain nombre de données avec en colonne C le
n°
de facture
sur la troisième feuille les autres données avec en colonne C le n° de
facture
JE VEUX VERIFIER
que tous les numéros de facture de la feuille 2 et 3 sont bien comprises
dans la feuille 1 afin de voir ensuite dans la feuille 1, quelles sont les
factures qui ne figurent pas dans les données des feuilles 2 et 3
pour cela, je voudrais utiliser une macro qui lorsqu'elle trouve dans la
feuille 2 un nr de facture de la feuille 1, colore ce numéro en rouge, et
si
c'est dans la feuille 3 la colore en vert. Ainsi je verrai facilement les
numéros de factures restés en noir et donc manquant dans les autres
feuilles.

Pouvez-vous m'aider à rédiger cette macro ?

D'avance merci pour votre aide
Françoise

Salut Pascal,
J'y avais pensé itou, mais j'ai eu le droit à une insulte de la part d'Excel
( XL2000 ) ;o((((

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
%23PxAFN7BFHA.3376@TK2MSFTNGP12.phx.gbl...

Bonjour
Une macro n'est pas forcément utile pour ce que tu veux faire.
Tu peux utiliser la mise en forme conditionnelle...

Cordialement
Pascal

"Françoise" <Françoise@discussions.microsoft.com> a écrit dans le message
de news: 9DD8EDF2-DCD3-4CAE-807A-60CDA9088AC8@microsoft.com...

Bonjour à tous,

je voudrais faire une macro de vérification sur un dossier comportant 3
feuilles
sur la première toutes les données avec comme point de repaire en colonne
B
le n°de facture : 001; 002; 003; etc
sur la deuxième feuille un certain nombre de données avec en colonne C le
n°
de facture
sur la troisième feuille les autres données avec en colonne C le n° de
facture
JE VEUX VERIFIER
que tous les numéros de facture de la feuille 2 et 3 sont bien comprises
dans la feuille 1 afin de voir ensuite dans la feuille 1, quelles sont
les
factures qui ne figurent pas dans les données des feuilles 2 et 3
pour cela, je voudrais utiliser une macro qui lorsqu'elle trouve dans la
feuille 2 un nr de facture de la feuille 1, colore ce numéro en rouge, et
si
c'est dans la feuille 3 la colore en vert. Ainsi je verrai facilement les
numéros de factures restés en noir et donc manquant dans les autres
feuilles.

Pouvez-vous m'aider à rédiger cette macro ?

D'avance merci pour votre aide
Françoise

Bonjour,

Sans macro, avec une mise en forme conditionnelle :
Sur feuille 2 et 3 :
La formule est =RECHERCHEV($A2;Toto;1;0)
avec des codes couleurs différents et où Toto est la
colonne des n° de facture de la feuille 1.

Camille

-----Message d'origine-----
Bonjour à tous,

je voudrais faire une macro de vérification sur un
dossier comportant 3

feuilles
sur la première toutes les données avec comme point de
repaire en colonne B

le n°de facture : 001; 002; 003; etc
sur la deuxième feuille un certain nombre de données
avec en colonne C le n°

de facture
sur la troisième feuille les autres données avec en
colonne C le n° de facture

JE VEUX VERIFIER
que tous les numéros de facture de la feuille 2 et 3
sont bien comprises

dans la feuille 1 afin de voir ensuite dans la feuille 1,
quelles sont les

factures qui ne figurent pas dans les données des
feuilles 2 et 3

pour cela, je voudrais utiliser une macro qui lorsqu'elle
trouve dans la

feuille 2 un nr de facture de la feuille 1, colore ce
numéro en rouge, et si

c'est dans la feuille 3 la colore en vert. Ainsi je
verrai facilement les

numéros de factures restés en noir et donc manquant
dans les autres feuilles.

Pouvez-vous m'aider à rédiger cette macro ?

D'avance merci pour votre aide
Françoise
.

Une macro n'est pas forcément utile pour ce que tu veux faire.
Tu peux utiliser la mise en forme conditionnelle...

Je ne peux que souscrire à l'idée ;-)

AV

Re
Exemple simple ici :
http://cjoint.com/data/bFsujNpOsh.htm
Cordialement
Pascal

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
%23PxAFN7BFHA.3376@TK2MSFTNGP12.phx.gbl...

Bonjour
Une macro n'est pas forcément utile pour ce que tu veux faire.
Tu peux utiliser la mise en forme conditionnelle...

Cordialement
Pascal

"Françoise" <Françoise@discussions.microsoft.com> a écrit dans le message
de news: 9DD8EDF2-DCD3-4CAE-807A-60CDA9088AC8@microsoft.com...

Bonjour à tous,

je voudrais faire une macro de vérification sur un dossier comportant 3
feuilles
sur la première toutes les données avec comme point de repaire en colonne
B
le n°de facture : 001; 002; 003; etc
sur la deuxième feuille un certain nombre de données avec en colonne C le
n°
de facture
sur la troisième feuille les autres données avec en colonne C le n° de
facture
JE VEUX VERIFIER
que tous les numéros de facture de la feuille 2 et 3 sont bien comprises
dans la feuille 1 afin de voir ensuite dans la feuille 1, quelles sont
les
factures qui ne figurent pas dans les données des feuilles 2 et 3
pour cela, je voudrais utiliser une macro qui lorsqu'elle trouve dans la
feuille 2 un nr de facture de la feuille 1, colore ce numéro en rouge, et
si
c'est dans la feuille 3 la colore en vert. Ainsi je verrai facilement les
numéros de factures restés en noir et donc manquant dans les autres
feuilles.

Pouvez-vous m'aider à rédiger cette macro ?

D'avance merci pour votre aide
Françoise

Re,
Effectivement, en nommant ça passe. Je n'y avais pas pensé.
Mea culpa

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
%23Vm1lj7BFHA.3824@TK2MSFTNGP10.phx.gbl...

Re
Exemple simple ici :
http://cjoint.com/data/bFsujNpOsh.htm
Cordialement
Pascal

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
%23PxAFN7BFHA.3376@TK2MSFTNGP12.phx.gbl...

Bonjour
Une macro n'est pas forcément utile pour ce que tu veux faire.
Tu peux utiliser la mise en forme conditionnelle...

Cordialement
Pascal

"Françoise" <Françoise@discussions.microsoft.com> a écrit dans le message
de news: 9DD8EDF2-DCD3-4CAE-807A-60CDA9088AC8@microsoft.com...

Bonjour à tous,

je voudrais faire une macro de vérification sur un dossier comportant 3
feuilles
sur la première toutes les données avec comme point de repaire en
colonne B
le n°de facture : 001; 002; 003; etc
sur la deuxième feuille un certain nombre de données avec en colonne C
le n°
de facture
sur la troisième feuille les autres données avec en colonne C le n° de
facture
JE VEUX VERIFIER
que tous les numéros de facture de la feuille 2 et 3 sont bien comprises
dans la feuille 1 afin de voir ensuite dans la feuille 1, quelles sont
les
factures qui ne figurent pas dans les données des feuilles 2 et 3
pour cela, je voudrais utiliser une macro qui lorsqu'elle trouve dans la
feuille 2 un nr de facture de la feuille 1, colore ce numéro en rouge,
et si
c'est dans la feuille 3 la colore en vert. Ainsi je verrai facilement
les
numéros de factures restés en noir et donc manquant dans les autres
feuilles.

Pouvez-vous m'aider à rédiger cette macro ?

D'avance merci pour votre aide
Françoise