Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel EQUIV EN VBA

EQUIV EN VBA

22 réponses
Avatar
Nadyajah
Bonjour,

Quelqu'un serait-t-il capable de traduire en VBA la formule ci-après :
=SI(ESTNA(EQUIV(H2&I2;CP_Ville;0));"CP ou ville inconnu";"")

Merci d'avance.

Nadyajah
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Nadyajah
Bonsoir Daniel,

En fait la fonction que je t'ai demandé n'a pas d'utilité dans mon fichier.
En effet, cela aurait copier la valeur de la cellule J2 vers le reste de la
colonne et non la formule.Voila pourquoi j'ai modifier ma demande.


Je ne dois pas avoir les yeux en face des trous, je ne trouve pas la ligne
de code....
Daniel
"Nadyajah" a écrit dans le message de
news:
Voici le fichier joint
http://cjoint.com/?cCvXjMGAg0
en espérant que cela sera plus compréhensible (j'en suis pas tellement
sure
mais bon .... !!) Merci d'avance

Nadyajah







Avatar
Daniel
Mais alors, c'est quoi, ta demande ? tu n'as rien demandé d'autre !
Daniel
"Nadyajah" a écrit dans le message de
news:
Bonsoir Daniel,

En fait la fonction que je t'ai demandé n'a pas d'utilité dans mon
fichier.
En effet, cela aurait copier la valeur de la cellule J2 vers le reste de
la
colonne et non la formule.Voila pourquoi j'ai modifier ma demande.


Je ne dois pas avoir les yeux en face des trous, je ne trouve pas la
ligne
de code....
Daniel
"Nadyajah" a écrit dans le message
de
news:
Voici le fichier joint
http://cjoint.com/?cCvXjMGAg0
en espérant que cela sera plus compréhensible (j'en suis pas tellement
sure
mais bon .... !!) Merci d'avance

Nadyajah









Avatar
Nadyajah
Je l'ai écrite à l'intérieur du fichier joint dans la feuille infos (désolée
oublié de préciser .....)


Mais alors, c'est quoi, ta demande ? tu n'as rien demandé d'autre !
Daniel
"Nadyajah" a écrit dans le message de
news:
Bonsoir Daniel,

En fait la fonction que je t'ai demandé n'a pas d'utilité dans mon
fichier.
En effet, cela aurait copier la valeur de la cellule J2 vers le reste de
la
colonne et non la formule.Voila pourquoi j'ai modifier ma demande.


Je ne dois pas avoir les yeux en face des trous, je ne trouve pas la
ligne
de code....
Daniel
"Nadyajah" a écrit dans le message
de
news:
Voici le fichier joint
http://cjoint.com/?cCvXjMGAg0
en espérant que cela sera plus compréhensible (j'en suis pas tellement
sure
mais bon .... !!) Merci d'avance

Nadyajah














Avatar
Daniel
Regarde la macro "test" du classeur :
http://cjoint.com/?cCx45kNbAt
Bonne nuit.
Daniel
"Nadyajah" a écrit dans le message de
news:
Je l'ai écrite à l'intérieur du fichier joint dans la feuille infos
(désolée
oublié de préciser .....)


Mais alors, c'est quoi, ta demande ? tu n'as rien demandé d'autre !
Daniel
"Nadyajah" a écrit dans le message
de
news:
Bonsoir Daniel,

En fait la fonction que je t'ai demandé n'a pas d'utilité dans mon
fichier.
En effet, cela aurait copier la valeur de la cellule J2 vers le reste
de
la
colonne et non la formule.Voila pourquoi j'ai modifier ma demande.


Je ne dois pas avoir les yeux en face des trous, je ne trouve pas la
ligne
de code....
Daniel
"Nadyajah" a écrit dans le
message
de
news:
Voici le fichier joint
http://cjoint.com/?cCvXjMGAg0
en espérant que cela sera plus compréhensible (j'en suis pas
tellement
sure
mais bon .... !!) Merci d'avance

Nadyajah
















Avatar
Nadyajah
Re,

Je ne comprends ce qui cloche. J'ai juste remplacer les J par DerCol mais
cela m'insère les informations dans les colonnes de la fin de la feuille....
J'abandonne pour ce soir il est tout de même 1h25 !!!!!
Je te joins mon fichier avec mon code. Encore merci de m'aider c'est
vraiment très sympa !!! J'attends avec grande impatience ta réponse !
Bonne nuit !
http://cjoint.com/?dbbwCldpiS


Regarde la macro "test" du classeur :
http://cjoint.com/?cCx45kNbAt
Bonne nuit.
Daniel
"Nadyajah" a écrit dans le message de
news:
Je l'ai écrite à l'intérieur du fichier joint dans la feuille infos
(désolée
oublié de préciser .....)


