Macro - déplacement de cellules en fonction de valeurs... Résolu/Fermé

Question

Salut à tous,
Je débute sur excel, je suis un novice en macro, j'ai fait qqs macro via l'enregistreur... certaines ont fonctionné, mais celle ci ne fonctionne pas !! je vous explique mon problème.
je récupère des fichiers csv que je veux mettre en forme pour pouvoir analyser les données plus facilement.

J'ai un tableau avec 4 colonnes et 300 lignes (pour simplifier).
Colonne 1 : la date
colonne 2:  l'heure
Colonne 3: Les 100 premières lignes sont le mot "débit", les 100 suivantes le mot "taux" et les 100 dernières le mot "vitesse",
Colonne 4: les 100 premières lignes sont la valeur du débit, les 100 suivantes la valeur du taux et les 100 dernières la valeur de la vitesse. 

Je veux obtenir 5 colonnes de 100 lignes:
Colonne 1 : la date
colonne 2:  l'heure
colonne 3 : la valeur du débit
colonne 4: la valeur du taux
colonne 3 : la valeur de la vitesse

EDIT: petite precision. j'ai pris 100 mais c'est variable d'un fichier a l'autre. IL faut faire le controle de l'attribut (debit, taux ou vitesse) et le ranger dans l'ordre sur une autre colonne en fait) 

Si vous avez une idee, ca me serait très utile. Avec l'enregistreur de macro, et le filtre auto sur la colonne 3 (je selectionne la vitesse, ca filtre, je copie/colle dans une autre colonne, etc.. mais ca ne marche pas...

Merci a vous

ccm81 · Answer

Bonjour

Un exemple sans macro à adapter
https://www.cjoint.com/?3ACs741lOp0 

RQ. si tu tiens à tout prix a une macro, tu dis

Cdlmnt

chingy1997 · Answer

oui, merci pour ta réponse.
ton système fonctionne bien mais je prefere une macro car j'ai des 10 aines de fichiers à analyser (peut etre 100), une macro serait plus pratique.. 

https://www.cjoint.com/?DADjLQH96R5

Voici mon fichier original (tres allégé, plus de 22k lignes sinon)
Merci de votre aide.
Salutations,

eriiic · Answer

Bonjour à tous, 
 
Une proposition pendant que ccm81 prend son petit dej :
Sub synthese()
    Dim derlig As Long, nbData As Long
    derlig = Cells(Rows.Count, 1).End(xlUp).Row
    nbData = (derlig - 1) \ 3
    [N:R].ClearContents ' nettoyer
    [N1] = "groupage": [O1] = "nature": [P1] = "Débit": [Q1] = "Taux": [R1] = "Vitesse" ' titres
    [N2:O2].Resize(nbData) = [I2:J2].Resize(nbData).Value ' date-heure
    [P2].Resize(nbData) = [L2].Resize(nbData).Value ' Débit
    [Q2].Resize(nbData) = [L2].Offset(nbData).Resize(nbData).Value ' Taux
    [R2].Resize(nbData) = [L2].Offset(nbData * 2).Resize(nbData).Value ' Vitesse
    [O:O].NumberFormat = "hh:mm:ss"
End Sub

eric

chingy1997 · Answer

Merci Eric pour ta reponse mais il me semble que la macro n'est pas complete, non ?

chingy1997 · Answer

Alors, ca marche bien sur ton tableau mais ca bug sur le mien...

Il met dit 
"erreur d'exécution "1004"
erreur définie par l'application ou par l'objet

Et la ligne ci-dessous est surlignée.

[N2:O2].Resize(nbData) = [I2:J2].Resize(nbData).Value ' date-heure

Mais c'est pas loin...

chingy1997 · Answer

Si si, ca marche parfaitement bien.

Mon soucis, c'est que mon fichier csv contient 70000 lignes env., et avec excell 2000, il l'ouvre pas completement, il tronque les dernieres lignes... 

