OVH Cloud OVH Cloud

Problème avec une macro enregistrée

3 réponses
Avatar
Yoyo
Bonjour =E0 tout le forum

cela faisait un bon mois que je n'avais pas eu besoin de vous, mais me
voil=E0 encore bloqu=E9.

voila j'ai des donn=E9es issue d'une extraction et dans la colonne G
j'ai des dates.
mais comme la colonne n'ai pas au format date je multiplie la colonne
par 1 =E0 l'aide d'un collage sp=E9cial puis je fait un clic droit et et
met la colonne au format date.

la tout fonctionne correctement.

j'enregistre cette manip avec la macro enregistr=E9 et lorsque je veux
l'utilis=E9 cela ne marche pas

le code semble correct j'ai l'impression qu'il lit le code sans faire
les actions.

Si quelqu'un peut me donner un piste je l'en remerci


Cordialement

Yoyo

3 réponses

Avatar
JLuc
*Bonjour Yoyo*,
Pour te donner une piste, il faudrai voir le code que tu as
enregistrer, sinon ca me parais difficile

Bonjour à tout le forum

cela faisait un bon mois que je n'avais pas eu besoin de vous, mais me
voilà encore bloqué.

voila j'ai des données issue d'une extraction et dans la colonne G
j'ai des dates.
mais comme la colonne n'ai pas au format date je multiplie la colonne
par 1 à l'aide d'un collage spécial puis je fait un clic droit et et
met la colonne au format date.

la tout fonctionne correctement.

j'enregistre cette manip avec la macro enregistré et lorsque je veux
l'utilisé cela ne marche pas

le code semble correct j'ai l'impression qu'il lit le code sans faire
les actions.

Si quelqu'un peut me donner un piste je l'en remerci


Cordialement

Yoyo


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
JLuc
*Bonjour Yoyo*,
Sinon, tu peux utiliser ceci :

Sub RemetLaDate()
Range("IV65536") = 1
Range("IV65536").Copy
ActiveCell.PasteSpecial Paste:=xlAll, Operation:=xlMultiply, _
SkipBlanks:= False, Transpose:úlse
ActiveCell.NumberFormat = "d-mmm-yy"
Range("IV65536").ClearContents
End Sub

Apres l'enregistrement, tu retrouve la plage normale de tes données

Bonjour à tout le forum

cela faisait un bon mois que je n'avais pas eu besoin de vous, mais me
voilà encore bloqué.

voila j'ai des données issue d'une extraction et dans la colonne G
j'ai des dates.
mais comme la colonne n'ai pas au format date je multiplie la colonne
par 1 à l'aide d'un collage spécial puis je fait un clic droit et et
met la colonne au format date.

la tout fonctionne correctement.

j'enregistre cette manip avec la macro enregistré et lorsque je veux
l'utilisé cela ne marche pas

le code semble correct j'ai l'impression qu'il lit le code sans faire
les actions.

Si quelqu'un peut me donner un piste je l'en remerci


Cordialement

Yoyo


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
JLuc
Petite amelioration si tu veux le faire sur une plage :
Sub RemetLaDate()
For Each Cellule In Selection
Cellule.Activate
Range("IV65536") = 1
Range("IV65536").Copy
ActiveCell.PasteSpecial Paste:=xlAll, Operation:=xlMultiply, _
SkipBlanks:= False, Transpose:úlse
ActiveCell.NumberFormat = "d-mmm-yy"
Range("IV65536").ClearContents
Next Cellule
End Sub

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O