Discussion :

[lapetitebeurette]

Bonjour,
- Langage de programmation : VBA
- Système d'exploitation : Win,mac
- Logiciel et outils utilisé : Excel
- Code ou partie de code concerné :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
Sub remplir(tableau)
    Dim i As Integer
    For i = LBound(tableau) To UBound(tableau)
        tableau(i) = InputBox("entrez le chiffre de rang " & i)
    Next i
End Sub
----------------------------------------------------------------------------
Sub afficheTab(tableau)
    Dim i As Integer
    Dim texte As String
    texte = ""
    For i = LBound(tableau) To UBound(tableau)
        texte = texte & tableau(i) & Chr(13)
    Next i
    MsgBox (texte)
End Sub
' Affiche les éléments du tableau les uns sous les autres
' utilisez un ForEach
Sub afficheTabEach(tableau)
 
End Sub
----------------------------------------------------------------------------------------
Sub P_P_1()
    Dim liste(4) As Integer
    Call remplir(liste)
    Call afficheTabEach(liste)
End Sub
' Affiche les éléments du tableau les uns sous les autres
' utilisez un While
Sub afficheTabWhile(tableau)
 
End Sub
--------------------------------------------------------------------------------------------------
Sub P_P_2()
    Dim liste(4) As Integer
    Call remplir(liste)
    Call afficheTabWhile(liste)
End Sub
-----------------------------------------------------------------------------------------------------
' retourne le nombre d'éléments du tableau inférieur au paramètre nb
Function compteur(tableau, nb)
For Each element In tableau
    If element < nb Then
        cpt = cpt + 1
    End If
Next element
 
compteurFE = cpt
End Function
----------------------------------------------------------------------------------------------------
Sub P_P_3()
    Dim liste(4) As Integer
    Dim nombre As Integer
    Call remplir(liste)
    nombre = InputBox("entrez un nombre")
    MsgBox (compteur(liste, nombre))
End Sub
' retourne la somme des ecarts avec le paramètre nb
Function ecarts(tableau, nb)
 
End Function
--------------------------------------------------------------------------------------------------
Sub P_P_4()
    Dim liste(4) As Integer
    Dim nombre As Integer
    Call remplir(liste)
    nombre = InputBox("entrez un nombre")
    MsgBox (ecarts(liste, nombre))
End Sub
' retourne si un nombre multiple de nb se trouve dans le tableau
Function appartient(tableau, nb)
 
 
End Function
--------------------------------------------------------------------------------------------------------
Sub P_P_5()
    Dim liste(4) As Integer
    Dim nombre As Integer
    Call remplir(liste)
    nombre = InputBox("entrez un nombre")
    MsgBox (appartient(liste, nombre))
End Sub
' retourne la somme des éléments se trouvant entre place1 et place2
Function sommePlace(tableau, place1, place2)
 
 
 
End Function
-----------------------------------------------------------------------------------------------------
Sub P_P_6()
    Dim liste(4) As Integer
    Dim nb1 As Integer
    Dim nb2 As Integer
    Call remplir(liste)
    nb1 = InputBox("entrez le rang de départ")
    nb2 = InputBox("entrez le rang de fin")
    MsgBox (sommePlace(liste, nb1, nb2))
End Sub
' retourne le nombre decellules en gras
Function gras(cellules)
 
End Function
-------------------------------------------------------------------------------------------
' affiche dans la colonne C
' le nom et le prènom séparés par un espace
' des noms de la colonne A
' des prénoms de la colonne B
Sub nomPrenom()
End Sub
' remplace tous les nombres supérieurs à nb par nb
Sub limite(tableau, nb)
End Sub
-----------------------------------------------------------------------------------------------
Sub P_P_7()
    Dim liste(4) As Integer
    Dim nombre As Integer
    Call remplir(liste)
    nombre = InputBox("entrez un nombre")
    Call limite(liste, nombre)
    Call afficheTab(liste)
End Sub
-------------------------------------------------------------------------------------------------
' retourne combien d'éléments sont commun aux deux tableaux
Function compare(tableau1, tableau2)
End Function
Sub P_P_8()
    Dim liste1(4) As Integer
    Dim liste2(4) As Integer
    Call remplir(liste1)
    Call remplir(liste2)
    MsgBox (compare(liste1, liste2))
End Sub
 
------------------------------------------------------------------------------------------
' met en couleur les cellules à partir de D1
' avec les valeurs du tableau
' utilisez ColorIndex
Sub couleur(tableau)
End Sub
Sub P_P_9()
    Dim liste(4) As Integer
    Call remplir(liste)
    Call couleur(liste)
End Sub

- Explication lié à votre problème : je voudrais faire fonctionner toutes les formules en commentaire en gris

Merci d'avance