Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

comparer la valeur d'une cellule d'un classeur à une plage d'un autre classeur VBA ex

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion hking
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
H

hking

XLDnaute Nouveau
Bonjour à tous
J'ai deux classeurs ayant pour nom respectivement "inman" et "Rapport in".
Jai besoin de comparer la valeur de la cellule A1 du classeur "inmac" à la plage ("A2:AF2") du classeur "Rapport in" en VBA; si la valeur de A1 correspond à une valeur de la plage ("A2:AF2") alors qu'il affiche un message "ok".
Merci d'avance à tous et je conte sur votre réactivité.
Cdlt🙂!!!!!!!!!!!!
 
Trier par date Trier par votes
Re : comparer la valeur d'une cellule d'un classeur à une plage d'un autre classeur V



Bonjour,

un code est vraiment nécessaire ? Car une simple formule de calculs peut s'en acquitter …

​
 
Vote positif 0 Vote négatif
Re : comparer la valeur d'une cellule d'un classeur à une plage d'un autre classeur V

Bonjour hking, bienvenue sur XLD, salut Marc L,

Marc L à dit:
Car une simple formule de calculs peut s'en acquitter …
Cliquez pour agrandir...

Oui, et on a le choix entre SOMMEPROD et EQUIV.

Ouvrez les 2 classeurs et entrez dans la même feuille que la cellule A1 :

Code: 
=REPT("OK";SIGNE(SOMMEPROD(N('[Rapport in.xlsx]Feuil1'!$A$2:$AF$2=A1))))
ou encore :

Code: 
=REPT("OK";ESTNUM(EQUIV(A1;'[Rapport in.xlsx]Feuil1'!$A$2:$AF$2;0)))
On peut fermer Rapport in.xlsx : ces formules fonctionnent toujours.

A+
 
Vote positif 0 Vote négatif
Re : comparer la valeur d'une cellule d'un classeur à une plage d'un autre classeur V

Re,

En VBA on pourra pour tester utiliser l'une de ces deux macros :

Code: 
Sub Test1()
Dim f As String, e As Byte
f = ActiveSheet.Name
e = ExecuteExcel4Macro("SUMPRODUCT(N('" & f & "'!R1C1='" & _
  ThisWorkbook.Path & "\[Rapport in.xlsx]Feuil1'!R2C1:R2C32))")
If e Then MsgBox "OK"
End Sub


Sub Test2()
Dim f As String, e As Boolean
f = ActiveSheet.Name
e = ExecuteExcel4Macro("ISNUMBER(MATCH('" & f & "'!R1C1,'" & _
  ThisWorkbook.Path & "\[Rapport in.xlsx]Feuil1'!R2C1:R2C32,0))")
If e Then MsgBox "OK"
End Sub
Elles fonctionnent avec Rapport in.xlsx ouvert ou fermé.

Mais les 2 fichiers doivent être dans le même dossier (répertoire).

Bonne fin de soirée.
 
Vote positif 0 Vote négatif
Re : comparer la valeur d'une cellule d'un classeur à une plage d'un autre classeur V

Bonjour hking, le forum,

On peut mettre les macros dans un 3ème fichier "Fichier de test" :

Code: 
Sub Test1()
Dim chemin1$, fichier1$, feuille1$, adresse1$
Dim chemin2, fichier2$, feuille2$, adresse2$, cellule$, e As Byte
chemin1 = ThisWorkbook.Path 'à adapter
fichier1 = "inmac.xlsx"
feuille1 = "Ma feuille"
adresse1 = "R1C1"
chemin2 = ThisWorkbook.Path 'à adapter
fichier2 = "Rapport in.xlsx"
feuille2 = "Feuil1"
adresse2 = "R2C1:R2C32"
cellule = "'" & chemin1 & "\[" & fichier1 & "]" & feuille1 & "'!" & adresse1
e = ExecuteExcel4Macro("SUMPRODUCT(N(" & cellule & "='" & _
  chemin2 & "\[" & fichier2 & "]" & feuille2 & "'!" & adresse2 & "))")
