problème fonctionnement macro simple

[michal51]

Bonjour à tous,

je n'arrive pas à utiliser une macro qui fonctionne avec un raccourci, un bouton en fait. La Macro consiste en copier une cellule dans la feuille 2 et la coller dans la feuille 3, colonne D de D1 à D500, puis revenir dans la feuille 2.
J'ai fait cette macro qui fonctionne:
Sub datefinale()
' datefinale Macro
Range("B1").Select
Selection.Copy
Sheets("Feuil3").Select
Range("D1😀500").Select
ActiveSheet.Paste
Sheets("liste retard").Select
End Sub

Pour rendre la chose un peu plus simple, j'ai mis un bouton en feuille 2(liste restard), mais là çà ne marche plus, et la ligne Range("D1😀500").Select se met en jaune.

Quelqu'un pourrait-il m'expliquer pourquoi? j'avoue que là çà me dépasse.

Merci à vous!!!

 

[phlaurent55]

Re : problème fonctionnement macro simple

Salut michal,

tu n'aurais peut-être pas dû mettre la petite tête verte au dents longues dans ton code ci-dessus, c'est peut-être là que ça foire mais personne ne saura le voir
je comprends pas très bien copier une cellule dans une plage de cellules
à+

 

[SergiO]

Re : problème fonctionnement macro simple

Bonjour michal51, phlaurent55

J'ai simplifié ton code, mets-le dans la feuil2,teste et dis-nous.

Sub datefinale()
Range("B1").Copy Destination:=Sheets("Feuil3").Range("D1:D500")
End Sub

@+

 

[michal51]

Re : problème fonctionnement macro simple

ahah oui c'est vrai, je n'avais pas vu les tête verte quand j'ai tapé le message. Cette tête s'est mise automatiquement, c'était en fait un ":" comme vous l'aviez compris à mon avis.

En tout cas merci sergio, çà à l'air de fonctionner comme çà, et c'est tellement plus simple ;-)

Encore un grand merci.

A+

 

[michal51]

Re : problème fonctionnement macro simple

Je retire ce que j'ai dit, avec le bouton çà ne fonctionne toujours pas, peut etre qu'il y a un problème dû au changement de feuille. En tout cas la formule est simplifiée quand même.

S'il y a d'autre proposition, je reste preneur 🙂))

Pour plus de précision, j'envoie le fichier avec ce que j'essaie de faire sur la feuille 2.

 

[SergiO]

Re : problème fonctionnement macro simple

Re,

Voici ton fichier avec un code qui permet d'extraire toutes les lignes dont la date en colonne D est inférieure à un délai donné.

@+

 

[michal51]

Re : problème fonctionnement macro simple

Merci beaucoup çà fonctionne à merveille. Encore une petite requête. Tu pourrais m'expliquer la formule, parceque j'aimerai vraiment m'améliorer dans ce domaine, et tout est bon à prendre.
Merci encore en tout cas çà marche.
A+ Sergio

 

[SergiO]

Re : problème fonctionnement macro simple

Re,

Voici la macro commentée en espérant que ça t'éclaire un peu:

Sub retard()
Dim DateR As Date
[COLOR=DeepSkyBlue]'Nettoyage de la feuille Retard[/COLOR]
Sheets("Retard").Range("A2:G65536").ClearContents
[COLOR=DeepSkyBlue]'Initialisation du numéro de ligne pour collage dans la feuille Retard[/COLOR]
Lig = 2
[COLOR=DeepSkyBlue]'Recherche de la fin de la base de données[/COLOR]
DerLig = Sheets("données").Range("A65536").End(xlUp).Row
[COLOR=DeepSkyBlue]'Saisie de la date délai[/COLOR]
DateR = InputBox("Saisir la date de délai max: ", "Liste des retards")
[COLOR=DeepSkyBlue]'Boucle de la ligne 2 à la fin de la base[/COLOR]
For L = 2 To DerLig
[COLOR=DeepSkyBlue]'Si la date de la ligne en cours est <= à la date délai on copie dans la feuille Retard[/COLOR]
If CDate(Cells(L, 4)) <= DateR Then
Cells(L, 4).EntireRow.Copy Destination:=Sheets("Retard").Cells(Lig, 1)
[COLOR=DeepSkyBlue]'Nouvelle ligne pour le collage[/COLOR]
Lig = Lig + 1
End If
[COLOR=DeepSkyBlue]'Fin de la boucle[/COLOR]
Next L
End Sub

@+