Discussion :

[stephblit]

bonsoir...
je vais esayer d'être bref et clair pour mon 1er message sur le forum !

alors voila, j ai un fichier excel avec une vingtaine de colonne et 20000 lignes

Je veux pouvoir rentrer dans la cellule A1 un numéro, et qu une macro recherche dans toute la feuille le numéro intégré en A1, et que cette macro colle la cellule se trouvant a droite dans un autre onglet.
Le nombre rentré en A1 peut bien sur apparaitre à plusieurs endroits dans la feuille.

En espérant avoir été clair

[Invité]

Bonsoir,

Je veux pouvoir rentrer dans la cellule A1 un numéro, et qu une macro recherche dans toute la feuille le numéro intégré en A1, et que cette macro colle la cellule se trouvant a droite dans un autre onglet.
Le nombre rentré en A1 peut bien sur apparaitre à plusieurs endroits dans la feuille.

En principe c'est clair, mais la précision indiquant que le nombre peut être trouvé plusieurs fois provoque une question :

-c'est la 1ère occurrence trouvée qui est importante, il est inutile de chercher les autres ?

[stephblit]

bonjour, et un grand merci pour vous être penché sur le sujet !
pour repondre a votre question, le nombre ou le mot se trouvant en A1 peut se retrouver plusieurs fois dans la feuille, aussi bien dans la colonne A, que dans la B, que dans la colonne AE...
je veux que la macro me ramene TOUTES les données se trouvant a droite du nombre !

Il est donc indispensable de chercher toutes les occurences


en esperant avoir votre aide
merci

[Invité]

Bonsoir,

Un code à tester (il peut sûrement être perfectionné) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub Cherche_val()
Dim cell As Range
'Modifier éventuellement le nom des feuilles
Set mf1 = Sheets("Feuil1")
Set mf2 = Sheets("Feuil2")
'1ère ligne pour la copie des données (modifier éventuellement)
lgn = 1
valch = mf1.Cells(1, 1)
mf1.Activate
Range("A2").Select

 adr = Range("A1").SpecialCells(xlCellTypeLastCell).Address
    For Each cell In Range("A2:" & adr)
    Cells.Find(What:=valch, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
    xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
    False).Activate
        If ActiveCell.Address = "$A$1" Then
        Exit For
        End If
    mf2.Cells(lgn, 1) = ActiveCell.Address
    mf2.Cells(lgn, 2) = Range(ActiveCell.Address).Offset(0, 1).Value
    lgn = lgn + 1
    Next
Set mf1 = Nothing
Set mf2 = Nothing
End Sub

J'ai choisi de copier les données mais aussi le N° de cellule mais on peut le supprimer.