Forums XLPages

Excel & VBA Forum principal [résolu] formulation imposible

formulation imposible
#1
mahelnawe
Semi pro XLPages

Inscription: 30/01/2012
De Crévecoeur

Messages: 108

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 25-02-2012 02h13
bonjour le forum;
voila qu'elle formul permetrai de trouver le dernier carractere d'une ligne en cellule a1 pui à partir de la position de ce dernier caracter permettrai d'affiché tous ce qui son lié a lui devant lui ex:a1 contient 12 568  whq 584 le dernier carractere num est 4 donc 584 est affiché ,de plus est t'il possible de le faire et j'en doute mes surtout cela fonctionent t il avec du texte...
si une âme riche de savoir pouvai m'eclairé .....
Hors Ligne
 Rapport   Haut 

Re: formulation imposible
#2
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 25-02-2012 03h14
 Salut le forum

Ton texte contient des espaces . . .

Mytå
Hors Ligne
 Rapport   Haut 

Re: formulation imposible
#3
mahelnawe
Semi pro XLPages

Inscription: 30/01/2012
De Crévecoeur

Messages: 108

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 25-02-2012 03h29
bonjour Myta ,le forum,
non pas d'espace ,merci de ton aide ,pourrai tu expliqué la formul  stp si toute fois cela est realisable
Edité par mahelnawe le 25/02/2012 22:36:46
Hors Ligne
 Rapport   Haut 

Re: formulation imposible
#4
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 26-02-2012 04h05
 Re le forum

Ton texte en cellule A1

En B1 formule matricielle (A valider par Ctrl + Shift + Enter)
=SUBSTITUE(A1;STXT(A1;EQUIV(VRAI;ESTNUM(1*STXT(A1;LIGNE($1:$9);1));0);NB(1*STXT(A1;LIGNE($1:$9);1)));"")
En C1 formule matricielle (A valider par Ctrl + Shift + Enter)
=STXT(B1;EQUIV(VRAI;ESTNUM(1*STXT(B1;LIGNE($1:$9);1));0);NB(1*STXT(B1;LIGNE($1:$9);1)))
Mytå
Hors Ligne
 Rapport   Haut 

Re: formulation imposible
#5
mahelnawe
Semi pro XLPages

Inscription: 30/01/2012
De Crévecoeur

Messages: 108

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 28-02-2012 12h00
Bonjour le forum ,Myta ,
Est t'il possible de faire cela ?
merci par avance
je voulai aussi precisé l'oublie du bonjour et du merci qui est effectivement un minimum ..je veillerai que cela ne reproduisse plus ..
merci encors
Pièce jointe:
xlsx adressage.xlsx   [ Taille: 9.99 Ko - Téléchargements: 414 ]
Hors Ligne
 Rapport   Haut 

Re: formulation imposible
#6
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 28-02-2012 22h45
Re le forum

Citation :
Mytå a demandé : Ton texte contient des espace ...
 Citation :
Mahelnawe a répondu : Non pas d'espace ...

Et dans le fichier joint, bizarrement il y a des espaces.

Merci de donner plusieurs exemples de textes possibles avec les résultats escomptés.

Mytå
Hors Ligne
 Rapport   Haut 

Re: formulation imposible
#7
mahelnawe
Semi pro XLPages

Inscription: 30/01/2012
De Crévecoeur

Messages: 108

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 29-02-2012 02h26
bonjour le forum, Myta,
Voila , j'ai essayer d'être plus claire dans ce que je voudrai realisé,j'esper que cela sera suffisant
merci de m'apporté votre aide
Pièce jointe:
xlsx adressage.xlsx   [ Taille: 11.88 Ko - Téléchargements: 426 ]
Hors Ligne
 Rapport   Haut 

Re: formulation imposible
#8
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 29-02-2012 03h18
 Re le forum

Avec une fonction personnalisée

Copie le code suivant dans un module standard
Function SplitTexte(Cellule As Range)
Dim Test As Boolean
Dim Cpt As Integer
Dim Texte As String
Dim Temp As Variant

Application.Volatile

Texte = Trim(Cellule)
Test = IsNumeric(Right(Texte, 1))
Temp = ""

For Cpt = Len(Texte) To 1 Step -1
  If IsNumeric(Mid(Texte, Cpt, 1)) <> Test Or _
    Mid(Texte, Cpt, 1) = " " Then Exit For
    Temp = Mid(Texte, Cpt, 1) & Temp
Next Cpt

Temp = IIf(Test, Val(Temp), Temp)
SplitTexte = Temp

End Function
Tu peux ensuite l'utiliser comme une fonction. (fx)
Tu la retrouve dans les fonctions personnalisées du menu fx
=SplitTexte(A2)
Mytå

Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: formulation imposible
#9
mahelnawe
Semi pro XLPages

Inscription: 30/01/2012
De Crévecoeur

Messages: 108

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 29-02-2012 04h17
bonjour le forum,Myta,
la franchement rien a dire ,ca fonctione impect c trop fort ,je retient cette façons de faire ,Merci encors pour vos competance et votre temps .
Hors Ligne
 Rapport   Haut 

Re: formulation imposible
#10
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 29-02-2012 12h32
 Re le forum

Au plaisir d'une prochaine ficelle.

Bonne journée
Mytå
Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes