Aide Excel

Forum d'aide et d'entraide sur Excel : cours, astuces, tutoriaux...
 
AccueilPortailFAQRechercherS'enregistrerMembresGroupesConnexion

Partagez | 
 

 macro recherche information dans autre classeur et la colle

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Lison Lisette
Membre


Nombre de messages : 8
Date d'inscription : 22/06/2010

MessageSujet: macro recherche information dans autre classeur et la colle   Ven 15 Oct à 17:21

Bonjour…

J’éprouve quelques difficultés à me faire comprendre par VBA…

Je m’explique.

J’ai deux fichiers :
- un fichier « BDD » = une base de données
- un fichier de travail à remplir

J’aimerais que la macro «scanne» la deuxième colonne du fichier de travail «à compléter », et qu'elle recherche dans BDD ce qu'elle y trouve
- Si elle trouve un identifiant correspondant dans la BDD (rechercher dans la colonne 1), insérer en vert toutes les lignes de la BDD correspondante juste au-dessus de cet identifiant dans le fichier de travail
- Si elle ne trouve pas l’identifiant dans la BDD, mettre en rouge

Code :
Citation :
Sub Démo_test_comparaison_BDD()

Application.ScreenUpdating = False

'Macro recherche de correspondances dans la BDD

Dim Kol As New Collection
Dim LastLig1 As Long, LastLig2 As Long, i As Long
Dim c As Range

'mémoriser tous les ID de la feuille de travail à compléter
With Sheets("A compléter")
.AutoFilterMode = False
LastLig2 = .Cells(Rows.Count, 2).End(xlUp).Row

For i = 2 To LastLig2
On Error Resume Next
Kol.Add .Range("A" & i).Value, .Range("A" & i).Value
On Error GoTo 0
Next i

'recherche de l'élément dans la feuille BDD
For i = 1 To Kol.Count
With Sheets("BDD")
.AutoFilterMode = False
LastLig1 = .Cells(Rows.Count, 1).End(xlUp).Row
End With
.Range("A1").AutoFilter field:=1, Criteria1:=Kol(i)
Set c = Sheets("BDD").Range("A1:A" & LastLig1).Find(Kol(i), lookat:=xlWhole)

'dans le cas ou l'id existe dans la BDD, le colorier en vert et le copier dans la feuille de calcul

'...comment faire insérer toutes ces lignes non pas à la fin du code mais juste en dessus de l'identifiant en question ?
If Not c Is Nothing Then
Sheets("BDD").Range("A1").AutoFilter field:=1, Criteria1:=Kol(i)

.Range("A2:L" & LastLig2).SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 4
.Range("A2:L" & LastLig2).SpecialCells(xlCellTypeVisible).Copy Sheets("A compléter").Range("B" & LastLig1 + 1)
Set c = Nothing

'dans le cas ou il n'existe pas, mettre la la cellule de l'id en rouge dans le formulaire
Else
.Range("A2").SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 3
End If
Next i
.AutoFilterMode = False
End With
Sheets("BDD").AutoFilterMode = False

End Sub


Problème 1 : la question est dans le code

Problème 2 : cette macro s'applique à deux feuilles dans un même classeur, il suffit de rajouter worksheets("gffdg") devant chaque sheets("qqch")
pour que ça marche entre deux classeurs différents ? Mais comment faire dans le cas ou les classeurs ont des noms différents à chaque fois ? Je pense que la macro sera liée au fichier "BDD" donc pour ce classeur il faudrait mettre ActiveWorksheet.Sheet("qqch") ? Il existe une possibilité en VBA de faire ouvrir à l'utilisateur une msgbox ou il irait chercher le deuxième fichier (genre le fameux parcourir...) et enregistrer le nom du fichier à ce moment là ?

Problème 3 : Pourquoi cette macro ne fonctionne pas en l'état actuel, mais ne m'envoie aucun msg d'erreur (et me laisse donc un peu dans le flou sur comment résoudre le problème !)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
macro recherche information dans autre classeur et la colle
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [RESOLU] Moteur de recherche Google dans Chrome
» Mettre une phrase prédéfinie dans le module de recherche
» Désactiver le html
» Problème Youtube sur page accueil
» Mettre les partitions musicales notices.....en numérique?

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Aide Excel :: Entraide & apprentissage :: A l'aide...-
Sauter vers: