Discussion :

[mechatikhaled]

bonjour j ai creer un fonction pour button mais je veux que cette fonction sera comme macro complemantaire comment faire pour faire entré les données plage et utiliser comme fonction comme somme

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
 
 
i = 1
j = 1
k = 1
cpt = 0
cpt1 = 0
 
 
While Not IsEmpty(Feuil1.Cells(i, 1))
 
 If CInt(Left(Feuil1.Cells(i, 1), 1)) = j Then
     cpt = cpt + Feuil1.Cells(i, 1)
 End If
 
 If CInt(Left(Feuil1.Cells(i, 1), 1)) <> j Then
    ThisWorkbook.Sheets("Feuil1").Select
    Feuil1.Cells(i, 1).Select
    Selection.EntireRow.Insert
    Feuil1.Cells(i, 1) = cpt
    Feuil1.Cells(i, 1).Font.Color = vbRed
    cpt1 = cpt1 + cpt
    i = i + 1
    j = j + 1
    cpt = Feuil1.Cells(i, 1)
 
 End If
 
i = i + 1
 
Wend
    ThisWorkbook.Sheets("Feuil1").Select
    Feuil1.Cells(i, 1).Select
    Selection.EntireRow.Insert
    Feuil1.Cells(i, 1) = cpt
    Feuil1.Cells(i, 1).Font.Color = vbRed
    cpt1 = cpt1 + cpt
    i = i + 1
 
    Feuil1.Cells(i, 1).Select
    Selection.EntireRow.Insert
    Feuil1.Cells(i, 1) = cpt1
    Feuil1.Cells(i, 1).Font.Color = vbBlue

[ouskel'n'or]

Bonjour mechatikhaled,
Ce ne serait pas te rendre service que t'indiquer comment faire de ta macro une macro complémentaire avant que tu aies compris certaines choses... Sans parler de la syntaxe, dans le code suivant tu as déjà un problème de cohérence.

If CInt(Left(Feuil1.Cells(i, 1), 1)) <> j Then
ThisWorkbook.Sheets("Feuil1").Select

Thisworkbook correspond au classeur contenant la macro. Imagine si tu en fais une macro complémentaire, le code concernera le fichier.xla et les feuilles de calculs de ce même fichier.xla. Je me doute que ce n'est pas ce que tu veux faire.
Mon conseil : Lis les tutoriels que propose DVP (adresse dans ma signature) et documente-toi sur les macros complémentaires. Elle n'ont aucun intérêt pour régler un cas de figure spécifique.

Bonne lecture et bon courage