modif de macro

[olive323]

Bonjour à tous,

J'ai fait une petite modif et cette macro ne fonctionne plus correctement.

Vous pouvez voir dans le fichier joint en colonne A il y a des dates.
j'ai modifié ces dates par un =feuil1 A3 ect... donc la macro ne retrouve plus les dates .
Il y a t-il un moyen pour que la macro reconnaisse la date qui apparait plutot que le =feuil1 A3?

Suis je bien clair?

Cordialement

olivie323

 

[Pierrot93]

Re : modif de macro

Bonjour,

je ne vois pas de macro dans ton fichier...

bonne journée
@+

 

[olive323]

Re : modif de macro

Bonjour

Oui c'est mieux avec la macro


Sub repartition()
tabMois = Array("Janvier 11", "Fevrier 11", "Mars 11") ' ... à suivre
For Each c In Range("A6:A" & Range("A" & Rows.Count).End(xlUp).Row)
Set cible = Workbooks("ParMois.xls").Sheets(tabMois(Month(c) - 1)).Range("A:A").Find _
(what:=c.Value, LookIn:=xlFormulas, lookat:=xlWhole)
If Not cible Is Nothing Then
cible.Offset(, 1) = c.Offset(, 1)
Else
MsgBox "date non reprise"
End If
Next c
End Sub

 

[Pierrot93]

Re : modif de macro

Re,

et ce code est placé où ??? dans ton fichier tu parles de somme de "pierre, alain...", bah j'en vois pas....

 

[Paritec]

Re : modif de macro

Bonjour Pierrot🙂 olive le forum
voilà un bel exemple de fichier bien préparé et très représentatif de l'original, avec en plus des explications tout aussi claires et bien faites !!!!!!!
a+
Papou🙂

 

[Pierrot93]

Re : modif de macro

Re, bonjour Pascal🙂

un exemple de recherche "find", qui fonctionne sur ta feuille "Fevrier 11", à adapter...

Dim x As Range, d As Date
d = #2/5/2011# 'm/j/aaaa
Set x = Columns(1).Find(d, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then MsgBox "la date du jour est en " & x.Address

 

[olive323]

Re : modif de macro

Bonjour Pascal

Merci pour ce retour Pierrot je test.

Je vous l'accorde pas très explicite.
A dire vrai je n'ai pas reussi à reprendre la discution du départ.

Désolé

peut etre en joignant ça ? https://www.excel-downloads.com/thr...dans-un-autre-classeur-avec-recherche.164221/

Olive323

 

[Pierrot93]

Re : modif de macro

Re,

le mieux eût été de rester sur le même fil...

 

[olive323]

Re : modif de macro

Pierrot

je n'arrive pas à adapter. peux tu m'aider?

Cordialement

 

[Pierrot93]

Re : modif de macro

RE,

as tu testé au moins sur la feuille en question ? La valeur est elle retrouvée ? il y a peut être lieu de préciser le classeur et la feuille sur laquelle la recherche doit être effectuée, si la feuille en question n'est pas la feuille active lors de l'execution du code.... sans connaître le résultat à atteindre cela va être difficile de t'aider... toujours préférable un tout petit fichier en pièce jointe avec uniquement les données permettant de reproduire le problème posé...

 

[olive323]

Re : modif de macro

Pierrot

Ci joint les 2 fichiers.

avec le message date non trouvé quand on execute la macro.

Cordialement

Olive323

 

[Pierrot93]

Re : modif de macro

Re,

"xlValues" au lieu de "xlFormulas"

        Set cible = Workbooks("CA2011.xls").Sheets(tabMois(Month(c) - 1)).Range("A:A").Find _
            (what:=c.Value, LookIn:=xlValues, Lookat:=xlWhole)

 

[olive323]

Re : modif de macro

Merci pierrot

Ca marche.

Bonne journée

Cordialement

Olive323