26/10/02 ou 26/10/2002 ?

[William]

Bonjour le Forum,
Bonjour les accros d'Excel,

Je vous soumet le petit problème suivant, pour remuer vos méninges endormies en cette grise matinée...

Il s'agit d'un problème de recopie de date (a priori...)


Une macro me permet de copier une date d'une feuille vers une autre.

La cellule source affiche une date au format dd/mm/yy, mais lorsque l'on clique sur la cellule, l'information affichée est au format dd/mm/yyyy.

Jusqu'ici, tout va bien.

Une fois la macro executée, la cellule cible affiche une date au format dd/mm/yy, même lorsque l'on clique dessus...

Du coup, j'ai des problèmes lorsque par la suite, j'essaie de comparer la cellule cible avec d'autre dates contenues dans la même feuille...

Si quelqu'un peut me mettre sur la voie, je suis preneur...

Ci-dessous, le une partie dela macro initiale :



Sheets("EC 02-03").Select
Range("B3").Offset(varNbRows, 0).Select
jourch = Selection.Rows.Text

'(pour info, j'ai essayé avec Selection.Rows.Value, sans succes...)

Sheets("FICHE AZUR").Select
Range("D8:E8").Select
Selection.Value = jourch


'Variante :


Sheets("EC 02-03").Select
Range("B3").Offset(varNbRows, 0).Select
Selection.Copy
Sheets("FICHE AZUR").Select
Range("D8:E8").Select
ActiveSheet.Paste
Application.CutCopyMode = False


J'espère avoir été complet dans mon explication...

Merci d'avance pour votre aide.

A bientôt,

William

 

[William]

Au fait, j'ai Excel 97 SR-1

Suis distrait moi ))


Merci



William

 

[Baroude]

Bonjour,

Pour te mettre sur la voie, je suppose que jourch est ta variable de date (?) ... si oui essaye le format date, par exemple :

Selection.Value = Format( jourch, "dd/mm/yyyy") ou

Selection.Value = Format( jourch, "mm/dd/yyyy")

bonne journée

 

[Valérie]

Salut à vous 2,

Excuse moi mais j'ai un soucis c ta ligne de code

jourch = Selection.Rows.Text

Chez moi Nothing!!

Si C le numéro de la ligne que tu recherches pourquoi n'essaies-tu pas
ActiveCell.Row
Vu que précedemment tu sélectionnes une cellule spécifique

Bon pour le reste je suis plus le fil, je sais plus où sont les tenants et les aboutissants (SORRY mais je suis fatiguée...)
Bon en tentant de rassembler les morceaux voilà ce que je te propose (fichier joint pour visualiser le résultat en live)

Sub CHERCHER()
Dim cellule As Range

'Il me semblait que tu ne souhaitais pas commencer en B1 sinon je me mélange les crayons et remet Worksheets("EC 02-03").Columns("B:B").Cells

For Each cellule In Worksheets("EC 02-03").Range("B5:B65536")
If cellule > Range("A4") Then Exit For
Next
Worksheets("EC 02-03").Select
cellule.Select


End Sub


@+
Valérie

 

[William]

Je parviens enfin à revenir sur ce forum...

Léger problème de connexion....


Donc Re-bonjour tout le monde, et surtout Baroude et Valérie ;o)

Je viens de lire vos mails, effectivement Valérie, ton astuce pour ne pas commencer en B1 m'intéresse beaucoup... Merci merci merci !!!

Mais c'est vrai que ce n'était pas l'objet de ce fil... J'essayais de segmenter...

Donc, mon problème maintenant c'est que les données qui figurent sur ma feuille sont toutes foireuses...

En fait, lorsque je tape une date, elle n'est pas prise en compte correctement, de même pour les nombres...

Du coup, j'ai de légers soucis... A titre d'exemple, si je copie un nombre, il n'est pas pris en compte dans la cellule faisant la somme des nombres de la colonne... Il faut systématiquement que je le retape pour arriver à un résultat correct...

Je vais essayer de le mettre en format, comme pour les dates, et voir si ça marche...

Si dans l'intervalle quelqu'un à une meilleure idée, je suis preneur....

Mais j'ai quand même l'impression que l'erreur vient du code me permettant de copier les données :


Selection.Copy
Sheets("FICHE AZUR").Select
Range("D8:E8").Select
ActiveSheet.Paste
Application.CutCopyMode = False

ou


jourch = Selection.Rows.Text
Sheets("FICHE AZUR").Select
Range("D8:E8").Select
Selection.Value = jourch



Merci à Tous

William

 

[William]

Bonjour Tout le monde,

Je viens de m'appercevoir que je n'avais pas informé le Forum de la soluce trouvé... Si un jour quelqu'un s'y intéresse...

En fait, la macro était :


Range("B3").Select
jourch = Selection.Rows.Text


Au lieu de :

Range("B3").Select
jourch = Selection.Rows.Value

Et compte tenu des particularités de ma feuille Excel, ça plantait tout le reste....

Si un jour quelqu'un rencontre le même problème...

Merci

William