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 Vérification des derniers caractères d'une cellule

Vérification des derniers caractères d'une cellule

22 réponses
Avatar
Nito
Bonjour à tous,

En Excel 2000.
Je demeure au Canada où les numéros de téléphone ont 10 chiffres agrémentés
de
2 traits d'union comme l'exemple ci-dessous:

123-456-7890

J'aurais besoin d'une procédure pour vérifier que le format des douze (12)
derniers caractères
d'une cellule correspond au format de la cellule citée en exemple ci-dessus.

Du genre:

if "le format des 12 derniers caractères de ma cellule" = "le format de la
cellule-témoin" then
bla-bla
end if



Une âme charitable aurait-elle une solution?

Merci à l'avance


Nito
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
Youky
un peu de macro....ici le N° en E3
Youky

num = Right([E3], 12)
If IsNumeric(Left(num, 3)) Then n = n + 1
If IsNumeric(Mid(num, 5, 3)) Then n = n + 1
If IsNumeric(Right(num, 4)) Then n = n + 1
If Mid(num, 4, 1) = "-" Then n = n + 1
If Mid(num, 8, 1) = "-" Then n = n + 1
If n <> 5 Then MsgBox "pas bon"

"Nito" a écrit dans le message de news:
%
Bonjour à tous,

En Excel 2000.
Je demeure au Canada où les numéros de téléphone ont 10 chiffres
agrémentés de
2 traits d'union comme l'exemple ci-dessous:

123-456-7890

J'aurais besoin d'une procédure pour vérifier que le format des douze (12)
derniers caractères
d'une cellule correspond au format de la cellule citée en exemple
ci-dessus.

Du genre:

if "le format des 12 derniers caractères de ma cellule" = "le format de
la cellule-témoin" then
bla-bla
end if



Une âme charitable aurait-elle une solution?

Merci à l'avance


Nito



Avatar
dre
Salut,

Une MFC ne suffit-elle pas ?
La formule est :
(STXT(A1;4;1)="-")*(STXT(A1;8;1)="-")*(NBCAR(A1)*(ESTNUM(SUBSTITUE(A1;"-";"")*1)))=0

Â+




Bonjour à tous,

En Excel 2000.
Je demeure au Canada où les numéros de téléphone ont 10 chiffres agrémentés
de
2 traits d'union comme l'exemple ci-dessous:

123-456-7890

J'aurais besoin d'une procédure pour vérifier que le format des douze (12)
derniers caractères
d'une cellule correspond au format de la cellule citée en exemple ci-dessus.

Du genre:

if "le format des 12 derniers caractères de ma cellule" = "le format de la
cellule-témoin" then
bla-bla
end if



Une âme charitable aurait-elle une solution?

Merci à l'avance


Nito





Avatar
Nito
Merci pour votre aide,

En fait, ce que j'ai besoin, c'est une procédure qui me permette de
vérifier que les 12 derniers caractères de la cellule active forment un
numéro de téléphone
du format 123-456-7890


Restaurant Cabobobod - 417-600-4013
Rôtisserie Coq - 345-300-5098
Catégorie: Restaurants, traiteurs

Dans la plage de 3 cellules ci-dessus, seules les 12 derniers caractères des
cellules 1 et 2 correspondent
à ma condition.

if "le format des 12 derniers caractères de la cellule active" = "le
format des 12 derniers caractères de la
cellule-témoin" then
bla-bla
end if

Merci

Nito





"dre" a écrit dans le message de news:

Salut,

Une MFC ne suffit-elle pas ?
La formule est :
(STXT(A1;4;1)="-")*(STXT(A1;8;1)="-")*(NBCAR(A1)*(ESTNUM(SUBSTITUE(A1;"-";"")*1)))=0

Â+




Bonjour à tous,

En Excel 2000.
Je demeure au Canada où les numéros de téléphone ont 10 chiffres
agrémentés
de
2 traits d'union comme l'exemple ci-dessous:

123-456-7890

J'aurais besoin d'une procédure pour vérifier que le format des douze
(12)
derniers caractères
d'une cellule correspond au format de la cellule citée en exemple
ci-dessus.

Du genre:

if "le format des 12 derniers caractères de ma cellule" = "le format de
la
cellule-témoin" then
bla-bla
end if



Une âme charitable aurait-elle une solution?

Merci à l'avance


Nito







Avatar
Pierre Fauconnier
Bonsoir

Peut-être ceci
=(ET(ESTNUM(SUBSTITUE(DROITE(A1;12);"-";"")*1);GAUCHE(DROITE(A1;5);1)="-";GAUCHE(DROITE(A1;9);1)="-"))

Ok?

--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Nito" a écrit dans le message de news:

Merci pour votre aide,

En fait, ce que j'ai besoin, c'est une procédure qui me permette de
vérifier que les 12 derniers caractères de la cellule active forment un
numéro de téléphone
du format 123-456-7890


Restaurant Cabobobod - 417-600-4013
Rôtisserie Coq - 345-300-5098
Catégorie: Restaurants, traiteurs

Dans la plage de 3 cellules ci-dessus, seules les 12 derniers caractères
des cellules 1 et 2 correspondent
à ma condition.

if "le format des 12 derniers caractères de la cellule active" = "le
format des 12 derniers caractères de la
cellule-témoin" then
bla-bla
end if

Merci

Nito





"dre" a écrit dans le message de news:

Salut,

Une MFC ne suffit-elle pas ?
La formule est :
(STXT(A1;4;1)="-")*(STXT(A1;8;1)="-")*(NBCAR(A1)*(ESTNUM(SUBSTITUE(A1;"-";"")*1)))=0

Â+




Bonjour à tous,

En Excel 2000.
Je demeure au Canada où les numéros de téléphone ont 10 chiffres
agrémentés
de
2 traits d'union comme l'exemple ci-dessous:

123-456-7890

J'aurais besoin d'une procédure pour vérifier que le format des douze
(12)
derniers caractères
d'une cellule correspond au format de la cellule citée en exemple
ci-dessus.

Du genre:

if "le format des 12 derniers caractères de ma cellule" = "le format
de la
cellule-témoin" then
bla-bla
end if



Une âme charitable aurait-elle une solution?

Merci à l'avance


Nito











Avatar
Nito
Ce n'est pas une formule que j'ai besoin, mais d'une procédure.

Merci quand même,

Nito


Merci pour votre aide,

En fait, ce que j'ai besoin, c'est une procédure qui me permette de
vérifier que les 12 derniers caractères de la cellule active forment un
numéro de téléphone
du format 123-456-7890


Restaurant Cabobobod - 417-600-4013
Rôtisserie Coq - 345-300-5098
Catégorie: Restaurants, traiteurs

Dans la plage de 3 cellules ci-dessus, seules les 12 derniers caractères
des cellules 1 et 2 correspondent
à ma condition.

if "le format des 12 derniers caractères de la cellule active" = "le
format des 12 derniers caractères de la
cellule-témoin" then
bla-bla
end if

Merci

Nito





"dre" a écrit dans le message de news:

Salut,

Une MFC ne suffit-elle pas ?
La formule est :
(STXT(A1;4;1)="-")*(STXT(A1;8;1)="-")*(NBCAR(A1)*(ESTNUM(SUBSTITUE(A1;"-";"")*1)))=0

Â+




Bonjour à tous,

En Excel 2000.
Je demeure au Canada où les numéros de téléphone ont 10 chiffres
agrémentés
de
2 traits d'union comme l'exemple ci-dessous:

123-456-7890

J'aurais besoin d'une procédure pour vérifier que le format des douze
(12)
derniers caractères
d'une cellule correspond au format de la cellule citée en exemple
ci-dessus.

Du genre:

if "le format des 12 derniers caractères de ma cellule" = "le format
de la
cellule-témoin" then
bla-bla
end if



Une âme charitable aurait-elle une solution?

Merci à l'avance


Nito















Avatar
AV
Dans un module ordinaire :

Function AVEC_TEL(cel) As Boolean
If Right(cel, 12) Like "###-###-####" Then AVEC_TEL = True
End Function

Dans la feuille de calcul :
=AVEC_TEL(A1)

Ou dans une proc :
Sub zzz()
If AVEC_TEL([A1]) Then MsgBox "Il y a un num de tél"
End Sub

AV
Avatar
Youky
Ce n'est pas une formule que j'ai besoin, mais d'une procédure.
Restaurant Cabobobod - 417-600-4013
Rôtisserie Coq - 345-300-5098
Catégorie: Restaurants, traiteurs
Comme tout à l'heure avec une boucle



Youky
Sub verif()
for k =1 to 3 '1 à 3 sont les N° de ligne
num = Right(cells(k,1), 12) '1 ici représente la colonne A...2si B
If IsNumeric(Left(num, 3)) Then n = n + 1
If IsNumeric(Mid(num, 5, 3)) Then n = n + 1
If IsNumeric(Right(num, 4)) Then n = n + 1
If Mid(num, 4, 1) = "-" Then n = n + 1
If Mid(num, 8, 1) = "-" Then n = n + 1
If n <> 5 Then MsgBox "pas bon en " & k
Next
End sub



Avatar
ChrisV
Bonjour Nito,

En supposant que la cellule à tester soit la cellule A1 de l'onglet actif...

