Rechercher VBA

[ninou58]

Re bonjour tout le monde 🙂

j'ai besoin de vos conseils aunsi que de votre aide.
J'ai un fichier
lundi | mardi | mercredi
X | V | N
Y | S | U

X,V,N... sont les noms de personnes.

Il faut par exemple que X ne soit pas dans mardi ni dans mercredi, et qu'il ne se répète pas dans la colonne lundi. Donc je dois faire une recherche de X dans les autres colonnes et les lignes et s'il est en double je dois l'écrire dans un autre classeur.
J'étais parti dans un code VBA mais plus ça va et je m'enfonce.

Je vous remercie d'avance

 

[ninou58]

Est ce possible avec :
If Cells.Find(What:='X', After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate = 2 Then

Enfin quelque chose comme ca car cela ne fonctionne pas. J'arrive pas a trouver, par exemple qu'il compte le nombre de cellule qu'il a trouvé.

merci

 

[porcinet82]

Salut Ninou58,

Avant que tu proposes ton bout de code j'etais partis sur une boucle, je te file donc le code mais je ne suis pas sur t=d'avoir tout bien saisie dans ce que tu souhaitais (je recherche simplement la valeur X dans toutes les lignes mais le soucis c'est que ca cherche egalement dans toutes les colonnes, ne sachant pas exactement ce que tu veux, je ne savais pas trop si je devais boucler sur une colonne ou si ca devait etre général) :

Sub test()
Dim i As Integer, j As Integer
Dim val As Variant

i = 2
x = 0
For j = 1 To Range('IV1').End(xlToLeft).Column
    val = Cells(i + g, j - x).Value
    For i = 2 To Range('a65536').End(xlUp).Row
        If val = Cells(i + 1, j).Value Then
            MsgBox val & ' trouvé a l'adresse ' & Cells(i, j).Address
            'le reste de ton code
            Exit Sub
        End If
    Next i
    i = 2
    x = x + 1
Next j
End Sub

Si ca peut t'aider tant mieux, sinon tant pis, et pour ton code, je ne vois pas trop comment t'aider a le modifier.

@+