VBA nbr de ligne important

la_fouine_du_13 Messages postés 16 Statut Membre -  
la_fouine_du_13 Messages postés 16 Statut Membre -
Bonjour,

Le code ci-dessous marche très bien mon problème c'est que dans mon document de test ou il y a 5 lignes c'est ok mais implanté dans mon document définitif il y a 28000 lignes dont certaines non renseignées et là tout le code plante obligé de faire gestionnaire de tâche et d'arrêter tout.
Que faire ?

Sub format_date() 


Dim lifin As Long 

Dim d As Date 

Dim li As Integer 

lifin = Range("J" & Rows.Count).End(xlUp).Row 

For li = 1 To lifin 
  d = Replace(Cells(li, 10).Value, ".", "/") 
  Cells(li, 10).Value = d 

Next li 

End Sub
--
La chute n'est pas un échec, l'échec est de rester où l'on est tombé

2 réponses

  1. Yoda
     
    Bonjour,

    Essaies avec ça:

    Sub format_date()

    Columns("J:J").Select
    Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

    End Sub

    :-)
    1
  2. la_fouine_du_13 Messages postés 16 Statut Membre
     
    c'est parfait ! merci bcp bcp !

    bonne journée !

    0