Fouiner dans un fichier pour y retrouver une Macro

suistrop

XLDnaute Impliqué

• 2 Mars 2009

• #2

Re : Fouiner dans un fichier pour y retrouver une Macro

hello
il dois y avoir le fichier qui est present dans la discussion que tu as eu avec Gael non??

genre ici :

https://www.excel-downloads.com/threads/formule-index-equiv-la-convertir-en-macro.115230/

 

Vote positif 0 Vote négatif

N

Nougatine95

XLDnaute Occasionnel

• 2 Mars 2009

• #3

Re : Fouiner dans un fichier pour y retrouver une Macro

Oups pardon,
j'ai cru qu'il était parti mais en fait trop gros, le voici réduit.

Tu avais trouvé le bon lien

 

Pièces jointes

• Noug Index Equiv Macro.xls

  47 KB · Affichages: 103
• Noug Index Equiv Macro.xls

  47 KB · Affichages: 104
• Noug Index Equiv Macro.xls

  47 KB · Affichages: 115

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 2 Mars 2009

• #4

Re : Fouiner dans un fichier pour y retrouver une Macro

Salut,

Voici la macro que je vois !

appuis sur alt +F11 pour afficher VBA et regarde dans les modules

Sinon click droit sur le bouton fais afficher macro et modifie celle qui est sur ce bouton !

A+

 

Vote positif 0 Vote négatif

N

Nougatine95

XLDnaute Occasionnel

• 2 Mars 2009

• #5

Re : Fouiner dans un fichier pour y retrouver une Macro

Merci Testrop,

La macro associée au bouton n'est pas celle que je cherche, voir dernier fichier joint.
Quand je fais ALT F11, moi rien voir

En fait c'est ça:

Code:

Sub recherche()
For Each cell In Range("E5:E" & Range("E1000").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
    If cell.Value = "" Then
    cell.Offset(0, 1) = ""
    Else
    With Worksheets("liste de base").Range("E2:E" & Worksheets("liste de base").Range("E2000").End(xlUp).Row)
    Set c = .Find(cell.Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
        cell.Offset(0, 1) = c.Offset(0, 1)
        cell.Offset(0, 2) = c.Offset(0, 2)
        Else
        Range(cell.Offset(0, 1), cell.Offset(0, 2)) = "?"
        End If
    End With
    End If
Next cell

End Sub

mais!!!!, je cherche où elle est, de façon à pouvoir l'insérer de la même façon au même endroit dans un autre fichier.

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 2 Mars 2009

• #6

Re : Fouiner dans un fichier pour y retrouver une Macro

Bonjour le fil,

la macro que tu indiques ne se trouve pas dans le fichier que tu as envoyés.

 

Vote positif 0 Vote négatif

N

Nougatine95

XLDnaute Occasionnel

• 3 Mars 2009

• #7

Re : Fouiner dans un fichier pour y retrouver une Macro

Bonjour,
Ha!!! J'comprends mieux!
J'ai donc fait une mauvaise manip et l'ai effacé, heureusement que j'avais gardé le code.

Désolée, excusez du dérangement.
Merci Suistrop, Skoobi.
Bonne journée

 

Vote positif 0 Vote négatif