programmation excel Fermé

Question

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

Mike-31 · Answer

Salut, 

Tu peux joindre un exemple de ton fichier pour voir sa structure  
d'après tes dires et ce que je comprends un filtre devrait faire l'affaire. 
Mais si la ligne 1 devient ligne 2 mais que se passe t'il en ligne 1elle reste vide ?
A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

mirage23 · Answer

non jveu ke chaque ligne se déplace d'une ligne vers le bas, la derniere deviendra la premiere , j'espere ke c plus clair 
pour le tableau exemple non je n'en ai pas encore fait un !mais n'importe kel exemple tré basik feré l'affaire(tableau 3 ligne 3 colonnes par ex)
merci d'avance :)

Mike-31 · Answer

Re,

Si tu as quelques notions en VBA, colle ce code dans un module et associe le à un bouton pour tester, si c'est que tu cherches, on complétera le code pour un changement cyclique

Sub test()
    Range(Range("A65536").End(xlUp), Range("F1")).Cut
    Range("A2").Select
    ActiveSheet.Paste
    Range(Range("A65536").End(xlUp), Range("A65536").End(xlUp).Offset(0, 6)).Cut
    Range("A1").Select
    ActiveSheet.Paste
End Sub

Mike-31 · Answer

Re,

Alors suis bien et tu fais exactement ceci

Clic droit sur l'onglet de ta feuille/Visualiser le code/Insertion/Module

colle ce code

Sub test() 
Range(Range("A65536").End(xlUp), Range("F1")).Cut 
Range("A2").Select 
ActiveSheet.Paste 
Range(Range("A65536").End(xlUp), Range("A65536").End(xlUp).Offset(0, 6)).Cut 
Range("A1").Select 
ActiveSheet.Paste 
End Sub 

 reviens sur ta feuille excel dessine une simple forme rond ou rectangle
clic droit dessus/Affecter à une macro/pointe sur test et ok

chaque fois que tu cliqueras sur le bouton les lignes de A1 à la colonne F changeront
 Si tu n'y arrive pas je te ferais un petit montage

Mike-31 · Answer

Re,

évite d'écrire langage sms, 
clic sur le lien ci dessous et enregistre le fichier, puis ouvre le. En cellule I1 tu peux saisir la valeur du déclenchement et pour arrêter le code saisi simplement 0 
 ou change de feuille le code s'arrête, reviens sur ta feuille le code reprend
j'ai ajouté un petit bip pour attirer ton attention lors des changements

https://www.cjoint.com/?BKfxEJxDDwP

Mike-31 · Answer

Re,

Copie tes données sur mon fichier tu seras sur que cela marche.
Tu saisis 0 en I1

il faudra peut être adapter le code qui prend en compte les colonnes de A à F

on verra cela demain, pour ce soir je décroche

Mike-31 · Answer

Re,

En VBA il faut être très précis, tu dis d'adapter à plusieurs fichiers et d'une chaine de tableau

que veux tu dire exactement plusieurs fichiers indépendant

ou plusieurs tableaux dans le même fichier, sur plusieurs onglets par exemple ou sur la même feuille

Mike-31 · Answer

Re, 

Alors sur chaque fichier, il faut coller ces deux codes dans la Thiswokbook du Visual basic clic droit sur l'onglet de feuille/Visualiser le code, ou touches Alt et F11 

'le premier lance le code dès l'ouverture du fichier 
Private Sub Workbook_Open() 
    [I1] = 5 
    Call LancementAutomatique 
End Sub  

'celui ci arrête la macro à la fermeture du fichier 
Private Sub Workbook_BeforeClose(Cancel As Boolean) 
    [I1] = 0 
End Sub 

ces deux codes sont à coller dans les propriétés de ta feuille clic droit sur l'onglet de feuille/Visualiser le code, ou touches Alt et F11 

'ce code lance la procédure lorsqu'on revient sur la feuille concernée 
 Private Sub Worksheet_Activate() 
[I1] = 5 
Call LancementAutomatique 
End Sub 

'ce code lance la procédure lorsqu'on quitte sur la feuille concernée ce qui permet de travailler facilement sur une autre feuille 
Private Sub Worksheet_Deactivate() 
[I1] = 0 
End Sub 

Et pour terminer lorsque tu es dans le Visual Basic clic droit sur l'onglet de feuille/Visualiser le code, ou touches Alt et F11 
il faut ouvrir un Module, clic sur Insertion et Module et coller ce code qui gére le clignottement 

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) + Range("I1")) 
    Application.OnTime Go, "LancementAutomatique" 
    Call Beep(500, 100) 
    Range(Range("A65536").End(xlUp), Range("F1")).Cut 
    Range("A2").Select 
    ActiveSheet.Paste 
    Range(Range("A65536").End(xlUp), Range("A65536").End(xlUp).Offset(0, 6)).Cut 
    Range("A1").Select 
    ActiveSheet.Paste 
End Sub 


A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

Il suffit demande ce qui pose problème

A65536" et (xIUP) et offset (0,6)

 Range("A65536").End(xlUp) en fait on lance une recherche de cellule contenant une valeur et pour cela on commence à partir de la cellule A65536 et avec End(xlUp) on remonte

et en ajoutant Offset(0, 6) on décale la cellule active de 6 cellule vers la droite

ci-dessous on commence une recherche depuis la cellule A65536 en remontant et lorsqu'une cellule non vide est rencontrée la recherche ou la sélection se décale de 6 colonne vers la droite
Range("A65536").End(xlUp).Offset(0, 6)

et pour compléter cette ligne de code qui pourrait s'écrire plus technique, on lance deux recherches, une pour sélectionner la première cellule non vide et la seconde recherche la première cellule non vide et se décale de 6 cellule à droite ce qui donne une sélection de la colonne A à la colonne H exemple A10 à H10

