[debutant] utiliser une macro dans une nouvelle macro

Version imprimable

bonjour

je voudrais savoir comment utiliser une macro dans une autre macro.
je m'explique:

je voudrais faire un calcul reprenant plusieurs cellules mais avec une boucles, voici le code:

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
Sub deltaz()
    Dim point As Integer
    point = Range("C11").Value
    Dim i As Integer
    Dim x As Integer
    x = 19
    Dim a As Single
    For i = 1 To point
    a = Cells(x, 6)
    Dim d As Single
    d = Cells(x, 7)
    For i = 1 To point
    a = Cells(x, 6)
    Dim hst As Single
    hst = Cells(11, 6)
    Dim hv As Single
    hv = Cells(11, 8)
    Dim p As Single
    p = WorksheetFunction.pi 'permet d'utiliser le nombre pi
 
For i = 1 To point
Cells(x, 9) = (d / Tan(a * (p / 200))) + hst - hv
 
End Sub

mais je ne sais pas comment intégrer une boucle dans une déclaration de variable.

15/05/2008, 21h57
jbggg

une autre petite question

quel code doit on utiliser pour qu'un bouton efface des donnée de cellules.

pour quitter c'est : Application.Quit

mais pour effacer je ne sais pas: Application.efface ???

Exemple

Code:

1
2
3
4
5
6
7
8
 Sub macro1()
'Ta1ereMacro
Call macro2(4, 7) 'APPEL
End Sub
Sub macro2(ARG1, ARG2)
'Ta2emeMacro
Cells(1, 1) = ARG1 + ARG2
End Sub

essaie

Code:

1
2
3
 Cells(1, 1).ClearContents
    Range("A1").ClearContents
    Cells(1, 1) = ""

je ne peux pas utiliser ceci
Code:

1 2 3 Dim Cel As Range, x As String For Each Cel In Range("A17,A19,A21,A23,B17,B19,B21,B23,C11,C17,C19,C21,F11,H11,F19:G24,M17,N17,O17")
mais alors maintenant comment intégrer ClearContents

15/05/2008, 22h45
jbggg

je ne comprends pas pour insérer une macro
15/05/2008, 23h13
fring

Bonsoir,

Ca part dans tous les sens là...
Que veux-tu dire par "mais je ne sais pas comment intégrer une boucle dans une déclaration de variable" ?

et par "je ne peux pas utiliser ceci mais alors maintenant comment intégrer ClearContents" ?

Pour commencer, tu devrais essayer dans tes codes, de prendre l'habitude de déclarer toutes tes variables en début de code et pas plic ploc durant le déroulement du code, ce qui faciliterait la lecture.

Bonsoir
Pour répondre avotre question
Code:

1 2 3 4 Dim Cel As Range For Each Cel In Range("A17,A19,A21,A23,B17,B19,B21,B23,C11,C17,C19,C21,F11,H11,F19:G24,M17,N17,O17") Cel.ClearContents Next Cel
Pour utiliser une boucle il y a deux mot clé "For ....Next " le code entre ces deux mot qui sera repeter
Simple boucle
remplit les cellule de "A1" au "A9"
Code:

1 2 3 4 5 6 Dim conter As Integer '---------debut -boucle------- For conter = 1 To 9 Cells(conter, 1) = conter Next conter' le code entre "For conter" et "Next conter" sera repeter 10 fois '------fin boucle-------------------
Il y a autre example dans le fichier