Modification de 1430 Cellules dans Excel

[Roye20]

Salut a tous,
Je Cherche une Facon de Faire pour Modifier des informations dans 1430 Cellules...
Je m'Explique..
J'ai par chaque Ligne les Informations suivantes:
Chaque Ligne d'information est dans une cellule

Bryan Pitton,16,CAN,N,1988,5,26,205,75,0,3,
Dave Caruso,16,USA,N,1982,1,18,218,73,0

Apres la 4ieme Virgule, ou il ya une date,j'aimerais modifier le mois et le Jour de la date pour le 31 Juillet, mais garder l'annee deja inscris,.. Donc, sa devrait ressembler a ceci:

Bryan Pitton,16,CAN,N,1988,7,31,205,75,0,3,
Dave Caruso,16,USA,N,1982,7,31,218,73,0

Un amis m'a dit d'utiliser le VB Editor.. mais je n'ai aucune idee qu'est ce que je doit faire comme commande...
Si quelqu'un a une idee.... Merci

 

[Grand Chaman Excel]

Re : Modification de 1430 Cellules dans Excel

Bonjour Roye20 et bienvenue sur le forum,

Voici une macro qui te permettra de changer la date. Tu devras sélectionner les cellules à convertir en ensuite exécuter la macro. Les données modifiées sont copiées dans la cellule à côté. Exemple, tes données de départ sont dans la colonne A, les données modifiées seront dans la colonne B.
Voici comment copier la macro dans ton fichier :

• Ouvre l'éditeur de macro (Alt+F11)
• Dans l'arborescence de gauche, trouve ton fichier et "ouvre le" : Exemple VBAProject (fichier xyz)
• Clique droit sur module et Insertion Module
• Double clique sur le module créer (ex.Module 1)
• Dans le gros carré blanc à gauche, copie la macro ci-bas

Sub ChangeDate()
' Code à placer dans un module
' Sélectionner les données à changer en exécuter la macro
    Dim c As Range
    Dim Tabl As Variant
    
    Application.ScreenUpdating = False
    For Each c In Selection
        Tabl = Split(c, ",")    'convertir en tableau
        Tabl(5) = 7     'changer le mois
        Tabl(6) = 31    'changer la date
        c.Offset(0, 1) = Join(Tabl, ",") 'convertir le tableau en texte et écrire dans cellule à côté
    Next c
    Application.ScreenUpdating = True
End Sub

A+

 

[chris]

Re : Modification de 1430 Cellules dans Excel

Bonjour

Sans macro avec la 1ère valeur en colonne A, une formule sans doute simplifiable, à recopier vers le bas

=GAUCHE(SUBSTITUE(A1;",";"£";5);CHERCHE("£";SUBSTITUE(A1;",";"£";5))-1)&",7,31,"&STXT(SUBSTITUE(A1;",";"@";6);CHERCHE("@";SUBSTITUE(A1;",";"@";6))+1;10)

Edit simplification
Bise à JCGL

 

[JCGL]

Re : Modification de 1430 Cellules dans Excel

Bonjour à tous,
Salut GCXL,

Par Données / Convertir et séparateur Virgule, tu auras toutes tes valeurs dans des cellules séparées.
Il sera aisé de remplacer les valeurs des colonnes F et G par 7 et 31.

A + à tous

Edition : Bises à Chris