Code copie lignes ne fonctionne pas

[rudymagny]

Bonjour à tous,
Voilà ,avec l'aide du code de Gringo et je l'en remercie,
j'utilise un USF avec un textbox et un CommandButton, la textbox contient mon critère de recherche (format date jj/mm/aa) et je clic sur mon button et il doit me copier le résultat dans l'auatre feuillle FeuilE5.

Private Sub CommandButton26_Click()
Dim date0 As String
Dim i As Integer
Dim j As Integer

date0 = TextBox7.Value

Unload Me
MsgBox (date0)

j = 1
For i = 4 To 100
If Cells(i, 29).Value = date0 Then
'x ici est le numéro de la colonne dans laquelle tes valeurs recherchées sont
MsgBox ("Il y a des valeurs correspondantes!!")
Rows(i).Select
Selection.Copy
Sheets("FeuilE5").Select
Cells(j, 1).Select
ActiveSheet.Paste
j = j + 1
Sheets("Février").Select
End If
Next i
MsgBox ("Il n'y a PAS de valeurs correspondantes!!")
Accueil.Show

End Sub

Mais je ne coprend pas, j'ai mis des msgbox pour me situer et je vois qu'il ne trouve pas le critère!!
Je ne comprend pas???
la colonne AD est bien la colonne 29?
Merci d'avance

 

[porcinet82]

Re : Code copie lignes ne fonctionne pas

Salut rudymagny,

Je n'ai pas regardé ton code, mais la colonne AD est la numéro 30 et non pas la 29 😉 .

@+

 

[rudymagny]

Re : Code copie lignes ne fonctionne pas

Merci porcinet82,
j'avais un doute si on partait de 0 en A ou de 1, enfin bon, ça ne pourra que mieux fonctionner!
Mais le problème, j'ai l'impression qu'il n'arrive pas trouver avec mas date et pourtant en colonne AD donc 30 lol, j'ai bien des exemples!!

 

[rudymagny]

Re : Code copie lignes ne fonctionne pas

j'ai apporté des modifs au code et il donne ça mais il ne fonctionne tjrs pas :

Dim mois As Variant
Dim date0 As String
Dim L As Integer
Dim i As Integer
Dim j As Integer

date0 = TextBox7.Value
'Unload Me
MsgBox (date0)
For Each mois In Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre")

Sheets(mois).Activate
'j = 1
For i = 4 To 100
If Cells(i, 30).Value = date0 Then
'x ici est le numéro de la colonne dans laquelle tes valeurs recherchées sont
MsgBox ("Il y a des valeurs correspondantes!!")
Rows(i).Select
Selection.Copy
Sheets("FeuilE5").Select
L = Sheets("FeuilE5").Range("G65536").End(xlUp).Row + 1
'Cells(j, 1).Select
Cells(L, 1).Select
ActiveSheet.Paste
'j = j + 1
'Sheets("Février").Select
End If
Next i
MsgBox ("Il n'y a PAS de valeurs correspondantes!!")
'Accueil.Show
Next mois

 

[rudymagny]

Re : Code copie lignes ne fonctionne pas

ça y esttt!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
je mettais par exemple 24/02/06 alors qu'il fallait faire 24/02/2006!!

ça y est ça fonctionne merci pour tout

 

[porcinet82]

Re : Code copie lignes ne fonctionne pas

re,

Juste une petite question qui te fera peut etre avancer, ta variable date0, tu la déclare en String, mais si c'est une date, il vaut peut etre mieux la déclarer en Date?

Si c'est pas ca et que tu ne trouve pas, mets un fichier en pièce jointe en passant par Cjoint.com

@+

 

[porcinet82]

Re : Code copie lignes ne fonctionne pas

Je faisais plusieurs truc en même temps et le temps que je rédige tu as trouvé tout seul, donc félicitation,

@+

 

[rudymagny]

Re : Code copie lignes ne fonctionne pas

Merci porcinet82, tu viens de compléter mon code,
c'st pour ça qu'il ne fonctionnait pas en format string!!
et donc il faut mettre 24/02/2006,

alors que si je le déclare en tant que date, avec 24/02/06 ça fonctionne!!!

Merci beaucoup et bonne soirée!!

 

[rudymagny]

Re : Code copie lignes ne fonctionne pas

Au fait MERCI GRINGO, si tu passes par là!!

C'est de ton idée sur un autre fil dont je suis parti alors que j'étais parti sur d'autres soluces bien plus compliquées!!!

MERCI