Bonsoir. Var = IIf(IsNA(Application.Match([H2] & [I2], CP_Ville, 0)), "CP ou ville inconnu", "") renvoie dans "Var" la valeur "vraie" ou la valeur "fausse". Cordialement. Daniel "Nadyajah" a écrit dans le message de news:
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
Bonsoir.
Var = IIf(IsNA(Application.Match([H2] & [I2], CP_Ville, 0)), "CP ou ville
inconnu", "")
renvoie dans "Var" la valeur "vraie" ou la valeur "fausse".
Cordialement.
Daniel
"Nadyajah" <Nadyajah@discussions.microsoft.com> a écrit dans le message de
news: 727E79AA-80DF-4CBC-89F3-8DA4314BB82C@microsoft.com...
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";"")
Bonsoir. Var = IIf(IsNA(Application.Match([H2] & [I2], CP_Ville, 0)), "CP ou ville inconnu", "") renvoie dans "Var" la valeur "vraie" ou la valeur "fausse". Cordialement. Daniel "Nadyajah" a écrit dans le message de news:
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
Nadyajah
Il me répond pour "IsNA" => "Sub ou fonction non définie"
En fait je voudrais ecrire :
Dim CPCol As Long Dim VilleCol As Long
'CPCol & VilleCol sont les numéros de colonnes If Cells(2, CPCol) = "" Then ActiveCell.Value = "CP manquant" Else If Cells(2, VilleCol) = "" Then ActiveCell.Value = "Ville manquante" Else ActiveCell.Value = IIf(IsNA(Application.Match(Cells(2, CPCol) & Cells(2, VilleCol), CP_Ville, 0)), "CP ou ville inconnu ", "") End If End If
Bonsoir. Var = IIf(IsNA(Application.Match([H2] & [I2], CP_Ville, 0)), "CP ou ville inconnu", "") renvoie dans "Var" la valeur "vraie" ou la valeur "fausse". Cordialement. Daniel "Nadyajah" a écrit dans le message de news:
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
Il me répond pour "IsNA" => "Sub ou fonction non définie"
En fait je voudrais ecrire :
Dim CPCol As Long
Dim VilleCol As Long
'CPCol & VilleCol sont les numéros de colonnes
If Cells(2, CPCol) = "" Then
ActiveCell.Value = "CP manquant"
Else
If Cells(2, VilleCol) = "" Then
ActiveCell.Value = "Ville manquante"
Else
ActiveCell.Value =
IIf(IsNA(Application.Match(Cells(2, CPCol) & Cells(2, VilleCol), CP_Ville,
0)), "CP ou ville inconnu ", "")
End If
End If
Bonsoir.
Var = IIf(IsNA(Application.Match([H2] & [I2], CP_Ville, 0)), "CP ou ville
inconnu", "")
renvoie dans "Var" la valeur "vraie" ou la valeur "fausse".
Cordialement.
Daniel
"Nadyajah" <Nadyajah@discussions.microsoft.com> a écrit dans le message de
news: 727E79AA-80DF-4CBC-89F3-8DA4314BB82C@microsoft.com...
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";"")
Il me répond pour "IsNA" => "Sub ou fonction non définie"
En fait je voudrais ecrire :
Dim CPCol As Long Dim VilleCol As Long
'CPCol & VilleCol sont les numéros de colonnes If Cells(2, CPCol) = "" Then ActiveCell.Value = "CP manquant" Else If Cells(2, VilleCol) = "" Then ActiveCell.Value = "Ville manquante" Else ActiveCell.Value = IIf(IsNA(Application.Match(Cells(2, CPCol) & Cells(2, VilleCol), CP_Ville, 0)), "CP ou ville inconnu ", "") End If End If
Bonsoir. Var = IIf(IsNA(Application.Match([H2] & [I2], CP_Ville, 0)), "CP ou ville inconnu", "") renvoie dans "Var" la valeur "vraie" ou la valeur "fausse". Cordialement. Daniel "Nadyajah" a écrit dans le message de news:
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
Daniel
Désolé. Var = IIf(WorksheetFunction.IsNA(Application.Match([H2] & [I2], CP_Ville, 0)), "CP ou ville inconnu", "") Daniel "Nadyajah" a écrit dans le message de news:
Il me répond pour "IsNA" => "Sub ou fonction non définie"
En fait je voudrais ecrire :
Dim CPCol As Long Dim VilleCol As Long
'CPCol & VilleCol sont les numéros de colonnes If Cells(2, CPCol) = "" Then ActiveCell.Value = "CP manquant" Else If Cells(2, VilleCol) = "" Then ActiveCell.Value = "Ville manquante" Else ActiveCell.Value > IIf(IsNA(Application.Match(Cells(2, CPCol) & Cells(2, VilleCol), CP_Ville, 0)), "CP ou ville inconnu ", "") End If End If
Bonsoir. Var = IIf(IsNA(Application.Match([H2] & [I2], CP_Ville, 0)), "CP ou ville inconnu", "") renvoie dans "Var" la valeur "vraie" ou la valeur "fausse". Cordialement. Daniel "Nadyajah" a écrit dans le message de news:
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
Désolé.
Var = IIf(WorksheetFunction.IsNA(Application.Match([H2] & [I2],
CP_Ville, 0)), "CP ou ville inconnu", "")
Daniel
"Nadyajah" <Nadyajah@discussions.microsoft.com> a écrit dans le message de
news: BEFD15CC-7318-45BE-A0F5-8FD79BBD8E47@microsoft.com...
Il me répond pour "IsNA" => "Sub ou fonction non définie"
En fait je voudrais ecrire :
Dim CPCol As Long
Dim VilleCol As Long
'CPCol & VilleCol sont les numéros de colonnes
If Cells(2, CPCol) = "" Then
ActiveCell.Value = "CP manquant"
Else
If Cells(2, VilleCol) = "" Then
ActiveCell.Value = "Ville manquante"
Else
ActiveCell.Value > IIf(IsNA(Application.Match(Cells(2, CPCol) & Cells(2, VilleCol), CP_Ville,
0)), "CP ou ville inconnu ", "")
End If
End If
Bonsoir.
Var = IIf(IsNA(Application.Match([H2] & [I2], CP_Ville, 0)), "CP ou
ville
inconnu", "")
renvoie dans "Var" la valeur "vraie" ou la valeur "fausse".
Cordialement.
Daniel
"Nadyajah" <Nadyajah@discussions.microsoft.com> a écrit dans le message
de
news: 727E79AA-80DF-4CBC-89F3-8DA4314BB82C@microsoft.com...
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";"")
Désolé. Var = IIf(WorksheetFunction.IsNA(Application.Match([H2] & [I2], CP_Ville, 0)), "CP ou ville inconnu", "") Daniel "Nadyajah" a écrit dans le message de news:
Il me répond pour "IsNA" => "Sub ou fonction non définie"
En fait je voudrais ecrire :
Dim CPCol As Long Dim VilleCol As Long
'CPCol & VilleCol sont les numéros de colonnes If Cells(2, CPCol) = "" Then ActiveCell.Value = "CP manquant" Else If Cells(2, VilleCol) = "" Then ActiveCell.Value = "Ville manquante" Else ActiveCell.Value > IIf(IsNA(Application.Match(Cells(2, CPCol) & Cells(2, VilleCol), CP_Ville, 0)), "CP ou ville inconnu ", "") End If End If
Bonsoir. Var = IIf(IsNA(Application.Match([H2] & [I2], CP_Ville, 0)), "CP ou ville inconnu", "") renvoie dans "Var" la valeur "vraie" ou la valeur "fausse". Cordialement. Daniel "Nadyajah" a écrit dans le message de news:
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
Nadyajah
Merci Daniel ! Cela fonctione à merveille. Par contre saurais-tu comment copier coller ma formule jusqu'au bas de ma feuille? Je connais cette fonction mais ma colonne s'appele "DerCol" et non "AA" comment modifier la fonction suivante ?
Merci Daniel !
Cela fonctione à merveille.
Par contre saurais-tu comment copier coller ma formule jusqu'au bas de ma
feuille?
Je connais cette fonction mais ma colonne s'appele "DerCol" et non "AA"
comment modifier la fonction suivante ?
Merci Daniel ! Cela fonctione à merveille. Par contre saurais-tu comment copier coller ma formule jusqu'au bas de ma feuille? Je connais cette fonction mais ma colonne s'appele "DerCol" et non "AA" comment modifier la fonction suivante ?
Var = IIf(IsError(Application.Match([H2] & [I2], Range("CP_Ville"), 0)), _ "CP ou ville inconnu ", "")
--
HTH
Bob Phillips
(remove nothere from the email address if mailing direct)
"Daniel" wrote in message news:u2ZEIP$
Désolé. Var = IIf(WorksheetFunction.IsNA(Application.Match([H2] & [I2], CP_Ville, 0)), "CP ou ville inconnu", "") Daniel "Nadyajah" a écrit dans le message de news:
Il me répond pour "IsNA" => "Sub ou fonction non définie"
En fait je voudrais ecrire :
Dim CPCol As Long Dim VilleCol As Long
'CPCol & VilleCol sont les numéros de colonnes If Cells(2, CPCol) = "" Then ActiveCell.Value = "CP manquant" Else If Cells(2, VilleCol) = "" Then ActiveCell.Value = "Ville manquante" Else ActiveCell.Value > > IIf(IsNA(Application.Match(Cells(2, CPCol) & Cells(2, VilleCol), CP_Ville,
0)), "CP ou ville inconnu ", "") End If End If
Bonsoir. Var = IIf(IsNA(Application.Match([H2] & [I2], CP_Ville, 0)), "CP ou ville inconnu", "") renvoie dans "Var" la valeur "vraie" ou la valeur "fausse". Cordialement. Daniel "Nadyajah" a écrit dans le message de news:
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
ou peut-être
Var = IIf(IsError(Application.Match([H2] & [I2], Range("CP_Ville"), 0)), _
"CP ou ville inconnu ", "")
--
HTH
Bob Phillips
(remove nothere from the email address if mailing direct)
"Daniel" <dZZZcolardelle@free.fr> wrote in message
news:u2ZEIP$OGHA.456@TK2MSFTNGP15.phx.gbl...
Désolé.
Var = IIf(WorksheetFunction.IsNA(Application.Match([H2] & [I2],
CP_Ville, 0)), "CP ou ville inconnu", "")
Daniel
"Nadyajah" <Nadyajah@discussions.microsoft.com> a écrit dans le message de
news: BEFD15CC-7318-45BE-A0F5-8FD79BBD8E47@microsoft.com...
Il me répond pour "IsNA" => "Sub ou fonction non définie"
En fait je voudrais ecrire :
Dim CPCol As Long
Dim VilleCol As Long
'CPCol & VilleCol sont les numéros de colonnes
If Cells(2, CPCol) = "" Then
ActiveCell.Value = "CP manquant"
Else
If Cells(2, VilleCol) = "" Then
ActiveCell.Value = "Ville manquante"
Else
ActiveCell.Value > > IIf(IsNA(Application.Match(Cells(2, CPCol) & Cells(2, VilleCol),
CP_Ville,
0)), "CP ou ville inconnu ", "")
End If
End If
Bonsoir.
Var = IIf(IsNA(Application.Match([H2] & [I2], CP_Ville, 0)), "CP ou
ville
inconnu", "")
renvoie dans "Var" la valeur "vraie" ou la valeur "fausse".
Cordialement.
Daniel
"Nadyajah" <Nadyajah@discussions.microsoft.com> a écrit dans le message
de
news: 727E79AA-80DF-4CBC-89F3-8DA4314BB82C@microsoft.com...
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";"")
Var = IIf(IsError(Application.Match([H2] & [I2], Range("CP_Ville"), 0)), _ "CP ou ville inconnu ", "")
--
HTH
Bob Phillips
(remove nothere from the email address if mailing direct)
"Daniel" wrote in message news:u2ZEIP$
Désolé. Var = IIf(WorksheetFunction.IsNA(Application.Match([H2] & [I2], CP_Ville, 0)), "CP ou ville inconnu", "") Daniel "Nadyajah" a écrit dans le message de news:
Il me répond pour "IsNA" => "Sub ou fonction non définie"
En fait je voudrais ecrire :
Dim CPCol As Long Dim VilleCol As Long
'CPCol & VilleCol sont les numéros de colonnes If Cells(2, CPCol) = "" Then ActiveCell.Value = "CP manquant" Else If Cells(2, VilleCol) = "" Then ActiveCell.Value = "Ville manquante" Else ActiveCell.Value > > IIf(IsNA(Application.Match(Cells(2, CPCol) & Cells(2, VilleCol), CP_Ville,
0)), "CP ou ville inconnu ", "") End If End If
Bonsoir. Var = IIf(IsNA(Application.Match([H2] & [I2], CP_Ville, 0)), "CP ou ville inconnu", "") renvoie dans "Var" la valeur "vraie" ou la valeur "fausse". Cordialement. Daniel "Nadyajah" a écrit dans le message de news:
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
Daniel
Bonjour. Essaie : Selection.AutoFill Destination:=Range("DerCol"), Type:=xlFillDefault Cordialement. Daniel "Nadyajah" a écrit dans le message de news:
Merci Daniel ! Cela fonctione à merveille. Par contre saurais-tu comment copier coller ma formule jusqu'au bas de ma feuille? Je connais cette fonction mais ma colonne s'appele "DerCol" et non "AA" comment modifier la fonction suivante ?
Bonjour.
Essaie :
Selection.AutoFill Destination:=Range("DerCol"), Type:=xlFillDefault
Cordialement.
Daniel
"Nadyajah" <Nadyajah@discussions.microsoft.com> a écrit dans le message de
news: 5F288569-734E-4D63-B1E3-6575A71CEC81@microsoft.com...
Merci Daniel !
Cela fonctione à merveille.
Par contre saurais-tu comment copier coller ma formule jusqu'au bas de ma
feuille?
Je connais cette fonction mais ma colonne s'appele "DerCol" et non "AA"
comment modifier la fonction suivante ?
Bonjour. Essaie : Selection.AutoFill Destination:=Range("DerCol"), Type:=xlFillDefault Cordialement. Daniel "Nadyajah" a écrit dans le message de news:
Merci Daniel ! Cela fonctione à merveille. Par contre saurais-tu comment copier coller ma formule jusqu'au bas de ma feuille? Je connais cette fonction mais ma colonne s'appele "DerCol" et non "AA" comment modifier la fonction suivante ?
Cela ne fonctionne pas. Il me dit La méthode 'Range' de l'objet '_Global' a échoué.
.......................???????
Bonjour. Essaie : Selection.AutoFill Destination:=Range("DerCol"), Type:=xlFillDefault Cordialement. Daniel "Nadyajah" a écrit dans le message de news:
Merci Daniel ! Cela fonctione à merveille. Par contre saurais-tu comment copier coller ma formule jusqu'au bas de ma feuille? Je connais cette fonction mais ma colonne s'appele "DerCol" et non "AA" comment modifier la fonction suivante ?
Cela ne fonctionne pas. Il me dit
La méthode 'Range' de l'objet '_Global' a échoué.
.......................???????
Bonjour.
Essaie :
Selection.AutoFill Destination:=Range("DerCol"), Type:=xlFillDefault
Cordialement.
Daniel
"Nadyajah" <Nadyajah@discussions.microsoft.com> a écrit dans le message de
news: 5F288569-734E-4D63-B1E3-6575A71CEC81@microsoft.com...
Merci Daniel !
Cela fonctione à merveille.
Par contre saurais-tu comment copier coller ma formule jusqu'au bas de ma
feuille?
Je connais cette fonction mais ma colonne s'appele "DerCol" et non "AA"
comment modifier la fonction suivante ?
Cela ne fonctionne pas. Il me dit La méthode 'Range' de l'objet '_Global' a échoué.
.......................???????
Bonjour. Essaie : Selection.AutoFill Destination:=Range("DerCol"), Type:=xlFillDefault Cordialement. Daniel "Nadyajah" a écrit dans le message de news:
Merci Daniel ! Cela fonctione à merveille. Par contre saurais-tu comment copier coller ma formule jusqu'au bas de ma feuille? Je connais cette fonction mais ma colonne s'appele "DerCol" et non "AA" comment modifier la fonction suivante ?
Bonjour. Quelle est le plage de cellules sélectionnée ? Cordialement. Daniel "Nadyajah" a écrit dans le message de news:
Bonjour Daniel,
Cela ne fonctionne pas. Il me dit La méthode 'Range' de l'objet '_Global' a échoué.
.......................???????
Bonjour. Essaie : Selection.AutoFill Destination:=Range("DerCol"), Type:=xlFillDefault Cordialement. Daniel "Nadyajah" a écrit dans le message de news:
Merci Daniel ! Cela fonctione à merveille. Par contre saurais-tu comment copier coller ma formule jusqu'au bas de ma feuille? Je connais cette fonction mais ma colonne s'appele "DerCol" et non "AA" comment modifier la fonction suivante ?
Bonjour.
Quelle est le plage de cellules sélectionnée ?
Cordialement.
Daniel
"Nadyajah" <Nadyajah@discussions.microsoft.com> a écrit dans le message de
news: F33CD3DA-EFA8-46F3-86A7-A6CF60330532@microsoft.com...
Bonjour Daniel,
Cela ne fonctionne pas. Il me dit
La méthode 'Range' de l'objet '_Global' a échoué.
.......................???????
Bonjour.
Essaie :
Selection.AutoFill Destination:=Range("DerCol"), Type:=xlFillDefault
Cordialement.
Daniel
"Nadyajah" <Nadyajah@discussions.microsoft.com> a écrit dans le message
de
news: 5F288569-734E-4D63-B1E3-6575A71CEC81@microsoft.com...
Merci Daniel !
Cela fonctione à merveille.
Par contre saurais-tu comment copier coller ma formule jusqu'au bas de
ma
feuille?
Je connais cette fonction mais ma colonne s'appele "DerCol" et non "AA"
comment modifier la fonction suivante ?
Bonjour. Quelle est le plage de cellules sélectionnée ? Cordialement. Daniel "Nadyajah" a écrit dans le message de news:
Bonjour Daniel,
Cela ne fonctionne pas. Il me dit La méthode 'Range' de l'objet '_Global' a échoué.
.......................???????
Bonjour. Essaie : Selection.AutoFill Destination:=Range("DerCol"), Type:=xlFillDefault Cordialement. Daniel "Nadyajah" a écrit dans le message de news:
Merci Daniel ! Cela fonctione à merveille. Par contre saurais-tu comment copier coller ma formule jusqu'au bas de ma feuille? Je connais cette fonction mais ma colonne s'appele "DerCol" et non "AA" comment modifier la fonction suivante ?
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
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
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
Daniel
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
Je ne dois pas avoir les yeux en face des trous, je ne trouve pas la ligne
de code....
Daniel
"Nadyajah" <Nadyajah@discussions.microsoft.com> a écrit dans le message de
news: 40AC6D9A-057A-4785-BE50-E0F72B2BAE6D@microsoft.com...
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
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
