Première Macro

[Snoopette]

bonsoir,

j'ai récupéré un fichier de données généalogique que je souhaiterai retraiter

ex: XXXXX AAAAAAAAA
XXXXX BBBBBB
XXXXX CCCCCCCC

pour devenir

AAAAAAAAA
BBBBBB
CCCCCCCC

j'ai réalisé ma première macro et cela me donne

AAAAAAAAA sur les 3 lignes

d'autre part je voudrai qu'à chaque modification je puisse aller à la ligne suivante

Comment faire ?

Merci par avance à ceux qui voudront bien me répondre

 

[Hulk]

Re : Première Macro

Hello Snoopette, Forum,

Sans fichier joint de ta part, difficile de t'aider...

Déposes un fichier avec tes demandes précises, tu auras sans doute plus d'aide, merci.

Cdt, Hulk.

 

[Snoopette]

Re : Première Macro

ci-joint une partie du fichier

je souhaite supprimer 2DATE (+ l'espace) sur chaque ligne

merci encore

 

[Paritec]

Re : Première Macro

Bonjour Snoupette, hulk,le forum,
ton fichier en retour
a+
Papou

EDIT: Bonjour Job

 

[job75]

Re : Première Macro

Bonjour snoopette, salut Hulk et Papou,

Un peu pour le fun...

Au cas ou l'ordi possède une version française d'Excel, utilisation d'un format date en français.

Bien sûr pour les années antérieures à 1900, les "dates" restent des textes.

La macro :

Sub DateFrancaise()
Dim tablo1(), tablo2(), lig As Long, txt As String, m As Variant
tablo1 = Array("JAN", "FEB", "MAR", "APR", "MAY", "JUN", "JUL", "AUG", "SEP", "OCT", "NOV", "DEC")
tablo2 = Array("janv", "févr", "mars", "avr", "mai", "juin", "juil", "août", "sept", "oct", "nov", "déc")
Application.ScreenUpdating = False
On Error Resume Next
For lig = 1 To Range("A65536").End(xlUp).Row
  txt = Cells(lig, 1)
  txt = Application.Trim(txt) 'supprime les espaces superflus (sécurité)
  txt = Replace(txt, "2 DATE ", "")
  m = Application.Match(Split(txt, " ")(1), tablo1, 0)
  Cells(lig, 1) = Replace(txt, tablo1(m - 1), tablo2(m - 1))
  Cells(lig, 1) = CDate(Cells(lig, 1)) 'pour les années >= 1900
Next
Columns(1).NumberFormat = "d mmm yyyy"
End Sub

A+