A voir également:
- Macros
- Ez macros - Télécharger - Divers Utilitaires
- Comment utiliser les macros dans word - Guide
- Le classeur macros personnelles dans le dossier de démarrage doit être ouvert ✓ - Forum VB / VBA
- Macros ✓ - Forum LibreOffice / OpenOffice
- Problème de macros - Forum Windows
7 réponses
le critére utilisé est une date. j'ai des champs et j'ai envis de copier que les lignes ou lesheures sont inférieur à 19h et inférieur a 16h30.
lors comment je peux ecrire ma macro pour pouvoir extraire que les lignes concernées et les mettres dans une autre feuille
lors comment je peux ecrire ma macro pour pouvoir extraire que les lignes concernées et les mettres dans une autre feuille
Bonjour,
Pour pouvoir encore plus t'aider, la gestion des heures n'étant pas simple sous excel, il faudrait savoir sous quel format sont tes heures.
En attendant, voici le début de ton code
sub
a=1
i=1 'définit la première ligne ou tu as des données, si c'est à la ligne 2 mets i=2
do while sheets("Nomfeuilleoutuastesheures").cells(i,1)<> "" 'cells(i,1) = cellule situe à ligne i et à la colonne 1, prends une colonne ou tu as toujours des données. Si c'est 2 mets cells(i,2)
'la faut écrire ta condition :
if sheets("Nomfeuilleoutuastesheures").cells(i,1)<="19h00" or sheets("Nomfeuilleoutuastesheures").cells(i,1)>="16h30" then ' cette conidtion ne fonctionne pas telle quelle il faut la modifier en fonction de tes données!!
rows(i).copy
sheets("Nomfeuilleoutuveuxmettredonnées").select
cells(a,1).select
activesheet.paste
a=a+1
end if
i=i+1
loop
end sub
Pour pouvoir encore plus t'aider, la gestion des heures n'étant pas simple sous excel, il faudrait savoir sous quel format sont tes heures.
En attendant, voici le début de ton code
sub
a=1
i=1 'définit la première ligne ou tu as des données, si c'est à la ligne 2 mets i=2
do while sheets("Nomfeuilleoutuastesheures").cells(i,1)<> "" 'cells(i,1) = cellule situe à ligne i et à la colonne 1, prends une colonne ou tu as toujours des données. Si c'est 2 mets cells(i,2)
'la faut écrire ta condition :
if sheets("Nomfeuilleoutuastesheures").cells(i,1)<="19h00" or sheets("Nomfeuilleoutuastesheures").cells(i,1)>="16h30" then ' cette conidtion ne fonctionne pas telle quelle il faut la modifier en fonction de tes données!!
rows(i).copy
sheets("Nomfeuilleoutuveuxmettredonnées").select
cells(a,1).select
activesheet.paste
a=a+1
end if
i=i+1
loop
end sub
Merci bcp Melanie pour ton aide en fait ta macro fonctionne trés bien avec un peu de modif da ma part. ESQ ta une idée pour pouvoir extraire les noms des champs.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
tout dépend de la ligne de ton intitule :
sheets("nomoutuastesdonnées").select
rows(numeroligneintitulé).copy
sheets("nomoutuveuxcoller").select
cells(1,1).select
activesheet.paste
sheets("nomoutuastesdonnées").select
rows(numeroligneintitulé).copy
sheets("nomoutuveuxcoller").select
cells(1,1).select
activesheet.paste
j'ai décidé de travailler avec des sélections c'est a dire que ce qui est sélectionné dans mon fichier excel exécute la Macro( je m'explique ma macro ne dois pas parcourir tt le fichier excel mais elle doit parcourir ce que moi j'ai selectionné dans le fichir excel) ESq vous avez une idée comment je peux dire a la Macro ce qui est séléctionné.
Bonjour,
j'ai un début de réponse mais pour que ca marche, il faut que tu me confirmes cette idée.
Ton filtre ne s'effectue que sur une seule colonne et toujours la même :
Sub x()
Sheets("Feuil1").Select 'Feuil1 est égale au nom de feuilles ou tu a sle filtre
With Worksheets("Feuil1")
If .AutoFilterMode Then
With .AutoFilter.Filters(1) 'le chiffre 1 représente le numéro de colonne ou est ton filtre, si c'est en 2, mets 2
If .On Then a = .Criteria1
End With
End If
End With
a = 2
i = 1
Do While Cells(i, 1) <> ""
If Cells(i, 1).Value = a Then
Rows(i).Copy
Sheets("Feuil2").Select
Cells(a, 1).Select
ActiveSheet.Paste
a=a+1
End If
Sheets("Feuil1").Select
i = i + 1
Loop
End Sub
j'ai un début de réponse mais pour que ca marche, il faut que tu me confirmes cette idée.
Ton filtre ne s'effectue que sur une seule colonne et toujours la même :
Sub x()
Sheets("Feuil1").Select 'Feuil1 est égale au nom de feuilles ou tu a sle filtre
With Worksheets("Feuil1")
If .AutoFilterMode Then
With .AutoFilter.Filters(1) 'le chiffre 1 représente le numéro de colonne ou est ton filtre, si c'est en 2, mets 2
If .On Then a = .Criteria1
End With
End If
End With
a = 2
i = 1
Do While Cells(i, 1) <> ""
If Cells(i, 1).Value = a Then
Rows(i).Copy
Sheets("Feuil2").Select
Cells(a, 1).Select
ActiveSheet.Paste
a=a+1
End If
Sheets("Feuil1").Select
i = i + 1
Loop
End Sub
