Je suis vraiment nouveau en Excel et VBA mais je souhaite automatiser mes taches quotidiennes... Je possède un fichier regroupant la liste des incidents traités par des techniciens et je souhaite retrouver les nom des techniciens en fonctions de leur login. J'y suis arrivé avec la formule RechercheV mais je souhaite automatiser mes formules via VBA. Ce que de souhaite arriver à faire est: Retrouver le nom du technicien en C2 en fonction de son login situé en B2, la matrice étant la feuille "tech" Tant que la colonne B n'est pas vide, la formule s'exécute sur la colonne C de la même ligne, la première ligne étant B2 - Si un login n'est pas présent dans la matrice, je souhaite, éventuellement ne rien afficher plutôt que "#N/A" mais ce n'est pas le plus important pour moi Ci-joint un fichier exemple pour vous montrer ce que je souhaiterai obtenir avec VBA j'ai déjà réussi à réaliser une petite macro qui me rajoute automatiquement l'onglet "tech" en recopiant la liste depuis un fichier Excel fermé mais là je sèche..... Merci de votre indulgence et de votre aide Pakal...

Salut Banzai Autre code : Sub Recherche() For i = 2 To Sheets("Datas").Range("A65536").End(xlUp).Row Rep = Range("B" & i) Set r = Sheets("tech").Range("A:A").Find(Rep) If r Is Nothing Then Range("C" & i) = "" If Not r Is Nothing Then Range("C" & i) = r.Offset(0, 1) Next i End Sub Amicalement Nad...

RechercheV en VBA

Le 04/10/2012 à 21:59

Bonsoir à tous,

Je suis vraiment nouveau en Excel et VBA mais je souhaite automatiser mes taches quotidiennes...

Je possède un fichier regroupant la liste des incidents traités par des techniciens et je souhaite retrouver les nom des techniciens en fonctions de leur login.

J'y suis arrivé avec la formule RechercheV mais je souhaite automatiser mes formules via VBA.

Ce que de souhaite arriver à faire est:

Retrouver le nom du technicien en C2 en fonction de son login situé en B2, la matrice étant la feuille "tech"
Tant que la colonne B n'est pas vide, la formule s'exécute sur la colonne C de la même ligne, la première ligne étant B2

- Si un login n'est pas présent dans la matrice, je souhaite, éventuellement ne rien afficher plutôt que "#N/A" mais ce n'est pas le plus important pour moi

Ci-joint un fichier exemple pour vous montrer ce que je souhaiterai obtenir avec VBA

j'ai déjà réussi à réaliser une petite macro qui me rajoute automatiquement l'onglet "tech" en recopiant la liste depuis un fichier Excel fermé mais là je sèche.....

Merci de votre indulgence et de votre aide

Pakal

32test.xlsx (46.00 Ko)

Le 04/10/2012 à 22:22

Bonsoir

Un essai

63pakal31-recherche-v001.xlsm (22.12 Ko)

Le 04/10/2012 à 22:35

Bonsoir et bienvenue

Salut Banzai

Autre code :

Sub Recherche()

For i = 2 To Sheets("Datas").Range("A65536").End(xlUp).Row

Rep = Range("B" & i)
Set r = Sheets("tech").Range("A:A").Find(Rep)

If r Is Nothing Then Range("C" & i) = ""
If Not r Is Nothing Then Range("C" & i) = r.Offset(0, 1)

Next i
End Sub

Amicalement

Nad

Le 04/10/2012 à 22:51

Merci a vous 2 pour vos réponses, mon PC vient de faire son caprice ....je vous répond depuis mon IPad .

Je resterai demain matin et je vous tiendrai au courant

Le 04/10/2012 à 22:54

Bonsoir,

Ci-dessous fonction pour le fun

Cordialement

Public Function retFind(NombreRecherché, PlageRecherche, NoColonne) As Variant
'Daniel M., mpfe
Dim f As Variant

  f = Application.VLookup(NombreRecherché, PlageRecherche, NoColonne)
  If IsError(f) Then
    retFind = ""
  Else
    retFind = f
  End If
End Function

Le 04/10/2012 à 23:10

sa sert d'avoir un 2e PC qui dort

Merci Banzai & Nad por votre aide

J'ai testé vos codes respectif et les 2 fonctionnent, je suis bluffé par votre rapidité et maitrise

Merci également à Jean-Eric, même si je n'ai pas encore testé ton code 8)

Me reste plus qu'à intégrer vos codes avec les miens afin de tout automatiser

MERCI ENCORE !!