nbData = (derlig - 1) \ 3 : ce calcul ne peux pas se faire correctement, ca n'est pas un entier ? 
Si le soucis vient de la, il faudrait prendre nbData=nb de lignes de débit


Je viens de tester en tronquant également les derneires lignes de debit, taux et vitesse et ca marche. 

Confirmes moi ca stp. 
merci

chingy1997 · Answer

Bonjour,
Petit retour sur ta macro. Elle marche avec la nouvelle NbData, sauf pour les vitesses (les lignes tronquées du bas de tableau). 
Les colonnes sont bien créés, elles sont remplies sauf la colonne vitesse qui est vide.
Faudrait créer une nbData spéciale pour les vitesses, genre

Sub MEF5()
    Dim derlig As Long, nbData As Long, nbData2 As Long
    derlig = Cells(Rows.Count, 1).End(xlUp).Row
    nbData = Evaluate("COUNTIF(K:K,""Débit"")")
    nbData2 = Evaluate("COUNTIF(K:K,""Vitesse"")")
    [N:R].ClearContents ' nettoyer
    [N1] = "groupage": [P1] = "Débit": [Q1] = "Taux": [R1] = "Vitesse" ' titres
    [N2:O2].Resize(nbData) = [I2:J2].Resize(nbData).Value ' date-heure
    [P2].Resize(nbData) = [L2].Resize(nbData).Value ' Débit
    [Q2].Resize(nbData) = [L2].Offset(nbData).Resize(nbData).Value ' Taux
    [R2].Resize(nbData2) = [L2].Offset(nbData2 * 2).Resize(nbData2).Value ' Vitesse
    [O:O].NumberFormat = "hh:mm:ss"
End Sub


Ca deconne un poil, les 1eres lignes des vitesses sont des taux, ca se decale un chouya...

chingy1997 · Answer

Nouvelle version: 

Sub MEF5()    Dim derlig As Long, nbData As Long, nbData2 As Long, nbData3 As Long    derlig = Cells(Rows.Count, 1).End(xlUp).Row    nbData = Evaluate("COUNTIF(K:K,""Débit"")")    nbData2 = Evaluate("COUNTIF(K:K,""Taux"")")    nbData3 = Evaluate("COUNTIF(K:K,""Vitesse"")")    [N:R].ClearContents ' nettoyer    [N1] = "groupage": [P1] = "Débit": [Q1] = "Taux": [R1] = "Vitesse" ' titres    [S1] = nbData: [S2] = nbData2: [S3] = nbData3    [N2:O2].Resize(nbData) = [I2:J2].Resize(nbData).Value ' date-heure    [P2].Resize(nbData) = [L2].Resize(nbData).Value ' Débit    [Q2].Resize(nbData2) = [L2].Offset(nbData).Resize(nbData2).Value ' Taux    [R2].Resize(nbData3) = [L2].Offset(nbData + nbData2).Resize(nbData3).Value ' Vitesse    [O:O].NumberFormat = "hh:mm:ss"End Sub

Ca marche bien à priori. Tu m'as bien aidé, merci.

Par contre, j'ai un autre soucis maintenant.. Je récupère des données pourries avec des "trous", cad avec les plages horaires qui n'existent pas... Ce sont des données 6', l'idéal serait de pouvoir controler si le pas de chaque ligne est bien de 6', sinon rajouter le nombre de lignes manquantes (si la station de comptage n'a pas fonctionnée pdt 1/2h, il manque 5 lignes), et mettre l'attribut qui va bien (pour que la macro precedente fonctionne).

