Discussion :

[jbggg]

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 :

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
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.

[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 ???

[Montor]

Exemple

Code :

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

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 :

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

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

[jbggg]

je ne peux pas utiliser ceci

Code :

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

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

[jbggg]

je ne comprends pas pour insérer une macro

[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.

[Montor]

Bonsoir
Pour répondre avotre question

Code :

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

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 :

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

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