decoupage cellule

[mathieu]

bonjour a tous

j ai un problème de decoupage du contenu de mes cellules.
j ai des valeurs de ce types : IVC ASCENT IV A - 03/01/2014
IVC ASCENT IV B - 03/01/2014
ALPHA SALUS - 09/01/2009

et je souhaiterai garder uniquement le nom. je souhaite filtré la date soit les 13 derniers caractères.

j avais trouvé une solution avec des formules directement saisies dans les cases mais qd j ai voulu les mettre dans une macro pour que cela le fasse automatiquement il me mettais tojours des erreurs de syntaxes.


dc si vous connaissez la reponse je vous ecoute.


merci d avance

bonne journée

@+ mat

 

[JeanMarie]

Bonjour Mathieu

Essaye ce code

Sub MacroMathieu()
    Columns('A:A').Select
    Selection.TextToColumns Destination:=Range('A1'), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :='-', FieldInfo:=Array(Array(1, 1), Array(2, 4))
    Columns('A:A').EntireColumn.AutoFit
End Sub

Attention la colonne B doit être vide, les données déjà présentes seront écrasées

@+Jean-Marie

 

[mathieu]

oki merci bcp ca marche bien dc j adopte cette solution

bonne journée

 

[mathieu]

re jean marie

est il possible d enlever la fenetre demandant si les donnee veulent etre ecrase ou non?


si oui comment puis je faire?


merci d avance

@+ mat

 

[JeanMarie]

Re...

Oui c'est possible

 Sub MacroMathieu()
 Application.DisplayAlerts = False
 Columns('A:A').Select
    Selection.TextToColumns Destination:=Range('A1'), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :='-', FieldInfo:=Array(Array(1, 1), Array(2, 4))
    Columns('A:A').EntireColumn.AutoFit
 Application.DisplayAlerts = True 
End Sub

@+Jean-Marie

 

[mathieu]

re re lol

merci ca marche niquel mais j aimerai savoir a quoi correspond les champs array stp?

car en fait j arrive pas a adapter la macro sur mon exemple

moi en fait j ai la valeur : IVC ASCENT IV A - 03/01/2014
dans la cellule B et ce que je souhaite c que le nom aille dans la cellule C et la date dans la cellule E donc est ce que tu pourrais m aider a appliquer ma macro a mon exemple?



merci bcp

 

[Pascal]

Bonjour Messieurs, le forum.

Si j'ai bien compris et que Mathieu ne souhaite pas conserver la date, je vous propose modestement :unsure: le code ci-dessous.

Sub Macro1()

For compteur = 5 To 3 Step -1
If Range('c' & compteur) Like '*-*' And IsDate(Right(Range('c' & compteur), 10)) Then: _
Range('c' & compteur).Replace What:='-*', Replacement:='', LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False

Next compteur

End Sub


Bien à vous
Pascal

 

[Pascal]

Re à tous les deux,

Je viens d'ajouter une ligne qui permet d'avoir dans la cellule adjascente la date pour pouvoir travailler dessus. Qu'en pensez vous ?
Cordialement
Pascal

Sub Macro1()

For compteur = 5 To 3 Step -1
If Range('c' & compteur) Like '*-*' And IsDate(Right(Range('c' & compteur), 10)) Then: _
Range('d' & compteur) = Right(Range('c' & compteur), 10): _
Range('c' & compteur).Replace What:='-*', Replacement:='', LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False

Next compteur

End Sub

 

[JeanMarie]

Re...

Le Array(Array(1, 1), Array(2, 4)) spécifie le type de donnée à retourner.

Il faut que tu rajoutes
- la copie de la colonne B en Colonne C,
- et une insertion d'une colonne avant la colonne D
le code existant
-le copier coller de la colonne en colonne E.
et tu termines ton code par Application.DisplayAlerts = True.

L'utilisation Selection.TextToColumns évite la gestion des dates en VBA qui peut poser problème.

@+Jean-Marie