Bonjour a tous et merci d avance pour vos eventuelle intervention
voila mon probleme :
je debute en vba et je ne connais pas bien les synthaxe et leur utiliter,
mais voila je cherche le moyen de Rechercher dans chacune de mes feuille = selon la date demandée , genre demander de trouver toute les depense du 12/03/09 au 31/02/09 et de copier la ligne vers la feuille resumer dans la zone Feuille Corespondante
difficulter suplémentaire il est possible d avoir deux meme date avec montant different dans la feuille Course
j'espere m'etre bien expliquer
en clair je voudrai via un commandButton deplacer tout mes depense sur la durée definie et en different type sur une feuille resumer que je pourai alors imprimer pour classer dans une farde
voici un debut de code prenant en conmpte uniquement la feuille medecin mais ca plante lorsque je lance la recherche comme si il y avait surcharge de memoire...
je n arrive toujours pas a copier la valeur dans une zone definie pour cette feuille
merci d avance
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 Private Sub CommandButton2_Click() ' CMB rechercher Dim i As Integer 'pour pouvoir augmenter la valeur de la ligne apres chaque boucle de recherche Dim L As Integer 'pour trouver une ligne vide sur la feuille resumer Dim C As String ' determine le nom de la feuille destinataire ici Resumer Dim E As String ' definir le text demander dans la text box qui comprend ce que l on cherche a copier Dim d As String ' determine la feuille source medecin d = "MEDECIN" i = 1 E = TextBox9.Text C = "Resume" L = Worksheets(C).Range("A1").CurrentRegion.Rows.Count 'trouver ligne vide While i < 15 If Worksheets(d).Cells(i, 1).Value = E Then Worksheets(C).Cells(L+1, 1) = Worksheets(d).Cells(i, 1).Text 'copie la date dans la premiere colone Worksheets(C).Cells(L+1, 2) = Worksheets(d).Cells(i, 2).Text ' copie le montant dans la deuxieme colone Worksheets(C).Cells(L+1, 3) = Worksheets(d).Cells(i, 3).Text 'copie la description dans la 3eme colone Else i = i + 1 ' si la valeur ne corespond pas voir la ligne suivante End If Wend End Sub
Partager