pb vba recopie en fonction de date

[BZH56]

Bonjour
En VBA, je voudrais recopier des données en colonne sur une autre feuille, en ligne suivant la date
cf fichier joint pour visualiser
merci du coup de pouce dans ma compréhension du VBA🙂🙂

 

[pierrejean]

Re : pb vba recopie en fonction de date

Bonjour BZH56

Vois si cela te convient

 

[BZH56]

Re : pb vba recopie en fonction de date

merci pierre jean
c est parfait .que dire de plus😀😀

 

[BZH56]

Re : pb vba recopie en fonction de date

bonjour a tous
j ai reussi a transposer le code de pierre jean sur mon vrai fichier mais en relisant le code fourni , j aurais besoin d une explication sur les lignes ci dessous

tableau = Range("B5:C" & Range("B65536").End(xlUp).Row)
ligne = ""
For n = 4 To 35
  If sh.Range("A" & n) = CDate(X) Then
    ligne = n
    Exit For
  End If
Next
If ligne <> "" Then
  For n = LBound(tableau) To UBound(tableau)
    sh.Cells(ligne, n + 1) = tableau(n, 2)
  Next n

un commentaire serait le bienvenu- pourquoi selectionner un tableau avec 2 colonnes alors que je recopie une seule colonne !!!!!
et le test de ligne vide , la raison ?
d autre part , lorsque je protege ma feuille par la suite, j ai une erreur 1004 au lancement de la macro . comment déverrouiller avec excel 97

merci

 

[pierrejean]

Re : pb vba recopie en fonction de date

Re
Il est exact que le tableau pourrait ne comporter qu'une colonne
Dans un premier temps j'avais pensé a reperer egalement la colonne par les A1,A2 etc et c'est pour cela que j'avais pris les 2 colonnes .Ensuite, eh bien je n'ai pas modifié
Quant au test de ligne="" il repond au souci du même ordre que celui du test de feuille au nom du mois : Si la date n'est pas trouvée on alerte et on sort (en réalité cette sortie avait été omise)
Voila avec le code modifié et commenté

 

[BZH56]

Re : pb vba recopie en fonction de date

Re
Il est exact que le tableau pourrait ne comporter qu'une colonne
Dans un premier temps j'avais pensé a reperer egalement la colonne par les A1,A2 etc et c'est pour cela que j'avais pris les 2 colonnes .Ensuite, eh bien je n'ai pas modifié
Quant au test de ligne="" il repond au souci du même ordre que celui du test de feuille au nom du mois : Si la date n'est pas trouvée on alerte et on sort (en réalité cette sortie avait été omise)
Voila avec le code modifié et commenté

merci des commentaires pierre jean
et avais tu une explication sur le fait que lorque je veux proteger la feuille pour les utilisateurs, le lancement de la macro plante avec erreur 1004

@+

 

[pierrejean]

Re : pb vba recopie en fonction de date

Re

Quelle feuille veux-tu proteger ?
En principe (pas testé)

en debut et fin de macro

ActiveWorkSheet.Un[B]Protect[/B] Password := "toto"
............
............
ActiveWorkSheet.[B]Protect[/B] Password := "toto"

eventuellement remplacer ActiveWorkSheet par sheets("MaFeuilleAProteger")
et toto a adapter

 

[BZH56]

Re : pb vba recopie en fonction de date

re Pierrejean🙂🙂
cela me semble sense de desactiver la protection puis la remettre en fin de macro
c est au moins simple a comprendre. je vais tester au plus tôt
par contre , j espere que l utilisateur n a pas acces aux macros du dossier. pour infos,cette protection est juste pour eviter des maladresses d utilisation et la perte de quelques heures de travail pour moi + l aide des "potes" du fil...
@+😀