Discussion :

[slakhdine]

bonjour a tous

je suis en stage et je suis vraiment perdu . le sujet de stage c'est de faire des tableaux de bords automatisé avec des indicateurs de performances a partir des différents bases de données convertis en fichiers excel ; ils doivent être automatiquement ce mettent a jour chaque fois quand réalise une action et qu'on ajoute des données sur la base . la principale chose que je veut savoir et j'aimerai avoir une aide de vous svp c'est l'outil que je dois appuyé sur et la méthode correspond a ce type de travail.

merci cordialement

[mjpmjp]

bonjour,

pas de panique ...

fait l'inventaire de ce que tu as,... as tu un tableau --> fait une capture et montre nous

@+JP

[jerome.vaussenat]

Salut,

Le sujet est effectivement très vaste.

Quand on parle de tableau de bord, la première chose qui me vient à l'esprit, c'est la notion d'indicateurs.

Le but de ton tableau de bord est de permettre de visualiser ces indicateurs de manière visuelle et rapide.

Donc, une des premières chose à faire, c'est de voir quels sont les indicateurs "pertinents" à mettre en oeuvre.
A partir de là, quelles sont les données nécessaires pour les obtenir, les calculs possibles (voir TCD) et un petit emballage sous forme visuel pour faire plaisir (Graph, MEFC, ...)

On ne mettra pas les même indicateurs en place pour suivre la qualité de production d'un OS ou l'efficacité d'un commercial dans le suivi de ses visites ...

[slakhdine]

bonjour,

pas de panique ...

fait l'inventaire de ce que tu as,... as tu un tableau --> fait une capture et montre nous

@+JP

voila les fichier et la capture représente un exemple d'un tableau de bord ms il faut rajouter une colonne advence booking qui se trouve dans la feuille "Page1_1"
c'est la feuille des données qu'a partir je dois faire le tableau de bord .
pour ajouter la colonne il ya une condition je l'ai représente par cette procédure VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub advence_booking()
i = 202
Dim advence_booking As Integer
Dim Réservation_à_lavence As Characters
Do While Sheets("Page1_1").Cells(i, 2).Value <> ""
 
advence_booking = Range("F3")
 
If advence_booking >= 0 And advence_booking <= 2 Then Réservation_à_lavence = "0~2"
If advence_booking >= 3 And advence_booking <= 7 Then Réservation_à_lavence = "3~7"
If advence_booking >= 8 And advence_booking <= 13 Then Réservation_à_lavence = "8~13"
If advence_booking >= 14 Then Réservation_à_lavence = "14+"
 
End If
 
i = i + 1
Loop
 
End Sub

ms je ne suis pas sur que c'est correcte .

[mjpmjp]

bonjour,
si j'ai compris, dans la "Page1_1" ceux trouvent les infos,
dans ton joli tableau (image) tu doit ajouter une colonne "Advence Booking" --> ou plus exactement tu veux écrire dans cette colonne

en fonction des info dans "Page1_1" colonne "B", ligne 202 à ligne vide,

tu prends le contenu de la cellule "F3".........ICI.... il y a potentiellement une erreur

tu traite ce contenu et "remplis" la variable "Réservation_à_lavence"

tu veux écrire le contenu de la variable "Réservation_à_lavence" qui contient par exemple "0~2"........ICI...tu n'as pas "codé" comment écrire

par exemple : Sheets("PageDuTableau").range(ColonneAdvenceBooking & Ligne).value = Réservation_à_lavence


tu devrais lever ton fichier des pieces jointes, car tu n'as pas modifié (éffacé) les données , qui sont perso à l'entreprise !!!

je n'avais pas vu ce lien, .........................................maintenant je ne comprends pas l'image du début
j'avais donc bien analysé ton code,
l'onglet "Advanced bookings" et le tableau existe,.....maintenant je ne comprends pas ce que tu veux exactement

@+JP

[slakhdine]

merci pour vos aides .

est ce que vous pouvez m'aider à décrocher l'erreur dans ce code .
prcq il me donne un erreur " end if sans bloc if "

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub advence_booking()
 
Dim advence_booking As Integer
Dim Réservation_à_lavence As String
 
advence_booking = Range("F3")
If advence_booking >= 0 And advence_booking <= 2 Then Réservation_à_lavence = "0~2"
If advence_booking >= 3 And advence_booking <= 7 Then Réservation_à_lavence = "3~7"
If advence_booking >= 8 And advence_booking <= 13 Then Réservation_à_lavence = "8~13"
If advence_booking >= 14 Then Réservation_à_lavence = "14+"
End If
Range("BN3") = Réservation_à_lavence
 
End Sub

[mjpmjp]

bonjour,

Range("BN3") = Réservation_à_lavence

"BN3" --> c'est donc dans l'onglet "Page1_1" ?

pour dire dans quelle page --> Sheets("Page1_1")

pour dire la cellule --> Range("BN3") --> MAIS, tu dis quoi à cette cellule ?

tu dis que tu modifies sa valeur, donc --> Range("BN3").value = la nouvelle valeur....

