Recerchev en vba

[nabilexcel2007]

Bonjour;
j'aimerai bien appliquer ma formule recherchev en code vba a la saisie de l'utilisateur automatiquement Svp
=SIERREUR(INDEX(bd!a2:t100]; EQUIV(a3;bd!a3:a100; 0));"")
Merci

 

[vgendron]

Bonjour,

il va falloir etre plus clair dans la demande
appliquer ma formule recherchev en code vba ====> ecrire la formule grace au VBA ?
à la saisie de l'utilisateur ===> il saisit quoi? ou ?
automatiquement==>la formule doit etre écrite à quel endroit?

avec un petit fichier exemple, ca peut aider

 

[nabilexcel2007]

Ok Voici le classeur
j'aimerai bien travailler avec les code vba au lieu des formules le volume de ma base de donnée est important
Merci

 

[vgendron]

Hmmmm.. ton vba est verrouillé par mot de passe
peux tu renvoyer ton fichier exemple sans protection?

 

[nabilexcel2007]

Ayy désole désole

 

[vgendron]

Dans ta feuille Decharges supprime les formules qui sont dans les colonnes B et C ==>sinon ca va bugger
Dans le code de ta feuille Decharge, place cette macro

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("A4:A43")) Is Nothing Then
    With Sheets("BD").Range("A:A")
        Set trouve = .Find(Target)
        If Not trouve Is Nothing Then
            Target.Offset(0, 1) = trouve.Offset(0, 3)  'Raison
            Target.Offset(0, 2) = trouve.Offset(0, 2)  'Emplacement
            Target.Offset(0, 3) = trouve.Offset(0, 17) 'Observation
            Target.Offset(0,4)=Target.Offset(-1,4)+1 'N° incrémentation
        End If
    End With
End If
Application.EnableEvents = True
End Sub

 

[nabilexcel2007]

Merci beaucoup je vais l'essayer

 

[vgendron]

à adapter pour la feuille Archive

 

[nabilexcel2007]

ah ok je l'ai adapter sur la feuille decharge et le resultat et bien mais a partir de A12 et non pas A4

 

[nabilexcel2007]

ça ne fonctionne pas!!!

 

[nabilexcel2007]

Je vais me débrouiller tout seul je vous remercie infiniment j'ai compris le principe vous êtes un ange

 

[nabilexcel2007]

Bonsoir au faite ça ne fonctionne pas la macro Ni dans la feuille de decharge ni dans la feuille de archive !!

 

[vgendron]

Si tu renvoies ton fichier sans aucune protection (code VBA et colonnes protégées), je te met les codes associés à chaque feuille

 

[nabilexcel2007]

ok Voici ma gestion des dossiers archive qui contient 20000 dossiers j’espère que vous allez comprendre le fonctionnement et Merci beaucoup ce classeur fonctionne parfaitement le seul problème il ya trop de formule c'est un peut lent et ça peux aller jusqu’à 40000 ou +

 

[nabilexcel2007]

Sieje qui est dans la feuille ETAT c'est le systeme le chiffre reel des dossiers stat