Probléme macro ... Résolu

Question

Bonjour,

Voila la macro qui pose probléme :

Sub essaiee()
Dim date_actuelle As Date
Dim contenu As Date
Dim MaDate As Date
Dim aa As Double

contenu = "14/05/2008 6:50"
For lig = 7 To 6 Step -1
    
    If Cells(aa, 12) And DateDiff("n", contenu, MaDate) <> 0 Then 'CETTE LIGNE POSE UN PROBLEME POUR EXCEL !!
         Rows(aa).Delete
    End If
Next aa

End Sub

j'ai donc essayé ce code pour vérifier si se n'était pas un probléme de date :

Sub essaiee_marche()
Dim date_actuelle As Date
Dim contenu As Date
Dim MaDate As Date

contenu = "14/05/2008 6:50"
       MaDate = CDate(Cells(6, 12).Value)
    If DateDiff("n", contenu, MaDate) <> 0 Then
        Rows(6).Delete
        Cells(1, 14).Value = "caaa marche !"
    End If

End Sub

Ce code fonctionne donc le probléme ne vient pas d'un probléme de format date ...

Merci beaucoup !!! pour votre aide

Afficher la suite

zavenger · Answer

cela ne viendrait-il pas du fait que tu utilises lig comme variable de boucle et que tu utilises aa dans cette boucle ??

lermite222 · Answer

Bonjour,
ca provient de ta boucle et de la variable aa

Sub essaiee()
Dim date_actuelle As Date
Dim contenu As Date
Dim MaDate As Date
Dim aa As Double

contenu = "14/05/2008 6:50"
    For lig = 7 To 6 Step -1
    
        If Cells(lig, 12) And DateDiff("n", contenu, CDate(Cells(lig, 12).Value)) <> 0 Then 
               Rows(lig).Delete
        End If
    Next lig

End Sub
J'ai déjà adapté ta boucle mais la variable MaDate n'est pas initialisée et je sais pas où tu va la chercher
A+

Napalawow · Answer

oups excusez moi en faite lig=aa et il manque une ligne en plus ......
Jvais vous donnez le code texto !!! ca sera + simple !


Sub essaiee()

Dim contenu As Date
Dim MaDate As Date
Dim lig As Double

contenu = "14/05/2008 6:50"
For lig = 7 To 6 Step -1
    MaDate = CDate(Cells(lig, 12).Value)
    If Cells(lig, 12) And DateDiff("n", contenu, MaDate) <> 0 Then
        
         Rows(lig).Delete
    End If
Next lig

End Sub

amigo · Answer

bonjour,

    If Cells(lig, 12).Value And DateDiff("n", contenu, MaDate) <> 0 Then

A+.

Napalawow · Answer

Oué en faite t'as raison Lermite la variable MaDate correspond au contenue de la cellule active!
J'ai essayé ton code :

Sub essaiee2()
Dim date_actuelle As Date
Dim contenu As Date
Dim MaDate As Date
Dim lig As Double

contenu = "14/05/2008 6:50:41"
    For lig = 8 To 7 Step -1
    
        If Cells(lig, 12) And DateDiff("n", contenu, CDate(Cells(lig, 12).Value)) <> 0 Then
               Rows(lig).Delete
        End If
    Next lig

End Sub

