Macro sur excel
hazoum_88
Messages postés
3
Statut
Membre
-
hazoum_88 Messages postés 3 Statut Membre -
hazoum_88 Messages postés 3 Statut Membre -
Bonjour,
mer6 d'avance mes amis,
j'ai une base de donnée sur excel et elle partagé, tout le monde a le droit d'y accedé et d'ajouté et modifier les informations et mon problème est la suivante:
je veux crée une macro qui me permet d'avoir un numéro quelque soit la forme dont il été ecrit
exemple:
je peu ecrire le numéro de cette façon 12-258-123 ou 12/123/456 ou 12 123 456 ou 12123456 il ya plusieur façon d'ecrire un numéro de telephone et moi je veux une macro qui peut etre capable de m'affiché le numéro demandé.
j'éspère que j'étais clair dans mon explppication et mer6 encore.
mer6 d'avance mes amis,
j'ai une base de donnée sur excel et elle partagé, tout le monde a le droit d'y accedé et d'ajouté et modifier les informations et mon problème est la suivante:
je veux crée une macro qui me permet d'avoir un numéro quelque soit la forme dont il été ecrit
exemple:
je peu ecrire le numéro de cette façon 12-258-123 ou 12/123/456 ou 12 123 456 ou 12123456 il ya plusieur façon d'ecrire un numéro de telephone et moi je veux une macro qui peut etre capable de m'affiché le numéro demandé.
j'éspère que j'étais clair dans mon explppication et mer6 encore.
A voir également:
- Macro sur excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Comment trier par ordre alphabétique sur excel - Guide
- Comment calculer la moyenne sur excel - Guide
2 réponses
Bonjour
Voici une fonction personsalisée qui te permet de recuperer tous les chiffres d'une chaine
à placer dans un module
Function get_num(machaine as string) as string
dim i as integer
application.volatile
get_num = ""
if len(machaine)>0 then
for i = 1 to len(machaine)
if instr("0123456789", mid(machaine,i,1))>0 then get_num = get_num & mid(machaine,i,1)
next i
end if
end function
utilisation
en tant que formule sur feuille :
=Get_num(A1)
en tant que fonction vba
Montel = get_num(Range("A1").value)
Voici une fonction personsalisée qui te permet de recuperer tous les chiffres d'une chaine
à placer dans un module
Function get_num(machaine as string) as string
dim i as integer
application.volatile
get_num = ""
if len(machaine)>0 then
for i = 1 to len(machaine)
if instr("0123456789", mid(machaine,i,1))>0 then get_num = get_num & mid(machaine,i,1)
next i
end if
end function
utilisation
en tant que formule sur feuille :
=Get_num(A1)
en tant que fonction vba
Montel = get_num(Range("A1").value)
hazoum_88
Messages postés
3
Statut
Membre
mer6 bi1 c utile !!!!!!!!!!!!!
Oo base de donné et excel ?? Acces est un logiciel de base de donné excel est un tableur !
Tu crée un bouton sur ta feuille auquel tu lui affecte une macro
Sub nommacro()
form_nomform.Show
End Sub
Cree une nouvelle form
Il faut développé du code VBA
voir aide sur internet
Range("cellule") pour les cellules
Tu crée un bouton sur ta feuille auquel tu lui affecte une macro
Sub nommacro()
form_nomform.Show
End Sub
Cree une nouvelle form
Il faut développé du code VBA
voir aide sur internet
Range("cellule") pour les cellules