Macro : Vba : insérer un message texte si 2 cellules identiques
Fermé
glnmchl
Messages postés
23
Date d'inscription
jeudi 26 février 2015
Statut
Membre
Dernière intervention
19 janvier 2018
-
Modifié par glnmchl le 26/02/2015 à 13:57
glnmchl Messages postés 23 Date d'inscription jeudi 26 février 2015 Statut Membre Dernière intervention 19 janvier 2018 - 23 mars 2015 à 09:46
glnmchl Messages postés 23 Date d'inscription jeudi 26 février 2015 Statut Membre Dernière intervention 19 janvier 2018 - 23 mars 2015 à 09:46
A voir également:
- Macro : Vba : insérer un message texte si 2 cellules identiques
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
- Macro souris ✓ - Forum Windows
3 réponses
via55
Messages postés
14399
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
16 avril 2024
2 701
26 févr. 2015 à 14:12
26 févr. 2015 à 14:12
Bonjour
Pour appliquer une fonction Excel en VBA il faut passer par Application.WorksheetFunction suivi du nom de la fonction en anglais et des arguments entre parenthèses
exemple :
ch=Application.WorksheetFunction.VLookup(sheets("Feuil1").Range("C3"),Sheets("Feuil2").Range("B2:E100"),4,0)
correspond à la formule que tu mettrais dans une cellule:
=RECHERCHEV(Feuil1!C3;Feuil2!B2:E100,4,0)
Cdlmnt
Pour appliquer une fonction Excel en VBA il faut passer par Application.WorksheetFunction suivi du nom de la fonction en anglais et des arguments entre parenthèses
exemple :
ch=Application.WorksheetFunction.VLookup(sheets("Feuil1").Range("C3"),Sheets("Feuil2").Range("B2:E100"),4,0)
correspond à la formule que tu mettrais dans une cellule:
=RECHERCHEV(Feuil1!C3;Feuil2!B2:E100,4,0)
Cdlmnt
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
26 févr. 2015 à 14:16
26 févr. 2015 à 14:16
Bonjour,
Tu n'as peut-être pas besoin d'utiliser VBA pour cela.
En F2, tu places la formule :
et tu tires cette formule vers le bas.
A+
Tu n'as peut-être pas besoin d'utiliser VBA pour cela.
En F2, tu places la formule :
=SI(NB.SI.ENS(Feuil2!$B$2:$B$1000;C2;Feuil2!$C$2:$C$1000;"<>")>0;"ATTENTION";"")
et tu tires cette formule vers le bas.
A+
glnmchl
Messages postés
23
Date d'inscription
jeudi 26 février 2015
Statut
Membre
Dernière intervention
19 janvier 2018
26 févr. 2015 à 14:47
26 févr. 2015 à 14:47
Bonjour Gyrus !
Ca semble marcher, je vais vérifier tout ça.
Ca m'enlève une sacrée épine du pied !
Bonne journée :)
Ca semble marcher, je vais vérifier tout ça.
Ca m'enlève une sacrée épine du pied !
Bonne journée :)
Zoul67
Messages postés
1959
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
30 janvier 2023
149
26 févr. 2015 à 14:17
26 févr. 2015 à 14:17
Bonjour,
C'est quoi, une "quantité inhérente" ?
A+
C'est quoi, une "quantité inhérente" ?
A+
glnmchl
Messages postés
23
Date d'inscription
jeudi 26 février 2015
Statut
Membre
Dernière intervention
19 janvier 2018
26 févr. 2015 à 14:37
26 févr. 2015 à 14:37
Bonjour Zoul67
une quantité qui est liée à la cellule
une quantité qui est liée à la cellule
26 févr. 2015 à 14:21
Pour globaliser à l'ensemble de de la colonne C (de C2 à Cx) comment procède t'on ? Le 4 ici correspond à la colonne E ? (donc 5?) ou alors je me trompe peut être.
Je te remercie !
Modifié par via55 le 26/02/2015 à 14:49
D'abord considère la remarque de Gyrus, que je salue au passage, pas forcément besoin de VBA, cela peut être géré par formules
Néanmoins si tu veux en VBA :
Pour globaliser à l'ensemble il te faut faire une boucle For Next de 2 à x
Le 4 correspond à la 4eme colonne de la plage B2:E100 soit bien la E
Cela pourrait donner quelque chose comme ceci (à adapter concernant les n°s de dernière ligne de chaque plage
Sub comparaison() For n = 2 To 200 'boucle sur les lignes 2 à 200 en 1 A adapter On Error GoTo erreur ch = Application.WorksheetFunction.VLookup(Sheets("Feuil1").Range("C" & n), Sheets("Feuil2").Range("B2:E100"), 4, 0) 'plage à adapter If ch <> "" Then Sheets("Feuil1").Range("F" & n) = "Attention" erreur: Next n End subCdlmnt
23 mars 2015 à 09:46