Recerchev en vba

vgendron

XLDnaute Barbatruc

• 25 Avril 2019

• #2

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

 

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 25 Avril 2019

• #3

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

 

Pièces jointes

• Medea1.xlsm

  2.1 MB · Affichages: 6

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 25 Avril 2019

• #4

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

 

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 25 Avril 2019

• #5

Ayy désole désole

 

Pièces jointes

• Medea1.xlsm

  2.1 MB · Affichages: 9

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 25 Avril 2019

• #6

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

VB:

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

 

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 25 Avril 2019

• #7

Merci beaucoup je vais l'essayer

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 25 Avril 2019

• #8

à adapter pour la feuille Archive

 

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 25 Avril 2019

• #9

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

 

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 25 Avril 2019

• #10

ça ne fonctionne pas!!!

 

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 25 Avril 2019

• #11

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

 

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 26 Avril 2019

• #12

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 26 Avril 2019

• #13

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

 

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 26 Avril 2019

• #14

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 +

 

Pièces jointes

• Entree-sortie.xlsm

  2 MB · Affichages: 8

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 26 Avril 2019

• #15

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

 

Vote positif 0 Vote négatif