MsgBox "'" & ExecuteExcel4Macro(cellule) & IIf(e, "' présent", "' absent")
End Sub


Sub Test2()
Dim chemin1$, fichier1$, feuille1$, adresse1$
Dim chemin2, fichier2$, feuille2$, adresse2$, cellule$, e As Boolean
chemin1 = ThisWorkbook.Path 'à adapter
fichier1 = "inmac.xlsx"
feuille1 = "Ma feuille"
adresse1 = "R1C1"
chemin2 = ThisWorkbook.Path 'à adapter
fichier2 = "Rapport in.xlsx"
feuille2 = "Feuil1"
adresse2 = "R2C1:R2C32"
cellule = "'" & chemin1 & "\[" & fichier1 & "]" & feuille1 & "'!" & adresse1
e = ExecuteExcel4Macro("ISNUMBER(MATCH(" & cellule & ",'" & _
  chemin2 & "\[" & fichier2 & "]" & feuille2 & "'!" & adresse2 & ",0))")
MsgBox "'" & ExecuteExcel4Macro(cellule) & IIf(e, "' présent", "' absent")
End Sub
Pour tester mettez les 3 fichiers joints dans le même dossier (le bureau).

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : comparer la valeur d'une cellule d'un classeur à une plage d'un autre classeur V

Bonjour tout le monde
Merci beaucoup pour les messages car ils m'ont été d'une très grande aide.
Thanks again🙂
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Question Question
Autres Sélectionner une plage de cellule en VBA
Réponses
9
Affichages
203
patricktoulon
D
  • Résolu(e)
Microsoft 365 vba récupérer valeur cellule d'une autre feuille
Réponses
3
Affichages
244
Diane272727
D
M
  • Résolu(e)
XL 2021 Récupérer la valeur d’une cellule dans un classeur fermé
Réponses
5
Affichages
231
patricktoulon
D
  • Résolu(e)
Microsoft 365 Récupérer la valeur d'une cellule d'un autre fichier
Réponses
7
Affichages
450
Diane272727
D
  • Résolu(e)
Autres Copier/ Coller plage de données dans une autre cellule d'un même onglet
Réponses
6
Affichages
354
fenec
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
525
safranien
S
P
  • Résolu(e)
Microsoft 365 Macro Excel pour effectuer des opérations sur les lignes et cellules adjacentes
2
Réponses
19
Affichages
541
Perceval973
P
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
452
sylvanu
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
1 K
fanfan38
M
  • Résolu(e)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
468
MANU64360
M
P
  • Résolu(e)
Microsoft 365 Rechercher une valeur d'une cellule à partir d'un nom de feuille
Réponses
2
Affichages
435
paulng
P
J
  • Question Question
XL 2021 activesheet.shapes suivant la valeur d'une cellule
Réponses
5
Affichages
218
JUAN45
J
B
  • Question Question
XL 2016 Ramener une plage de données en fonction d'une cellule
Réponses
11
Affichages
591
JHA
J
I
  • Résolu(e)
Microsoft 365 Exécuter une macro en fonction de la valeur d'une cellule
Réponses
12
Affichages
782
iliess
I
C
  • Résolu(e)
XL 2016 Propriété pour déterminer si la sélection correspond à une plage de cellules
Réponses
2
Affichages
185
crocrocro
C
K
  • Question Question
Microsoft 365 vba :Vlookup + incrémentation d'une plage de donnée
Réponses
1
Affichages
377
vgendron
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
M
  • Question Question
Microsoft 365 VBA copier des données d'un classeur à un autre
Réponses
4
Affichages
2 K
sylvanu
N
  • Question Question
XL 2013 Fixer la valeur d'une cellule saisie en fonction d'un nombre de décimal défini
Réponses
6
Affichages
411
mapomme
C
  • Résolu(e)
XL 2016 Formule de calcul de la somme conditionnée des écarts d'une plage par rapport à une valeur témoin
Réponses
3
Affichages
272
crocrocro
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…