Discussion :

[pierreferte]

Bonjour à tous,

je suis confronté à un problème que je n'arrive pas à résoudre:

J'ai dans une feuille des affaires avec des numéros qui sont dans la colonne G

Je souhaite vérifier si ces numéros sont dans une autre feuille "Import RT" qui contient les numéros des affaires dont j'ai été amené à discuter durant une revue hebdomadaire.

je met un exemple de cette feuille "Import RT" en fichier joint.

Le but est donc de balayer la feuille "Import RT" de la colonne A jusqu'à la dernière colonne remplie, et si le numéro de la ligne par exemple 1200 de ma feuille de calcul "Outil" se trouve dedans, me remonter la première case de la colonne correspondante qui elle contient la date à laquelle l'affaire à été revue.


Par avance, merci de l'aide que vous pourrez m'apporter.

Pierre

[mayekeul]

bonjour,

a chaud voici une function qui pourrait t'aider

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function PierreFerte(MaRecherche As Long) As Date
Dim FCell As Range
Dim Result As Variant
 
On Error Resume Next
Set FCell = Sheets("Import RT").Cells.Find(MaRecherche)
On Error GoTo 0
 
If FCell Is Nothing Then Result = 0 Else Result = Sheets("Import RT").Cells(1, FCell.Column)
 
PierreFerte = Result
 
 
End Function

[pierreferte]

Bonjour mayekeul,

merci beaucoup pour ta réponse.

J'ai quelques questions sur ton code:

comment je fais pour que les résultats s'affichent dans la meme ligne que le numéro dans la feuille outil ?

La variable MArecherche correspond à mon numéro recherché, mais comment je fais pour le faire varier selon la ligne.

Pour inclure cette fonction, je crée un nouveau module? je ne sais pas trop comment faire fonctionner un module sans passer par une macro.

Je suis vraiment débutant en VBA Excel, j'ai l'habitude de coder mais pas sur Excel donc excusez mes questions de newbie.


Merci.

Pierre

[mayekeul]

bonjour, pas de problemes

donc ça tu l'as compris, tu copie le code dans un module

ensuite tout simplement dans la cellule de ton choix tu inseres à titre d'exemple la formule suivante:

Code :

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

=PIerreFerte(A1)

la fonction est prévue pour aller chercher dans la feuille "import RT" la valeur renseignée en A1

voilà n'hésites pas si je n'ai pas été clair!

[pierreferte]

Génial !

Merci beaucoup pour ton aide.

Ca focntionne nickel !