[VBA-E] comparer deux date de naissance ds 1 meme colonne

Version imprimable

17/04/2007, 10h23
matt^^

[VBA-E] comparer deux date de naissance ds 1 meme colonne

bonjour tte l'monde,

je débute en VBA et la je bloque dur

en fait voila, je dispose dun fichier excel contenant les caracteristiques de personnes dont la date de naissance.

Dans la colonne date_naiss, certaine cellules comprennent deux dates de naissances séparer par y (25/12/1928ý26/06/1971).

Je souhaiterai une macro qui parcoure ma colonne, et qui, quand elle rencontre 2 dates de naiss me garde seulement la date de naiss la plus récente et dc supprimer l'autre.

jpensai a une fonction qui separe les 2 date qd elle trouve y mai je sai pa tro l'utiliser

Merci d'avance);'

Bonjour matt^^,

Vous faites d'abord une sauvegarde de votre fichier, par exemple sous un autre nom (toujours prévoir une mauvaise manipulation).

Puis cliquer sur Outils puis Macro puis Visual Basic Editor.

Dans la fenêtre en haut à gauche vous double-cliquez sur la feuille contenant vos données puis vous cliquez dans la fenêtre de droite et vous collez la procédure ci-dessous :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 Option Explicit Sub Dat_nais() Dim pl, nbc, nbr As Integer Dim pc As Byte Dim dn As String ' 1ère ligne de données (modifier si différente de 2) pl = 2 ' colonne contenant les données (modifier si différente de 1, 1 étant = "A") pc = 1 nbr = 0 Debut: dn = Cells(pl, pc) If dn = "" Then MsgBox "Traitement terminé, " & nbr & " ligne(s) modifiées(s).", _ vbOKOnly + vbInformation + vbApplicationModal, "Information" Exit Sub Else nbc = Len(dn) If nbc > 10 Then dn = Left(dn, 10) Cells(pl, pc) = dn nbr = nbr + 1 pl = pl + 1 GoTo Debut Else pl = pl + 1 GoTo Debut End If End If End sub
Amicalement.

Re matt^^

Merci pour votre réponse.

Si vous voulez que ce soit la date la plus ancienne des deux qui soit prise en compte, voici le code modifié :

Code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
Sub Dat_nais()
 Dim pl, nbc, nbr As Integer
 Dim pc As Byte
 Dim dn, dn1, dn2 As String
 
 ' 1ère ligne de données (modifier si différente de 2)
 pl = 2 
' colonne contenant les données (modifier si différente de 1, 1 étant = "A")
 pc = 1
 
 nbr = 0
 
 Debut: dn = Cells(pl, pc)
If dn = "" Then MsgBox "Traitement terminé, " & nbr & " ligne(s)modifiée(s).", _ vbOKOnly + vbInformation + vbApplicationModal, "Information" 
Exit Sub
Else nbc = Len(dn)
 If nbc > 10 Then 
 dn1 = Left(dn, 10)
 dn2 = Right(dn, 10)
   If dn1 < dn2 Then
   Cells(pl, pc) = dn1
   Else Cells(pl, pc) = dn2
   End If
 nbr = nbr + 1
 pl = pl + 1
 GoTo Debut
 Else pl = pl + 1
 GoTo Debut
 End If
End If
End Sub

Bonne journée et n'hésitez pas en cas de problème.

Voici un exemple de code plus propre pour ce genre de fonction:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Dat_nais()
  Dim rRange As Range
  Dim rCell As Range
  Dim aDates() As String
  Set rRange = Range([A1], [A1].End(xlDown))
  For Each rCell In rRange
    If Not IsDate(rCell) Then
      aDates = Split(rCell, "ý")
      If UBound(aDates) > 0 Then
        If CDate(aDates(0)) < CDate(aDates(1)) Then
          rCell = CDate(aDates(0))
        Else
          rCell = CDate(aDates(1))
        End If
      End If
    End If
  Next rCell
End Sub

18/04/2007, 10h51
matt^^

remerciement

dsl jacque_jean je n'ai pa pu vous répondre plus tôt,

je vous remercie beaucoup votre macro marche à merveille.
C vraiment gentil a vous de m'avoir aidé.
Si vous avez des questions sur des logiciels autre que vba lol et que jpeu vous aider ca serai avec plaisir

bonne journee

amicalement matt^^