Discussion :

[olivverte]

Bonjour,

J'ai fait une macro qui permet d'importer des dates dans une colonne.
Maintenant j'aimerais lui dire que si les dates importer diffèrent de "01/01/2100", il doit supprimer la ligne entière de la colonne où les dates ont été importées !
J'ai un bug au niveau de la ligne que je surligne... Il me dit "tableau attendu" et je ne comprend pas pourquoi.

Quelqu'un peut me renseigner ?

Sub IMPORTE_DATESORTIE()

Call DEPROTEGE_FORMATION

If MsgBox("Voulez-vous affecter les dates de sortie dans la base de données ?", vbCritical + vbOKCancel, "Importe les dates de sortie") = vbCancel Then
Call PROTEGE_FORMATION
Exit Sub
End If

Dim i As Long, j As Long

For i = 2 To Sheets("BD SORTIE").Range("A" & Sheets("FORMATION BD").Rows.Count).End(xlUp).Row
For j = 9 To Sheets("FORMATION BD").Range("A" & Sheets("FORMATION BD").Rows.Count).End(xlUp).Row
If Sheets("BD SORTIE").Range("E" & i).Value <> "" And Sheets("BD SORTIE").Range("A" & i).Value = Sheets("FORMATION BD").Cells(j, 1).Value Then
Sheets("FORMATION BD").Range("J" & j).Value = Sheets("BD SORTIE").Range("E" & i).Value
End If
Next j
Next i

If MsgBox("Voulez-vous supprimer les personnes sorties de la base ?", vbCritical + vbOKCancel, "Suppression personnel sortie de la base") = vbCancel Then
Call PROTEGE_FORMATION
Exit Sub
End If

Dim k As Long
Dim dateimport As Date

With worksheets("FORMATION BD")
For k = 9 To Sheets("FORMATION BD").Range("A" & Sheets("FORMATION BD").Rows.Count).End(xlUp).Row
If dateimport(k, 10).Value <> "01/01/2100" Then
End If
Next k
End With

Call PROTEGE_FORMATION
End Sub

[illight]

As-tu essayé de faire un msgbox sur ta valeur :

Code :

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

dateimport(k, 10).Value

PS : n'oublie pas de mettre les balises CODE quand tu met du code, sinon c'est illisible

De plus, dateimport est une date si j'ai bien compris.

ne serait-ce pas plutôt ça :

Code :

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

cells(k, 10).Value

Que tu voulais écrire ? Je comprend aps trop ce que tu veux faire là

[olivverte]

Que tu voulais écrire ? Je comprend aps trop ce que tu veux faire là [/QUOTE]

En fait je voudrais lui faire dire que si les cellules contiennent "01/01/2100" dans la colonne J et à partir de la ligne 9, il doit alors supprimer toute la ligne....

Comment je fais pour mettre les balises CODE svp ?

[illight]

Oui donc c'est bien ça :

Code :

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

cells(k, 10).Value

Que tu dois écrire.

Pour mettre les balises CODE, quand tu tape ton message, tu as un "#" dans la barre de mise en forme => ça met alors des balises CODE (fait un "citer" d'un de mes messages, tu verras )

[olivverte]

Oui donc c'est bien ça :

[/CODE]

Code :

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

cells(k, 10).Value

Que tu dois écrire.

Pour mettre les balises CODE, quand tu tape ton message, tu as un "#" dans la barre de mise en forme => ça met alors des balises CODE (fait un "citer" d'un de mes messages, tu verras )

J'ai testé, mais les lignes ne se suppriment pas...

Exemple :
Matricule NOM PRENOM Colonne J (Date sortie)
1 Toto 15/02/2013
2 Tata 01/01/2100
3 Titi 19/08/2013
4 Tutu 01/01/2100

Normalement les lignes toto et titi devrait se supprimer... mais ma macro ne marche pas, même avec

Code :

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

Cells(k,10).value

[illight]

Tu l'écris où ta suppression ?
Dans le code que tu as mis, je ne vois pas de Delete

[olivverte]

Ouai, pas très malin....
Je viens d'écrire
then
rows(k).delete

Il me supprime pas toutes les lignes, seulement quelques unes. Il faut que je clique plusieurs fois sur le bouton pour qu'enfin toutes les lignes soient supprimées...
C'est normal ?

[olivverte]

Je pense que c'est du à la boucle qui doit être dans le IF non ?

Si je fais ce code ci-dessous, j'ai un bug au niveau où c'est surligné :

With worksheets("FORMATION BD")
If Cells(k, 10).Value <> "01/01/2100" Then
For k = 9 To Sheets("FORMATION BD").Range("A" & Sheets("FORMATION BD").Rows.Count).End(xlUp).Row
Rows(k).Delete
Next k
End If
End With

d'où vient le problème à ton avis ?

[casefayere]

Bonjour,
et ça :

Code :

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

1
2
3
4
5
6
7
With Worksheets("FORMATION BD")
For k = Sheets("FORMATION BD").Range("A" & Sheets("FORMATION BD").Rows.Count).End(xlUp).Row To 9 Step -1
  If Cells(k, 10).Value <> "01/01/2100" Then
    Rows(k).EntireRow.Delete
  End If
Next k
End With

[olivverte]

en fait j'ai trouvé la réponse ! (première fois depuis que je suis sur le forum !)

With worksheets("FORMATION BD")
'pour supprimer des lignes il vaut mieux commencer par la dernière ligne, et remonter.
For k = Sheets("FORMATION BD").Range("A" & Sheets("FORMATION BD").Rows.Count).End(xlUp).Row To 9 Step -1
If Cells(k, 10).Value <> "01/01/2100" Then
Rows(k).Delete
End If
Next k
End With

Merci quand même pour l'aide apporté, ça m'a beaucoup aidé !

[illight]

C'est ce que j'allais dire : fait une boucle à l'envers

[olivverte]

je viens de voir que casefayere vient de répondre à la question alors que je viens de poster la réponse lol

Néanmoins, je confirme que ça marche casefeyere.

Merci poru ton aide !