Sub zaza()
If Right([A1], 12) Like "###[-]###[-]####" Then MsgBox "Format OK"
End Sub


ChrisV


"Nito" a écrit dans le message de news:
%
Bonjour à tous,

En Excel 2000.
Je demeure au Canada où les numéros de téléphone ont 10 chiffres
agrémentés de
2 traits d'union comme l'exemple ci-dessous:

123-456-7890

J'aurais besoin d'une procédure pour vérifier que le format des douze (12)
derniers caractères
d'une cellule correspond au format de la cellule citée en exemple
ci-dessus.

Du genre:

if "le format des 12 derniers caractères de ma cellule" = "le format de
la cellule-témoin" then
bla-bla
end if



Une âme charitable aurait-elle une solution?

Merci à l'avance


Nito



Avatar
FxM
M'enfin, c'est vrai çà Pierre ! Tu es nul ou quoi ? :o)
Pour punition, tu feras la vaisselle tout seul !

@+
FxM


Ce n'est pas une formule que j'ai besoin, mais d'une procédure.

Merci quand même,

Nito


Merci pour votre aide,

En fait, ce que j'ai besoin, c'est une procédure qui me permette de
vérifier que les 12 derniers caractères de la cellule active forment un
numéro de téléphone
du format 123-456-7890


Restaurant Cabobobod - 417-600-4013
Rôtisserie Coq - 345-300-5098
Catégorie: Restaurants, traiteurs

Dans la plage de 3 cellules ci-dessus, seules les 12 derniers caractères
des cellules 1 et 2 correspondent
à ma condition.

if "le format des 12 derniers caractères de la cellule active" = "le
format des 12 derniers caractères de la
cellule-témoin" then
bla-bla
end if

Merci

Nito





"dre" a écrit dans le message de news:

Salut,

Une MFC ne suffit-elle pas ?
La formule est :
(STXT(A1;4;1)="-")*(STXT(A1;8;1)="-")*(NBCAR(A1)*(ESTNUM(SUBSTITUE(A1;"-";"")*1)))=0

Â+




Bonjour à tous,

En Excel 2000.
Je demeure au Canada où les numéros de téléphone ont 10 chiffres
agrémentés
de
2 traits d'union comme l'exemple ci-dessous:

123-456-7890

J'aurais besoin d'une procédure pour vérifier que le format des douze
(12)
derniers caractères
d'une cellule correspond au format de la cellule citée en exemple
ci-dessus.

Du genre:

if "le format des 12 derniers caractères de ma cellule" = "le format
de la
cellule-témoin" then
bla-bla
end if



Une âme charitable aurait-elle une solution?

Merci à l'avance


Nito

















Avatar
Pierre Fauconnier
Ouinnn, j'veux un lave-vaisselle... ;-)

Pierre

"FxM" a écrit dans le message de news:

M'enfin, c'est vrai çà Pierre ! Tu es nul ou quoi ? :o)
Pour punition, tu feras la vaisselle tout seul !

@+
FxM


Ce n'est pas une formule que j'ai besoin, mais d'une procédure.

Merci quand même,

Nito


Merci pour votre aide,

En fait, ce que j'ai besoin, c'est une procédure qui me permette de
vérifier que les 12 derniers caractères de la cellule active forment un
numéro de téléphone
du format 123-456-7890


Restaurant Cabobobod - 417-600-4013
Rôtisserie Coq - 345-300-5098
Catégorie: Restaurants, traiteurs

Dans la plage de 3 cellules ci-dessus, seules les 12 derniers
caractères des cellules 1 et 2 correspondent
à ma condition.

if "le format des 12 derniers caractères de la cellule active" = "le
format des 12 derniers caractères de la
cellule-témoin" then
bla-bla
end if

Merci

Nito





"dre" a écrit dans le message de news:

Salut,

Une MFC ne suffit-elle pas ?
La formule est :
(STXT(A1;4;1)="-")*(STXT(A1;8;1)="-")*(NBCAR(A1)*(ESTNUM(SUBSTITUE(A1;"-";"")*1)))=0

Â+




Bonjour à tous,

En Excel 2000.
Je demeure au Canada où les numéros de téléphone ont 10 chiffres
agrémentés
de
2 traits d'union comme l'exemple ci-dessous:

123-456-7890

J'aurais besoin d'une procédure pour vérifier que le format des douze
(12)
derniers caractères
d'une cellule correspond au format de la cellule citée en exemple
ci-dessus.

Du genre:

if "le format des 12 derniers caractères de ma cellule" = "le
format de la
cellule-témoin" then
bla-bla
end if



Une âme charitable aurait-elle une solution?

Merci à l'avance


Nito


















1 2 3