Range(Range("A65536").End(xlUp), Range("A65536").End(xlUp).Offset(0, 6)).

Mike-31 · Answer

Re,

Si non n'hésite pas à revenir dans cette discussion, cela permet à l'intervenant qui le souhaite de suivre l'évolution d'un code et y apporter plus facilement une modification ou le compléter

mirage23 · Answer

quel est le code qui selectionne l'avant derniere ligne non vide?
(Range("A65536").End(xlDown), Range("F1")) -1 ?

Mike-31 · Answer

Re, 

Pour sélectionner la première cellule vide d'une colonne en remontant à partir d'une cellule basse exemple de A1000 

Range("A1000").End(xlUp).select 

Pour sélectionner la première cellule vide d'une colonne en descendant à partir de cellule A1 

Range("A1").End(xlDown).Select 

et si tu veux sélectionner une cellule dans une autre colonne tu démarres le balayage dans la colonne concerné exemple pour chercher en colonne F  
Range("A1").End(xlDown).Select 


pour sélectionner la première cellule vide d'une ligne vers la gauche de la cellule active à partir de X10 par exemple 

range("X10").End(xlToLeft).Select 

pour sélectionner la première cellule vide d'une ligne vers la droite de la cellule active à partir de A10 par exemple  
range("X10").End(xlToLeft).Select 

Range("A10").End(xlToRight).Select 

Pour sélectionner la première cellule vide d'une colonne en descendant à partir de cellule A1 

Range("A1").End(xlDown).Select 

.offset(0,3) sert à décaler la sélection à partir de la cellule active, ici, 0 reste sur la ligne trouvée et 3 se décale de 3 cellules à droite  ou -3 se décale de 3 cellules à gauche 

A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

offset(1,0) sélectionne la ligne au dessous de la cellule active exemple si tu utilise cette syntaxe
Range("A1000").End(xlUp) tu fais une recherche colonne A de cellule non vide en partant de la cellule A1000. La cellule contenant une valeur est A50 par exemple, la cellule active s'arrête sur A50
si tu ajoutes .offset(1,0) ta cellule active descend d'une ligne pour sélectionner la cellule A51 pour sélectionner la cellule au dessus la syntaxe est .offset(-1,0) 

pour décaler de 3 colonnes par exemple c'est offset(1,3)

mirage23 · Answer

re
je tiens tout d'abord à te remercier pour tes précieuses explications 
maintenant je peux programmer seule des codes pour jouer n'importe comment sur les lignes d'un tableau 
maintenant j'ai une autre question : est-ce que c'est possible de copier automatiquement des fichiers excel (qui sont téléchargés dans un dossier ) dans un tableau somme de tous les tableaux qui existaient déja dans ce fichier (qui ont été copié avant ) ? 
si c'est possible j'aimerais etre dirigé vers la fonction qui pourrait faire ça ( je ne crois pas que les tableaux croisés dinamiques puissent copier de tableaux d'un dossier )

j'espere avoir été assez explicite 

merci d'avance

Mike-31 · Answer

Re,

Je ne comprends pas très bien ton problème, mais si tu veux regrouper dans ton nouveau fichier tes les données venant d'autres fichiers, il n'y a pas de problème si la configuration des fichiers est la même (même colonnes, pas de cellules fusionnées etc ...)

on peut écrire un code complexe mais le plus simple et sage est de le faire manuellement tu sélectionnes tes données et clic droit Copier/clic droit sur la première cellule vide du nouveau classeur et Collage spécial/coche valeur et OK cela ne copiera que tes valeurs sans des formules éventuelles ou des formats

mirage23 · Answer

mais c'est des fichiers téléchargés au fur et à mesure 
il s'agit de fichiers excel contenant des mesures données par des capteurs externes ,chaque periode définie il en sort un nouveau tableau de mesures , ce tableau est placé dans un dossier,comment l'additionner aux tableaux précédents ?

Mike-31 · Answer

Re,

Si les données ne sont pas confidentielles ou ntu les maquilles, peux tu mettre ton fichier à notre disposition avec ce lien

https://www.cjoint.com/

mirage23 · Answer

https://www.cjoint.com/?3Kixhde8URS 

les dossiers étaient trop pleins jusqu'à 14 mega minimum chacun 
ce dossier contient les donnés de chaque mois pour toute  l'année

Mike-31 · Answer

Re,

je n'ai pas winrar sur mon système et pas envi de le télécharger.
Il y a des fournisseurs d'accès qui permettent l'envoi de gros fichier comme free que tu peux tester en espèrant que depuis ton lieu géographique cela marche.
 dans la barre URL saisir 

https://portail.free.fr/ 

clic sur envoi de gros fichier/Parcourir pour sélectionner ton fichier/clic sur Envoyer
 free va généré un lien qu'il restera à coller dans un post. L'opération prend quelques minutes en fonction de l'enconbrement du réseau, la taille du fichier

mirage23 · Answer

http://dl.free.fr/getfile.pl?file=/Yjtu3X1k voici le lien d'un fichier text parmis d'autres, un fichier text represente les données d'une journée, un dossier d'un mois contient 30 fichier par exemple et à la fin on aura un gros dossier d'une année contenant 12 dossier que chaqu'un contient 30 fichiers txt qui doivent etre copier automatiquement sur Excel.

Mike-31 · Answer

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

mirage23 · Answer

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,??

mirage23 · Answer

ya pas moyen , il est installé dans mon entreprise et je dois faire avec .....A+

eriiic · Answer

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

Mike-31 · Answer

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

Programmation excel

25 réponses