Donne moi ton avis sur la faisabilité de la chose (c'est une macro spécifique à appliquer avant cette macro de mise en forme).
Encore merci.

chingy1997 · Answer

Typiquement, je controle en faisant une mise en forme conditionnelle sur une nouvelle colonne créée, qui calcule le pas de 6'. Si la valeur est différente de 6', ca se met en rouge. Je passe l'intégralité du tableau comme ça et je saute autant de lignes que d'occurences manquantes...  

https://www.cjoint.com/?DAEjzgds575
Sur cet exemple, manque 42' , je saute 6 lignes. 

Malheureusement, je ne peux plus rajouter de lignes... ARf

chingy1997 · Answer

non, les stations agrègent les données sur 3 mois, c'est un fichier par trimestre.

chingy1997 · Answer

Bonjour et merci encore de ton aide. 

1) Pour les titres, peu importe. groupage nature Débit Taux Vitesse me va.

2), 3) et 5)  Il ne manque jamais de données sur une meme ligne. Par contre, il manque systématiquement des lignes dans le tableau. Il ne faut jamais supprimer de lignes. 

4) Les lignes à rajouter (pour conserver le pas de 6') pourraient être complétées par la date et l'heure (avec cellules correspondantes rouges pour avertir). Par contre, il ne faut pas rajouter de données (surtout pas 0). 

5bis) le rapport peut donner le nombre total de lignes du tableau et le nombre de lignes ajoutées.

voila

chingy1997 · Answer

Non, les pas sont toujours de 6' et les trous sont toujours des multiples de 6'
les données sont toujours enregistrées aux mêmes heures, le pas est régulier. 

tu peux générer d'office toutes les date-heure par pas de 6'. 
Du 1er octobre 2012 au 31 décembre 2012, tous les tableaux doivent contenir 22081 lignes, qui sont le nombre d'occurrences de 6 min durant ces 3 mois. 

Le tableau généré doit donc contenir 22081 lignes, avec les lignes vides qui correspondent aux trous dans les données.

eriiic · Answer

Désolé mais je n'aime pas mettre de titres qui ne correspondent pas aux données. J'ai donc mis : jour, sequence

J'ai oublié le rouge, je verrais ça ce soir.
Dans le rapport faut-il le nombre de lignes vides ?

A tester en long en large et à travers : https://www.cjoint.com/?DAFqZctlpRL
Accepte jusqu'à 250 jours, soit 8 mois. Limite de 2000 mais qui te suffira donc.
Si tu peux ressortir les anomalies tant que c'est frais dans ma tête.

eric
 
edit: regarde les date-heure sur de gros fichiers. Il y a souvent des erreurs d'arrondi difficiles à maitriser sur la seconde.

En plus du merci (si si, ça se fait !!!), penser à mettre en résolu lorsque c'est le cas (en haut vers votre titre). 
Merci

chingy1997 · Answer

Bonjour Eric,

Apres avoir testé ton fichier, j'ai une erreur d'exécution '13' (Incompatibilité de type) à cette ligne:

[A2].Resize(UBound(datas, 2), UBound(datas)) = Application.Transpose(datas)


Par contre, j'ai un doute sur l'ordre des colonnes. Tu écris : "Désolé mais je n'aime pas mettre de titres qui ne correspondent pas aux données. J'ai donc mis : jour, sequence"
Sur mes CSV, la 1ere colonne "jour" comporte les valeurs "ouvré, samedi ou dimanche". La colonne séquence est un N (je sais même pas a quoi ceci correspond pour te dire).
La colonne groupage est bien la date de la prise de mesure. 
La colonne nature est bien l'heure de la prise de mesure. 

Ca pourrait pas venir de là ?

eriiic · Answer

Bonjour,

Par contre, j'ai un doute sur l'ordre des colonnes
Tu ouvres mal ton csv. Le séparateur est 'Tab' et non 'espace'. 'Nature de mesure' compte pour 3 champs pour toi...
 
Les libellé sont quand même plus logiques...
De toute façon tu n'as pas à t'en soucier, c'est la macro qui lit le fichier (mais pas dans excel à cause de ta limitation sur 2000). Et si tu préfères d'autres titres tu peux les modifier (ils sont en fin de macro)