pour récapituler :
dans page ---------,dans cellule--,valeur = la nouvelle valeur....
Sheets("Page1_1").Range("BN3").value = Réservation_à_lavence

@+JP

[mjpmjp]

bonjour,

tu prends le contenu de la cellule "F3".........ICI.... il y a potentiellement une erreur

en ce qui concerne la cellule Range("BN3") ou , ICI , Range("F3")

"BN" et "F" sont les colonnes... ok

comme tu l'as fait dans -- > Sheets("Page1_1").Cells(i, 2).Value

remplace le "3" par un numéro de ligne --> Sheets("Page1_1").Range("BN" & i).value = Réservation_à_lavence

idem pour "F3" --> advence_booking = Sheets("Page1_1").Range("F" & i).value

@+JP

[slakhdine]

bonjour,


en ce qui concerne la cellule Range("BN3") ou , ICI , Range("F3")

"BN" et "F" sont les colonnes... ok

comme tu l'as fait dans -- > Sheets("Page1_1").Cells(i, 2).Value

remplace le "3" par un numéro de ligne --> Sheets("Page1_1").Range("BN" & i).value = Réservation_à_lavence

idem pour "F3" --> advence_booking = Sheets("Page1_1").Range("F" & i).value

@+JP

voila j'ai remplacé par ce que vous m'avez montré

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub advence_booking(advence_booking As Integer, Réservation_à_lavence As String)
 
 
advence_booking = Sheets("Page1_1").Range("F" & i).Value
 
If advence_booking >= 0 And advence_booking <= 2 Then Réservation_à_lavence = "0~2"
If advence_booking >= 3 And advence_booking <= 7 Then Réservation_à_lavence = "3~7"
If advence_booking >= 8 And advence_booking <= 13 Then Réservation_à_lavence = "8~13"
If advence_booking >= 14 Then Réservation_à_lavence = "14+"
End If
 
Sheets("Page1_1").Range("BN" & i).Value = Réservation_à_lavence
 
End Sub

ms dommage n'as pas été exécuté

[mjpmjp]

bonjour,

ce code fonctionne --> tu l’écris dans un "module" (dans VBA à droite, insert module)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Public Sub advence_booking(i As Integer)
    Dim advence_booking As Integer
    Dim Réservation_à_lavence As String
    '-----
    Do While Sheets("Page1_1").Cells(i, 2).Value <> ""
        'lecture colonne "Advence Booking"
        advence_booking = Sheets("Page1_1").Range("F" & i).Value
        'traitement
        If advence_booking >= 0 And advence_booking <= 2 Then Réservation_à_lavence = "0~2"
        If advence_booking >= 3 And advence_booking <= 7 Then Réservation_à_lavence = "3~7"
        If advence_booking >= 8 And advence_booking <= 13 Then Réservation_à_lavence = "8~13"
        If advence_booking >= 14 Then Réservation_à_lavence = "14+"
        'écriture colonne "BN"
        Sheets("Page1_1").Range("BN" & i).Value = Réservation_à_lavence
        'ligne suivante
        i = i + 1
    Loop
    '----- fin
End Sub

pour appeler le code --> tu mets un bouton --> dans le code du bouton, tu écrits

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub CommandButton1_Click()
    Call advence_booking(202)
End Sub

@+JP

[slakhdine]

merci bcp. jai colle ça . mais j'arrive pas a l'executer

[mjpmjp]

bonjour,
tu as mis un bouton ?


pour l'exemple : dans la feuille "Page1_1"

@+JP

[slakhdine]

Non franchement. je dois la faire avec un userForm ?

[mjpmjp]

bonjour,
dans VBA, (ou tu tapes le code) dans le menu (ruban)

dans inserer, cherche vers le bas le contrôle "bouton" (ou label)
tu clique dessus...il apparaît une croix....et après dans la feuille en tenant le bouton gauche (souris) tu "formes" le bouton

tu clique dessus...çà te mène dans le vba de la feuille "Page1_1" tu copies le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub CommandButton1_Click()
    Call advence_booking(202)
End Sub

dans le menu (ruban) à coté de insérer , désélectionne le mode création

et pour le module c'est ok ?


@+JP

[slakhdine]

MERCI . j'ai fait ts ce que vous m'avez dit ms quand je clique sur la bouton ne donne rien
voila les capture de ce que j'ai fait

[mjpmjp]

bonjour,
l'action "click" du bouton doit être dans le VBA de la page
regarde dans le fichier modif en piece jointe
@+JP

[slakhdine]

ça marche avec vous . moi j'ai ce que vous m'avez dit
vous pouvez me montrer ce qu'il donne quand tu Click sur le bouton

[mjpmjp]

bonjour,
tu as téléchargé le fichier modif ? suivre le lien

@+JP

[slakhdine]

oui j'ai fait comme il s'est indiqué sur la pièce jointe

[mjpmjp]

bonjour,
tu as ouvert le fichier ?
regarde BN202 est vide...si tu clique sur bouton...BN202 n'est plus vide?

regarde le code vba (Feuille4)Page1_1

@+JP