Programmation excel

Fermé
mirage23 - Modifié par mirage23 le 5/11/2012 à 19:39
Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 - 20 déc. 2012 à 19:10
Bonjour,

je cherche à faire une rotation des lignes d'un tableau excel ( ligne 1 devien 2, 2 devien 3 etc ) et ce chaque X temps ( 1minute par exemple)
si quelqu'un peut m'aider ou m'envoyer un lien
ryma

25 réponses

Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 5 040
9 nov. 2012 à 08:42
Re,

je ne comprends pas très bien ton problème, tu veux copier ces données sur excel,

tu mets en surbrillance la partie à copier et clic droits sur la première cellule d'excel/collage spécial/coche texte
0
mirage23 Messages postés 112 Date d'inscription lundi 29 octobre 2012 Statut Membre Dernière intervention 31 janvier 2016
9 nov. 2012 à 19:04
d'acord je comprends
c'est pas vraiment ce qui m'est demandé,
merci en tout cas pour toute ton aide
cordialement
0
mirage23 Messages postés 112 Date d'inscription lundi 29 octobre 2012 Statut Membre Dernière intervention 31 janvier 2016
20 déc. 2012 à 18:28
svp pour ce programme la :

Declare Function Beep Lib "kernel32" (ByVal Frequence As Long, ByVal Duree As Long) As Long


Sub LancementAutomatique()
Go = TimeSerial(Hour(Time), Minute(Time), Second(Time) + "3")
Application.OnTime Go, "LancementAutomatique"
Call Beep(500, 100)
Range(Range("A65536").End(xlUp), Range("A2").Offset(0, 48)).Cut
Range("A3").Select
ActiveSheet.Paste
Range(Range("A65536").End(xlUp), Range("A65536").End(xlUp).Offset(0, 48)).Cut
Range("A2").Select
ActiveSheet.Paste
End Sub




j'essay de l'executer sur office2010, il me fait "erreur de compilation, le code contenu dans ce projet doit etre mis a jour pour pouvoir etre utilisé sur les systeme 64bits verifier et mettez a jour les instructions declaré, puis marquez les avec l'attribut Ptrsafe".

je doit modifier quoi sur ce programme svp,??
0
eriiic Messages postés 24512 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 24 mars 2023 7 168
20 déc. 2012 à 18:43
Bonjour,

As-tu installé la version 64 bits d'excel ?
Si oui désinstalle-la et installe la 32 bits.
Elle présente des incompatibilités et n'a aucun intérêt (sauf si tu dois gérer des tableaux énormes et que tu as beaucoup de mémoire sur ton système, et là ce sont des cas particuliers chez les pros)

eric
0
mirage23 Messages postés 112 Date d'inscription lundi 29 octobre 2012 Statut Membre Dernière intervention 31 janvier 2016
20 déc. 2012 à 18:49
ya pas moyen , il est installé dans mon entreprise et je dois faire avec .....A+
0
eriiic Messages postés 24512 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 24 mars 2023 7 168
20 déc. 2012 à 18:57
Ca doit être ton appel à la fonction API Beep.
Enlève cette partie (déclaration) et utilise la fonction Beep native d'excel ((sans paramètre) .

eric
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 5 040
20 déc. 2012 à 19:10
Bonsoir le fil,

Oui ce doit être l'appel à la fonction Beep qui permet de moduler le Beep

à essayer simplement comme cela

Sub LancementAutomatique()
Go = TimeSerial(Hour(Time), Minute(Time), Second(Time) + "3")
Application.OnTime Go, "LancementAutomatique"
Beep
Range(Range("A65536").End(xlUp), Range("A2").Offset(0, 48)).Cut
Range("A3").Select
ActiveSheet.Paste
Range(Range("A65536").End(xlUp), Range("A65536").End(xlUp).Offset(0, 48)).Cut
Range("A2").Select
ActiveSheet.Paste
End Sub
0