Macro calculs & reporting automatisés

Provence Vintage

XLDnaute Occasionnel

• 2 Octobre 2010

• #16

Re : Macro calculs & reporting automatisés

Bonjour le fil,

un p'tit up pour s'encourager sur le week end
a+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Octobre 2010

• #17

Re : Macro calculs & reporting automatisés

Bonjour à tous


Une idée ou deux voir trois en passant
-Données brutes exportées en *csv ou *txt
-Utilisation de la méthode ADO (voir SQL aussi )
-Menu Données/Données externes ( à explorer)

Tout ceci dans le but d'avoir un classeur principal assez léger.

Je te laisse explorer ou non ces pistes

(Moi je vais aux champignons)

 

Vote positif 0 Vote négatif

Provence Vintage

XLDnaute Occasionnel

• 2 Octobre 2010

• #18

Re : Macro calculs & reporting automatisés

Le Fil,


J'y suis presque mais...
J'ouvre via un USF(et donc un autre fichier (a)) un fichier xl(b);
le nom de l'onglet dans le fichier (b) peux changer en permanence!
comment puis-je adapter le code ci-dessous pour supprimer toutes les lignes contenant en colonne B les valeurs "PM" ou "PF"
oups....





#Sub Suppression()
Dim i As Long
Dim cell As Range
With Sheets("Sélection")
For Each cell In .Range("A1:A" & .Range("A65536").End(xlUp).Row)
Critère = cell
For i = Range("A65536").End(xlUp).Row To 3 Step -1
Select Case Cells(i, 1).Value
Case Critère
Cells(i, 1).EntireRow.Delete Shift:=xlUp
End Select
Next
Next
End With

End Sub#


Merci à toutes et tous com d'hab!

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Octobre 2010

• #19

Re : Macro calculs & reporting automatisés

Re

supprimer toutes les lignes contenant en colonne B les valeurs "PM" ou "PF"

Cliquez pour agrandir...

Avec un filtre automatique ou un filtre élaboré
(histoire de gout)

J'en déduis que mes suggestions précédentes n'ont pas séduit ...

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 2 Octobre 2010

• #20

Re : Macro calculs & reporting automatisés

Bonjour tout le monde 🙂

Pour tester, ça serait plus facile avec petit un modèle de fichier à extraire, la dernière question ne semble pas correspondre aux premiers fichiers joints , je ne m'y retrouve pas 😱

Bon week-end à tous 🙂

mth

 

Vote positif 0 Vote négatif

Provence Vintage

XLDnaute Occasionnel

• 3 Octobre 2010

• #21

Re : Macro calculs & reporting automatisés

Hello mth, Stapple, le fil,

Stapple, nous devions ecrire nos messages respectifs en même temps, je n'ai vu le tient que bien après....je ne vois pas comment "piloter" SQL via vba......!
On ne peux pas l'envisager manuellement pour diverses raisons!
Néanmoins,
je lis toujours les sujets filtres auto, filtres élaborés, ...et tcd grace à mth

Bref, vous m'avez donné du boulot 😛

je join le fameux deuxième fichier que je dois intégrer!
l'objectif c:

