Comparer des valeurs dans deux différents classeurs
Bonjour,
En étant débutant en VBA j'ai ce petit problème :
j'ai un dossier qui s'appelle : ("POP A*** V2") et je vais travailler sur le classeur : ("CCARBM_**") dans ce classeur j'ai créer un bouton pour ouvrir le deuxiéme dossier ("BA_**_****") pour faire des recherches dedans donc l'objectif et de comparer les valeurs donc je veux le code il va allerchercher les valeurs que j'ai dans le : Worksheets("AD ***").Range("D10:D12").Value dans ("CCARBM_**").Range("S3:S24").Value et s'il trouve un de ces valeurs je veux que il met une alerte dans le Range("S3:S24") par exemple changement de couleur voilà !!
Espérons que j'étais clair sinon je reste entièrement à votre disposition pour que vous compreniez ce que je veux faire
Merci d'avance
Cdlt
Mon code :
Private Sub ***_**_**_Click()
Dim BA_**_**** As Workbook
Dim Nom_Fichier As Variant
Dim vData As Variant
Dim myrange As Variant
Dim Compid As Range
Nom_Fichier = "C:jjf.xlsx"
If Nom_Fichier <> False Then
Set AD_**_**** = Application.Workbooks.Open([Nom_Fichier])
AD_**_****.Worksheets("AD ***").Activate
vData = BA_**_****.Worksheets("AD ***").Range("D10:D12").Value
myrange = Workbooks("POP A*** V2").Worksheets("CCARBM_**").Range("S3:S24").Value
Set Compid = myrange.Find("vData", LookIn:=xlValue)
If Not Compid Is Nothing Then
Workbooks("MEC A320 V2").Worksheets("CCABM_NLG").Range("S3:S24").Interior.ColorIndex = 6
Else
MsgBox ("AD IS CHECKED WITH SUCCES")
End If
End If
ActiveWorkbook.Close savechanges:=False
End Sub
Hello,
Quelle est l'erreur ?
Je ne sais pas si c'est voulu, mais vous ne pouvez pas mettre des étoiles dans le nom d'une procédure, ni dans les noms de variables
Ça ne fonctionne comme je veux je demande d’aide svp
Non ils ne ya pas d’étoiles c’est moi qui a voulu le mettre ici