Annale d'examen comment faire

Version imprimable

05/03/2013, 16h06
neron033

1 pièce(s) jointe(s)

Annale d'examen comment faire

Bonjour Bonjour a tous.

je suis étudiante et bloque sur un probleme de programmation en Vba depuis quelques apres-midi. je voudrais bien savoir si il existe un moyen de faire ca

j'ai des données boursiere, 3 tableaux( 4x2000 , 2x1869 et 2x1775 environs) indexer par des dates :
prix taux strike
exemple 01/03/2010 993,3 4,89 888

je veut crée une fonction qui me crée un tableau contenant toute les information pour une date donnée (fusioner les 3 tableaux) manque de chance certaine date n'apparaisse que dans certain tableaux ( :cry: )

Pour les dates qui n'apparaisse pas dans les 3 tableaux: les supprimé.

-Dans un second temps (l'exercice commencre réelement ici mais je bloque sur la premier partie.... :'( )
crée un programme qui permette de remplacer les valeurs manquante et je doit crée un programme qui permete a l'utilisateur de choisir comment les remplacer
-par Zero
-par la valeur précedente
-par une moyenne des valeurs inferieur et superieur

j'ai réussi a "matcher" les series sans crée de programme (avec les bouton excel) mais je souhaiterai avoir un programme vba

c'est une annale d'examen.

je demande beaucoup mais je n'ai aucune idée.
cela m'aiderai beaucoup.

merci d'avoir pris le temps de me lire-desoler si je me fait mal comprendre.
merci a tout ceux qui peuvent m'aider !
bonne apres-midi:ccool:

1 pièce(s) jointe(s)

Bonjour
Cela pourrait commencer ainsi

Citation:

(fusionner les 3 tableaux)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub fusiontab()
Dim cell As Range
Dim date1 As Integer
Dim date2 As Integer
 
For Each cell In Feuil1.Range("a2:a" & Feuil1.Range("a65000").End(xlUp).Row)
    With Feuil1.Range("f:f")
        Set d1 = .Find(cell, LookIn:=xlValues, LookAt:=xlWhole)
        If Not d1 Is Nothing Then date1 = d1.Row
    End With
    With Feuil1.Range("i:i")
        Set d2 = .Find(cell, LookIn:=xlValues, LookAt:=xlWhole)
        If Not d2 Is Nothing Then date2 = d2.Row
    End With
 
    If date1 <> 0 And date2 <> 0 Then
    lig = Feuil1.Range("m65000").End(xlUp).Row + 1
    Feuil1.Range("m" & lig) = Format((cell), "m/d/yyyy")
    Feuil1.Range("n" & lig) = Feuil1.Range("b" & cell.Row)
    Feuil1.Range("o" & lig) = Feuil1.Range("c" & cell.Row)
    Feuil1.Range("p" & lig) = Feuil1.Range("d" & cell.Row)
    Feuil1.Range("q" & lig) = Feuil1.Range("g" & cell.Row)
    Feuil1.Range("r" & lig) = Feuil1.Range("j" & cell.Row)
    End If
Next cell
 
End Sub

Citation:

remplacer les valeurs manquante

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub remplacer()
    For Each cell In Feuil1.Range("p2:p" & Feuil1.Range("p65000").End(xlUp).Row)
        If cell = "" Then
        Z = 0
        vp = Cells(cell.Row - 1, 16)
        moy = (Cells(cell.Row, 14) + Cells(cell.Row, 15)) / 2
 
        Usfreponse.vp.Caption = vp
        Usfreponse.moy.Caption = moy
        Usfreponse.Show
 
            If Usfreponse.TextBox1.Value = "" Then
            Exit For
            Else
            Cells(cell.Row, 16) = Usfreponse.TextBox1.Value
            End If
       End If
    Next cell
End Sub

Pour le reste, consulter le classeur joint.
Je vous laisse le soin de créer le bouton ou la macro qui declenchera l'activation de remplacer. Ceci n'est qu'une façon de faire parmi tant d'autre.
J'ai essayé de faire simple.

06/03/2013, 12h05
neron033

super merci, je vais prendre le temps d'esseyer de comprendre en detaille mais merci beaucoup !!!!:ccool:

en faite , lorque je lance le code ou bien que j'ouvre ton fichier, les colones ne sont pas classé ie: 10yd et index price reste inchangé.

(j'ai le message "une des ligne contient une référence externe cela proviens peut etre d'ici ?? )
06/03/2013, 13h22
keygen08

Citation:

les colonnes ne sont pas classé

??. Ce n'était pas demandé dans l'exercice.
Quelle colonne classée et dans quel ordre. par Vba ou directement sur la feuille?. Les valeurs sont actuellement classée dans l'ordre chronologique.
Pour trouver l'erreur, il faut aller dans le gestionnaire de nom de l'onglet formule.
06/03/2013, 16h23
neron033

C est de ma faute si tu n a pas compris je me suis surement mal exprimé.

Il y a 3 tableaux, contenant des dates et certaines valeurs .

Cependant certain tableaux contienne des dates que d'autres ne contiennes pas. Ainsi il faut supprimer les dates qui n'apparaisse pas dans les 3 tableaux

Et que doit je faire dans l onglet formuiles?
Merci de ton aide !!!merci
06/03/2013, 16h44
keygen08

Citation:

Ainsi il faut supprimer les dates qui n'apparaisse pas dans les 3 tableaux

Prends toi un siege, une boisson, et prends le temps d'analyser le nouveau tableau et tu verras que les lignes dont les dates ne sont pas commune aux 3 tableaux ont été enlevé.

Code:

Et que doit je faire dans l onglet formules?

Rien, sauf si tu ne veux plus ce message d'erreur à l'ouverture du fichier. Je t'indiquai simplement ou chercher.
06/03/2013, 21h25
neron033

pardonne moi car tu va me trouver stupide mais dans le tableau renvoyer par le code :

j'ai par exemple pour la premiere date (25/06/2003 ) la valeur associer a "prix index" est celle du 15/03/2001

ai je fait une mauvaise manip?

je suis desoler que tu ai taper tout ce code et que je bloque sur ca, je tassure que je ne fait pas expres

(en tout cas oui les valeurs qui n'apparaissent pas dans les 3 tableaux sont bien supprimé) :)

ps: pour l'entré je doit faire une iputbox ??

Effectivement, il y a un cheveu dans la soupe.
Je corrige. Donc voici la correction

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Private Sub fusiontab()
Dim cell As Range
Dim date1 As Integer
Dim date2 As Integer
Application.ScreenUpdating = False
For Each cell In Feuil1.Range("a2:a" & Feuil1.Range("a65000").End(xlUp).Row)
    With Feuil1.Range("f:f")
        Set d1 = .Find(cell.Value, LookIn:=xlValues, LookAt:=xlWhole)
        If Not d1 Is Nothing Then date1 = d1.Row
    End With
    With Feuil1.Range("i:i")
        Set d2 = .Find(cell.Value, LookIn:=xlValues, LookAt:=xlWhole)
        If Not d2 Is Nothing Then date2 = d2.Row
    End With
 
    If date1 <> 0 And date2 <> 0 Then
    lig = Feuil1.Range("m65000").End(xlUp).Row + 1
    Feuil1.Range("m" & lig) = Format((cell), "m/d/yyyy")
    Feuil1.Range("n" & lig) = Feuil1.Range("b" & cell.Row)
    Feuil1.Range("o" & lig) = Feuil1.Range("c" & cell.Row)
    Feuil1.Range("p" & lig) = Feuil1.Range("d" & cell.Row)
    Feuil1.Range("q" & lig) = Feuil1.Range("g" & date1)
    Feuil1.Range("r" & lig) = Feuil1.Range("j" & date2)
    End If
Next cell
Application.ScreenUpdating = True
 
End Sub

07/03/2013, 20h11
neron033

houuuuuuura super merci

hey super, effectivement ca marche a merveille.
je te remercie pour ton aide et ta patience

en abusant pourrai tu m'aider pour crée le bouton qui declanche la macro??
07/03/2013, 20h46
keygen08

Sous excel-2007-2010 : Onglet devellopeur, Inserer, bouton de commande dans contrôle active X.
Clic droit sur le bouton, propriété. Redéfinir (name) par le nom de la macro que le bouton doit déclencher - Fusiontab -

Sous excel 2003 : clic droit dans le menu en haut pour afficher la barre d'outil Visual basic.
Afficher la boite a outils controles, selectionner bouton de commande.
Clic droit sur le bouton, propriété. Redéfinir (name) par le nom de la macro que le bouton doit déclencher - Fusiontab -
Si tu as un souci, precise moi la version excel que tu utilise.
07/03/2013, 22h30
neron033

Ok donc c'est la version 2010,

Je souhaite utiliser userform1 que tu cree dans la preocedire " remplacer"
Je suis tes indication puis dans la fenetre "proprétés" j'entre :-remplacer - en face de name.

Il me repond " nom ambigu detecter: remplacer"

:,(

C est super tu programme depuis lontemps?
08/03/2013, 11h07
keygen08

1 pièce(s) jointe(s)

Bonjour
La procedure existe déjà, il faut couper la procedure de l'ancienne emplacement pour la coller sur ton bouton.
Clic droit sur le bouton, visualiser le code.

Tu me parle de userform ?? J'ajoutais moi un bouton sur la feuille.

Pour créer le bouton dans un userform, voir l'image jointe
08/03/2013, 12h25
neron033

Merci.
Si j avait souhaiter que le usfreponse me replace "toute les valeur manquante" par le choix( 0 , precedente ,moyenne) de l utilisateur .
Que doit je modifier dans le code?

Merci pour la photo explicative :)

Le message me renvoi " la valeur de a1 est nulle " ( quand j execute usfreponse)
Or je vois bien que tu dit ( 2eme ligne de la fonction remplacer) colonne p .

Pourquoi donc cherche il dans la colone a?
08/03/2013, 16h03
keygen08
Citation:

la valeur de a1 est nulle

Cette label text n'est pas initialisé comme une variable, il ne faut donc pas s'occupé de ce quelle raconte.
On peut en revanche la modifié pour qu'elle nous indique la cellule qui effectivement est vide.
1-afficher les propriété du label qui nous interesse
2-Vider le caption
3- Ajouter une ligne comme suit
Code:

1 2 Private Sub remplacer() Dim cell As Range
Puis celle ci
Code:

1 2 Usfreponse.moy.Caption = moy Usfreponse.Label1.Caption = "La valeur de la cellule P" & cell.Row & " est nulle , voulez vous la remplacer par :"
La premiere ligne servant de repere
08/03/2013, 16h32
neron033

Peut on modifier toutes les valeurs manquante d'un coup?
08/03/2013, 17h04
keygen08

1 pièce(s) jointe(s)

Citation:

me remplace "toute les valeur manquante"

Pas mal de modification a faire, je te laisse voir le fichier joint.
J'ai fait le choix d'afficher un autre userform qui laisse à l'utilisateur la possibilité de valider la valeur de remplacement avant de tout changer.
au fait :
Anal d'examen est très different de annales d'examen.:P
08/03/2013, 22h36
neron033

il me retourne un message d'erreur (ligne 19 pour valeur precedente) et ligne 20 pour moyenne)

sinon je pense que ca marche,

je vais rediger au propre je peut t'envoyer ce que j'ai fait si tu veut - avec les questions suivantes
(mais sa va me prendre du temps haha)