help me macro

[nicdoul]

Hello,

On m'a donné un fichier excel evec plein de colonne, le bute de la manip est de scanner deux colonnes du tableux:

si sur la meme ligne on y trouve un X dans chaque colonne alors il faut recopier toute la ligne dans une autre feuille du classeur et ca autant de fois que le scan trouve x et x

Quelqu'un peut il me donner le bout de code qui va bien merci!

 

[Ben]

Salut nicdoul!

Si tu veux faire ces recherches, tu devrais passer par un for...next.

For i = 1 to 5000 'dernière ligne

Dim caract1
Dim caract2
caract1 = Cells(i, 1).Value '1 si c dans la 1ere colonne
caract2 = cells(i,2).value 'si c dans la 2eme colonne
If Mid(caract1, 1) = Chr(120) Then '=chr(120) si x minusc. ou chr(88) si X majuscule
if Mid(caract2,1) = Chr(120) then
sheets(2).range("A1") = cells(i,1).value
end if

End If

next i


Si ca ne marche pas, renvoie + de details pour adapter le code à ton pb...

@+, Ben