Discussion :

[matt^^]

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);'

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[AlainTech]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[matt^^]

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^^