Mais EXcel me dit tjrs qu'il y a un probléme sur la ligne
If Cells(lig, 12) And DateDiff("n", contenu, CDate(Cells(lig, 12).Value)) <> 0 en me disant "erreur 13 incompatibilté de type"
Ce probléme réside t-il du contenue de la cellule ? (bien qu'on est forcée en + la cellule en Date)..

+

lermite222 · Answer

OK, remet ta variable...puisque tu dit que ta 2èm solution fonctionne
    For lig = 8 To 7 Step -1
        MaDate = CDate(Cells(lig, 12).Value)

        If Cells(lig, 12) And DateDiff("n", contenu,MaDate) <> 0 Then
               Rows(lig).Delete
        End If
    Next lig

Napalawow · Answer

C'est bon j'ai essayé un mélange de code qui me paraissai correct et sa m'A L'AIR de FONCTIONNER correctement !!!

Voici le bout de code :

Sub essaiee2()
Dim date_actuelle As Date
Dim contenu As Date
Dim MaDate As Date
Dim lig As Double

contenu = "14/05/2008 6:50:41"
    For lig = 8 To 7 Step -1
    
        If DateDiff("n", contenu, CDate(Cells(lig, 12).Value)) > 0 Then
               Rows(lig).Delete
        End If
    Next lig

End Sub


Reste plus qu'à faire les tests !! 

Merci FoRuM !
+

Napalawow · Answer

Yep C encore moi ( Youhouuu ^^)

Donc en faite la macro ci dessus que j ai donné en 7, fonctionne correctement lorsque la cellule contient une date ( Normale ..)

quelques précisions: En faite ma colone L donc > Cells(...,12) < est en format date c.a.d. que TOUTES les cellules sont en format Date.

Le probléme est qu'en faite certaine cellules (rappel: qui sont en format Date!) sont vide donc =>"" ou contiennent des lettres

Donc voici le code qui aurait du survolé ce probléme :

Sub essaiee2()
Dim date_actuelle As Date
Dim contenu As Date
Dim MaDate As Date
Dim lig As Double

contenu = "11/05/2008 6:50:41"
    For lig = 76 To 75 Step -1
    
        If DateDiff("n", contenu, CDate(Cells(lig, 12).Value)) <> 0 And Cells(lig, 12).Value <> vbNullString Then
               Rows(lig).Delete
        End If
    Next lig

End Sub

Ce code fonctionne bien sur les cellules avec les Date Mais losqu'il s'agit de cellule vide ou centenant des lettres la macro ne se compile pas.

Si quelqu'un aurai la solution tant mieux et merci !

Sinon j'utiliserai plusieurs boucles FOR qui surchargeraient mon prog. :(

++ les gars !

lermite222 · Answer

Sub essaiee2()
Dim date_actuelle As Date
Dim contenu As Date
Dim MaDate As Date
Dim lig As Double

contenu = "11/05/2008 6:50:41"
    For lig = 76 To 75 Step -1
        if Cells(lig, 12) <>"" then
            f DateDiff("n", contenu, CDate(Cells(lig, 12).Value)) <> 0 Then
                   Rows(lig).Delete
            End If
        end if
    Next lig

End Sub

obligé de tester AVANT sinon plantage
A+

Napalawow · Answer

OK merci de ta correction lermite22

Voici la macro finale .. :

Sub essaiee2_essai()
Dim date_actuelle As Date
Dim contenu As Date
Dim MaDate As Date
Dim lig As Double
Dim n_turbine As Integer
Dim cas As String

n_turbine = 1
cas = " Te: Te" & n_turbine & " ("

contenu = "11/05/2008 6:50:41"
    For lig = 59 To 54 Step -1
        If Cells(lig, 12) <> "" Then
            If Cells(lig, 12) <> cas Then
                If DateDiff("n", contenu, CDate(Cells(lig, 12).Value)) <> 0 Then
                       Rows(lig).Delete
                End If
            End If
        End If
    Next lig

End Sub

Comme il y avait une chaine de caractére et que je ne trouvé pas d'expression en VB pour désigner une chaine de caractére j'ai alourdi le prog. en ajoutant 2 variable de plus. ^^

Merci
Amicalement
a +

lermite222 · Answer

Mais avec la ligne que tu ajoute tu peu supprimé un If

    For lig = 59 To 54 Step -1
        If Cells(lig, 12) <> "" And Cells(lig, 12) <> cas  Then
                 If DateDiff("n", contenu, CDate(Cells(lig, 12).Value)) <> 0 Then
                       Rows(lig).Delete
                End If
        End If
    Next lig

Et encore..
Si ta colonne 12 est configurée en date CDate n'est pas nécessaire

Probléme macro ...

11 réponses

Votre réponse

Discussions similaires

Newsletters