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
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
A voir également:
- Programmation excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Aller à la ligne excel - Guide
- Tableau croisé dynamique excel - Guide
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
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
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
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
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,??
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,??
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
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
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
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
20 déc. 2012 à 18:49
ya pas moyen , il est installé dans mon entreprise et je dois faire avec .....A+
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
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
Enlève cette partie (déclaration) et utilise la fonction Beep native d'excel ((sans paramètre) .
eric
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
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
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
9 nov. 2012 à 19:04
c'est pas vraiment ce qui m'est demandé,
merci en tout cas pour toute ton aide
cordialement