Modification de 1430 Cellules dans Excel

Roye20 · 16 Février 2012

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 · 16 Février 2012

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

VB:

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 · 16 Février 2012

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

Code:

=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 · 16 Février 2012

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

Modification de 1430 Cellules dans Excel

Roye20

Guest

Grand Chaman Excel

XLDnaute Impliqué

chris

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

Discussions similaires

Modification de 1430 Cellules dans Excel

Roye20

Guest

Grand Chaman Excel

XLDnaute Impliqué

chris

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency