VBA Deux procédures Calculate sur la mm feuille ?
Bonsoir le forum
Voila j'ai Deux procédures du type à mettre sur la mm feuille
Private Sub Worksheet_Calculate()
Private Sub Worksheet_Calculate()
j'ai essayé de mettre sur la deuxième
Private Sub Worksheet_Calculate1()
Mais cela ne fonctionne pas
Comment faire ?
Merci
Bisous
Muriel
Bonsoir muriel,
Quels sont les buts des 2 procédures ?
Bonjour Muriel,
Déjà oui comme demande vba-new, que font les procédures ? Ne peut-on intégrer les deux traitements dans la même sub ? Où chacune d'elle doit-elle se produire à un évènement précis je pense non ?
Sinon, même punition que d'habitude, joindre le fichier
Bonjour
Hier soir J'ai intégré les 2 procédures => vraiment un problème de débutante : oops:
Merci encore
Bisous
Muriel
Re vous
Voici les 2 procedures:
et le fichier d'essai
Dim Ok As Boolean
Private Sub Worksheet_Calculate()
Dim Plage As String
Dim i As Integer
If Ok = True Then Exit Sub
Ok = True
i = 27
If Range("E33") = 1 Then
Do While Range("J" & i) <> ""
Plage = Range("J" & i).Value
Range(Plage).ClearContents
i = i + 1
Loop
End If
Ok = False
End Sub Private Sub Worksheet_Calculate () Dim Cel As Range
If Ok = True Then Exit Sub
Ok = True
Range(Range("G30")).ClearContents
If Range("B30") <> 0 Then
For Each Cel In Range(Range("G30"))
If Application.CountA(Range(Range("G30"))) = Range("B30") Then
Ok = False
Exit Sub
End If
Cel = Int((Range("F30") * Rnd) + 1)
Next Cel
End If
Ok = False
End Sub
Merci encore
Bisous
Muriel