Mais alors, c'est quoi, ta demande ? tu n'as rien demandé d'autre !
Daniel
"Nadyajah" a écrit dans le message
de
news:
Bonsoir Daniel,

En fait la fonction que je t'ai demandé n'a pas d'utilité dans mon
fichier.
En effet, cela aurait copier la valeur de la cellule J2 vers le reste
de
la
colonne et non la formule.Voila pourquoi j'ai modifier ma demande.


Je ne dois pas avoir les yeux en face des trous, je ne trouve pas la
ligne
de code....
Daniel
"Nadyajah" a écrit dans le
message
de
news:
Voici le fichier joint
http://cjoint.com/?cCvXjMGAg0
en espérant que cela sera plus compréhensible (j'en suis pas
tellement
sure
mais bon .... !!) Merci d'avance

Nadyajah





















Avatar
Daniel
Ouf ! Plus c'est évident, moins on voit. J'ai remplacé Cells(c.Row & DerCol)
par Cells(c.Row, DerCol).
http://cjoint.com/?dbnFVIZusS
J'ai aussi modifié le calcul de la variable Ligne. Toutefois, s'il y a
plusieurs erreurs sur la même ligne seule la dernière anomalie est signalée.
On pourrait faire évoluer DerCol pour afficher tous les messages.
Cordialement.
Daniel
"Nadyajah" a écrit dans le message de
news:
Re,

Je ne comprends ce qui cloche. J'ai juste remplacer les J par DerCol mais
cela m'insère les informations dans les colonnes de la fin de la
feuille....
J'abandonne pour ce soir il est tout de même 1h25 !!!!!
Je te joins mon fichier avec mon code. Encore merci de m'aider c'est
vraiment très sympa !!! J'attends avec grande impatience ta réponse !
Bonne nuit !
http://cjoint.com/?dbbwCldpiS


Regarde la macro "test" du classeur :
http://cjoint.com/?cCx45kNbAt
Bonne nuit.
Daniel
"Nadyajah" a écrit dans le message
de
news:
Je l'ai écrite à l'intérieur du fichier joint dans la feuille infos
(désolée
oublié de préciser .....)


Mais alors, c'est quoi, ta demande ? tu n'as rien demandé d'autre !
Daniel
"Nadyajah" a écrit dans le
message
de
news:
Bonsoir Daniel,

En fait la fonction que je t'ai demandé n'a pas d'utilité dans mon
fichier.
En effet, cela aurait copier la valeur de la cellule J2 vers le
reste
de
la
colonne et non la formule.Voila pourquoi j'ai modifier ma demande.


Je ne dois pas avoir les yeux en face des trous, je ne trouve pas
la
ligne
de code....
Daniel
"Nadyajah" a écrit dans le
message
de
news:
Voici le fichier joint
http://cjoint.com/?cCvXjMGAg0
en espérant que cela sera plus compréhensible (j'en suis pas
tellement
sure
mais bon .... !!) Merci d'avance

Nadyajah























Avatar
Nadyajah
Merci Daniel pour ton aide ! Cela fonctionne à merveille.
Tu as raison pour l'information d'anomalie mais je ne voit pas comment faire
évoluer DerCol? Tu as une idée?


Ouf ! Plus c'est évident, moins on voit. J'ai remplacé Cells(c.Row & DerCol)
par Cells(c.Row, DerCol).
http://cjoint.com/?dbnFVIZusS
J'ai aussi modifié le calcul de la variable Ligne. Toutefois, s'il y a
plusieurs erreurs sur la même ligne seule la dernière anomalie est signalée.
On pourrait faire évoluer DerCol pour afficher tous les messages.
Cordialement.
Daniel
"Nadyajah" a écrit dans le message de
news:
Re,

Je ne comprends ce qui cloche. J'ai juste remplacer les J par DerCol mais
cela m'insère les informations dans les colonnes de la fin de la
feuille....
J'abandonne pour ce soir il est tout de même 1h25 !!!!!
Je te joins mon fichier avec mon code. Encore merci de m'aider c'est
vraiment très sympa !!! J'attends avec grande impatience ta réponse !
Bonne nuit !
http://cjoint.com/?dbbwCldpiS


Regarde la macro "test" du classeur :
http://cjoint.com/?cCx45kNbAt
Bonne nuit.
Daniel
"Nadyajah" a écrit dans le message
de
news:
Je l'ai écrite à l'intérieur du fichier joint dans la feuille infos
(désolée
oublié de préciser .....)


Mais alors, c'est quoi, ta demande ? tu n'as rien demandé d'autre !
Daniel
"Nadyajah" a écrit dans le
message
de
news:
Bonsoir Daniel,