Apres avoir testé ton fichier, j'ai une erreur d'exécution '13' (Incompatibilité de type) à cette ligne 
Sur le fichier csv de test que tu as as fourni ? Là je serai embêté, ça serait une autre limitation de 2000 (que je n'ai pas et que je ne connais pas)
Sinon fournir le fichier csv en défaut (réduit si possible, tout en ayant l'erreur).

eric

chingy1997 · Answer

ah oui, exact pour les noms de colonne :D

Je t'enverrais bien un original par mail (5Mo env)... 

Sinon, du bureau, difficile de trouver un site de DDL qui ne soit pas filtré... (cjoint.com n'est pas filtré, c'est miraculeux mais les fichiers trop volumineux ne peuvent pas être envoyés)

chingy1997 at yahoo.fr

chingy1997 · Answer

Bonjour Eric,
Ça veut pas... J'ai ce message d'erreur (le même qu'hier), mais à une ligne différente.. 

https://www.cjoint.com/?DBehHzN16vM

La ligne surlignée est celle ci :
  If Application.Version >= 11 Then    

C'est rageant car ça a l'air de marcher chez toi.

eriiic · Answer

Bonjour,

bouton créé, très pratique... 
Si tu n'utilisais pas le bouton pour lancer la macro il est possible que tu ne lançais pas la bonne procédure.
C'est vrai que je n'avais pas mis d'explication, mais ça me paraissait évident. Du coup je me demande si la dernière modif est vraiment nécessaire.
Met en commentaire qcq lignes avec une ' pour tester, elle sera plus rapide :
'    If Application.Version >= 11 Then
'        ' excel >= 2003
        [A2].Resize(UBound(datas, 2), UBound(datas)) = Application.Transpose(datas)
'    Else
'        ' excel 2000
'        For lig = 1 To UBound(datas, 2)
'            For col = 1 To 5
'                Cells(lig + 1, col) = datas(col, lig)
'            Next col
'        Next lig
'    End If

Maintenant que celle ci est aboutie, je vais essayer de me faire un bouton dans les menus d'excel, je crois que c'est possible. (enfin, j'en suis sur car j'en ai déjà un dans ma version d'excell)  
Plus simple, tu peux juste ajouter un raccourci clavier sur la macro principale.

genre le code de la station (en fait les cellules de A1 à E2)
???
Ton fichier csv comporte une ligne de titre, la ligne 2 est une ligne de donnée.
A moins que tu n'aies pas fourni un fichier csv original ? Ce qui ne serait pas terrible...

mais je ne sais pas comment coller les infos dessous, dans les cellules F2 à J2 (pour que j'aie l'info une fois au moins). 
Comme je ne sais pas d'où tu sors ces données et que ta capture écran n'apporte rien difficile de répondre.
Le principe est : 
range("F2") = ta_donnée
ou en raccourci :
[F2] = ta_donnée

eric

En plus du merci (si si, ça se fait !!!), penser à mettre en résolu lorsque c'est le cas (en haut vers votre titre). 
Merci

eriiic · Answer

J'avais compris l'utilité du bouton :D 
Je me disais aussi... ;-)
Donc c'est bien 2000 qui est plus chatouilleux sur les conversions automatiques des variants

Pour le reste voilà :
https://www.cjoint.com/?DBeqXf3mZ7U

Mais les valeurs 'Station Code Station Code Canal Lib Canal Libellé groupage' sont identiques sur toutes les lignes.
Cette valeur n'était pas à copier sur une (ou toutes) ligne ?

Tu n'oublieras pas de mettre en résolu le moment venu
eric

edit: modif du fichier. J'avais été trop généreux et mis tous les noms des champs
 
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu lorsque c'est le cas (en haut vers votre titre). 
Merci

chingy1997 · Answer

Bon ben, merci pour ton aide, Eric.
T'es un bon, ya pas a dire :)
A bientôt peut être sur ce forum..
Salutations,

Macro - déplacement de cellules en fonction de valeurs...

20 réponses

Discussions similaires