épurer le fichier
enlever les lignes ou en colonne B figure "PM" ou "PF" 😡
dégager les colonnes "A, C, I, L, M" 🙂
supression des lignes ou date d'arrivée supérieure de +31 jours à la plus ancienne date d'arrivée 😡
Traiter tous les doublons: par colonne C, si deux valeurs identiques, balayer les colonnes E, F, G, H, J si Identique, supprimer les lignes identiques en n'en conservant qu'une!
🙁 😡 🙁
(voir exemple dans fichier, les 4 lignes en rouges sont un ex de ce que l'on trouve quand on tri le fichier par colonne C)

Créer autant d'onglets que de dates d'arrivées, dans le même emplacement de fichier je bosse dessus 😕

ensuite, par journée:
intégration comme dans le premier cas:
copie ds le fichier 2, création d'un tcd listé de même par catégorie
comprenant les colonnes suivantes: CA, Nombre de Chambres, Prix Moyen, moyenne personnes par chambre, Montée en charge (date arrivée - date d'entrée = nombre de jours entre réservation et arrivée client)

j'insère mon code pour copier les résultats du TCD dans ma base de données et on refait la même chose pour le jour suivant........


Pas gagné.....😱


Cijoint.fr - Service gratuit de dépôt de fichiers

Merci à vous
un bon dimanche ensoleillé
a+ sur le fil

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 3 Octobre 2010

• #22

Re : Macro calculs & reporting automatisés

Bonjour 🙂

Tu trouveras un petit essai ci-joint concernant juste la première partie, pour épurer le fichier.
J'ai conscience que le code n'est pas bien écrit 😱, mais vois si cela peut te dépanner en attendant mieux.
Ceci dit, il y a sans doute un cafouillage dans les colonnes à éliminer, ou dans les colonnes à contrôler pour les doublons, et il faudra certainement que tu corriges le code en indiquant les bonnes colonnes.
Pour la suite, un onglet par jour, + un TCD par onglet ... on va générer un monstre non ? Un seul TCD, ou une autre façon de faire permettrait peut-être d'aboutir au résultat que tu souhaites sans générer un fichier aussi lourd ?
A bientôt et bon dimanche,

mth

 

Pièces jointes

• Resenteredon.zip

  37.7 KB · Affichages: 45

Vote positif 0 Vote négatif

Provence Vintage

XLDnaute Occasionnel

• 4 Octobre 2010

• #23

Re : Macro calculs & reporting automatisés

Bonjour mth, stapple, le fil,

la feuille peux être nommée de n'importe laquelle des façons, fichier changeant au quotidien...
Il faudrait donc arriver à lui indiquer Feuil1 quelque soit son nom, ou feuille active 🙁

j'essaye et vous dit
merci encore mth

a+ sur le fil
bonne soirée

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 4 Octobre 2010

• #24

Re : Macro calculs & reporting automatisés

re 🙂

Dans ce cas là, on doit pouvoir remplacer partout par: sheet(1)

@ +

mth

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Octobre 2010

• #25

Re : Macro calculs & reporting automatisés

Bonsoir à tous


Provvence Vinttage

je ne vois pas comment "piloter" SQL via vba......!

Cliquez pour agrandir...

Moi je vois très bien comment le grand Jacques titille le SQL via VBA

(Des grands Jacques (grand par le talent), j'en connais guère qu'un sur XLD)

 

Vote positif 0 Vote négatif

Provence Vintage

XLDnaute Occasionnel

• 5 Octobre 2010

• #26

Re : Macro calculs & reporting automatisés

mth, stapple, le fil

mth, oui en effet, Feuil1 ça marche, je testai aussi qd tu m'as écris 😉
par contre j'ai 2, 3 trois merdouilles qd je décompose le code pour le modifier:
pour les colonnes, par ex, garder le nom n'est pas idiot pour controler (pas de doublon...)🙄

stapple, JM ça aurait pu être J pour Jacques 😀, mais c peux-être aussi Jean-Marie! 😛

a toute ou a + sur le fil

Bonne journée

 

Vote positif 0 Vote négatif

Provence Vintage

XLDnaute Occasionnel

• 5 Octobre 2010

• #27

Re : Macro calculs & reporting automatisés

mth, stapple, Le fil,

j'ai beau tester dans tous les sens, l'écriture du code pour supprimer toutes les lignes ou il y a "PF" et "PM" dans la colonne B bug?
je ne saisi pas!!!
a vous,
merci

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 5 Octobre 2010

• #28

Re : Macro calculs & reporting automatisés

Bonjour à tous 🙂

Il faudrait savoir où ça plante ...
si tu bloques remets ton code (en fait un extrait de ton fichier qui a dû être modifié depuis le dernier post, pour que l'on puisse tester avec toi)

@ +

mth

 

Vote positif 0 Vote négatif

Provence Vintage

XLDnaute Occasionnel

• 5 Octobre 2010

• #29

Re : Macro calculs & reporting automatisés

mth, le fil,

re coucou,
regarde ci joint, les lignes ne sont pas supprimées!
je ne vois pas l'indication colonne 2 dans le code peux-être que celà vient de là

pourquoi :
#Feuil1.Range("$A$1:$M$" & Derlig)#?
et pas juste col 2?

Cijoint.fr - Service gratuit de dépôt de fichiers

Merci beaucoup

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 5 Octobre 2010

• #30

Re : Macro calculs & reporting automatisés

re 🙂

Tu sais quoi ? je suis vraiment confuse car en relisant je ne comprends pas ce que j'ai voulu dire avec ce code 😱 je me demande si j'ai posté la bonne version (mais suis au bureau et l'autre est à la maison)
Du coup je t'ai fait perdre du temps, sincèrement désolée 😱

Voici un autre essai avec ce code remplaçant l'ancien:

Code:

With Feuil1
    .Range("A:A,I:I,L:L,M:M").Delete Shift:=xlToLeft
End With
' retirer les lignes PF et PM
    Dim Derlig As Long
    Derlig = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row 'Sheets("resenteredon347056").Cells(Rows.Count, 1).End(xlUp).Row
 
    Rows(1).AutoFilter
 
    Feuil1.Range("$A$1:$M$" & Derlig).AutoFilter Field:=1, Criteria1:="=PF", _
        Operator:=xlOr, Criteria2:="=PM"
   [COLOR=navy][B] Rows("2:" & Range("A1").End(xlDown).Row).Delete Shift:=xlUp[/B][/COLOR]
 
    Feuil1.Range("$A$1:$M$2537").AutoFilter Field:=1
    Rows(1).AutoFilter
 
Application.ScreenUpdating = True

je te laisse essayer ...

@ +

mth

 

Vote positif 0 Vote négatif