En fait la fonction que je t'ai demandé n'a pas d'utilité dans mon
fichier.
En effet, cela aurait copier la valeur de la cellule J2 vers le
reste
de
la
colonne et non la formule.Voila pourquoi j'ai modifier ma demande.


Je ne dois pas avoir les yeux en face des trous, je ne trouve pas
la
ligne
de code....
Daniel
"Nadyajah" a écrit dans le
message
de
news:
Voici le fichier joint
http://cjoint.com/?cCvXjMGAg0
en espérant que cela sera plus compréhensible (j'en suis pas
tellement
sure
mais bon .... !!) Merci d'avance

Nadyajah




























Avatar
Daniel
Au lieu de :
If c.Offset(0, Adr1Col).Value = "" Then Cells(c.Row, DerCol) = "Adr1
manquant"
mettre :
If c.Offset(0, Adr1Col).Value = "" Then
Cells(c.Row, DerCol) = "Adr1 manquant"
DerCol = DerCol + 1
End If
pour chaque test, et à la fin des tests, réinitialiser :
DerCol = DerCol2 + 1

Daniel
"Nadyajah" a écrit dans le message de
news:
Merci Daniel pour ton aide ! Cela fonctionne à merveille.
Tu as raison pour l'information d'anomalie mais je ne voit pas comment
faire
évoluer DerCol? Tu as une idée?


Ouf ! Plus c'est évident, moins on voit. J'ai remplacé Cells(c.Row &
DerCol)
par Cells(c.Row, DerCol).
http://cjoint.com/?dbnFVIZusS
J'ai aussi modifié le calcul de la variable Ligne. Toutefois, s'il y a
plusieurs erreurs sur la même ligne seule la dernière anomalie est
signalée.
On pourrait faire évoluer DerCol pour afficher tous les messages.
Cordialement.
Daniel
"Nadyajah" a écrit dans le message
de
news:
Re,

Je ne comprends ce qui cloche. J'ai juste remplacer les J par DerCol
mais
cela m'insère les informations dans les colonnes de la fin de la
feuille....
J'abandonne pour ce soir il est tout de même 1h25 !!!!!
Je te joins mon fichier avec mon code. Encore merci de m'aider c'est
vraiment très sympa !!! J'attends avec grande impatience ta réponse !
Bonne nuit !
http://cjoint.com/?dbbwCldpiS


Regarde la macro "test" du classeur :
http://cjoint.com/?cCx45kNbAt
Bonne nuit.
Daniel
"Nadyajah" a écrit dans le
message
de
news:
Je l'ai écrite à l'intérieur du fichier joint dans la feuille infos
(désolée
oublié de préciser .....)


Mais alors, c'est quoi, ta demande ? tu n'as rien demandé d'autre !
Daniel
"Nadyajah" a écrit dans le
message
de
news:
Bonsoir Daniel,

En fait la fonction que je t'ai demandé n'a pas d'utilité dans
mon
fichier.
En effet, cela aurait copier la valeur de la cellule J2 vers le
reste
de
la
colonne et non la formule.Voila pourquoi j'ai modifier ma
demande.


Je ne dois pas avoir les yeux en face des trous, je ne trouve
pas
la
ligne
de code....
Daniel
"Nadyajah" a écrit dans le
message
de
news:
Voici le fichier joint
http://cjoint.com/?cCvXjMGAg0
en espérant que cela sera plus compréhensible (j'en suis pas
tellement
sure
mais bon .... !!) Merci d'avance

Nadyajah






























Avatar
Nadyajah
Bonsoir Daniel,

J'ai de nouveau une question sur mon fichier. En fait on en revient à ma
première question sur la fonction EQUIV en VBA. Je n'arrive pas à l'intégrer
à ma macro ...
Fichier joint :
http://cjoint.com/?dbxEqqIiE6

Merci encore.

Nadyajah
Avatar
Daniel
Bonsoir.
Tu t'emmêles un peu entre VilleCol et VilleCol2, de même pour le code postal
et peut-être pour le reste. Dans ta fonction IIf, la plage doit être
référencée Sheets("CP-Villes").Range("CP_VILLE") au lieu de CP_VILLE. Tu
cherches si le code postal ET la ville se trouvent dans cette plage.
Explique-moi ceque tu souhaites.
Daniel
"Nadyajah" a écrit dans le message de
news:
Bonsoir Daniel,

J'ai de nouveau une question sur mon fichier. En fait on en revient à ma
première question sur la fonction EQUIV en VBA. Je n'arrive pas à
l'intégrer
à ma macro ...
Fichier joint :
http://cjoint.com/?dbxEqqIiE6

Merci encore.

Nadyajah


1 2 3