Discussion :

[vincedu74]

Bonjour à tous,
Je cherche à appeler une procédure. A la première itération cela fonctionne sans souci dès la deuxième itération cela e fonctionne plus.

Quelqu'un sait il d'où peut provenir le problème....?


En vous remerciant d'avance pour votre aide

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
Private Sub CommandButton1_Click()
Dim LastLigdata As Integer
 
Worksheets("Database").Activate
LastLigdata = Worksheets("Database").Range("B" & Rows.Count).End(xlUp).Row
 
For n = 4 To LastLigdata
Worksheets("ResearchTool").Range("Q7") = Worksheets("Database").Range("B" & n)
Worksheets("ResearchTool").Activate
 
Range("R4:AC4") = 0
MsgBox ("appelle")
Call calcul
 
Worksheets("ResearchTool").Activate
Last = Range("Z" & Rows.Count).End(xlUp).Row
Range("Q7:AC7").Select
    Selection.Copy
    Range(Cells(Last + 1, 26), Cells(Last + 1, 38)).Select
 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Next
End Sub

[Jean-Philippe André]

SAlut,

passer par des Activate ou des Select, c'est vraiment pas recommandé :/
essaie avec

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
Private Sub CommandButton1_Click()
Dim LastLigdata As Integer
 
 
LastLigdata = Worksheets("Database").Range("B65536").End(xlUp).Row
 
For n = 4 To LastLigdata
Worksheets("ResearchTool").Range("Q7").Value = Worksheets("Database").Range("B" & n).Value
Worksheets("ResearchTool").Range("R4:AC4").Value = 0
MsgBox ("appelle")
Call calcul
 
With Worksheets("ResearchTool")
Last = .Range("Z" & .Rows.Count).End(xlUp).Row
.Range("Q7:AC7").Copy
    .Range(.Cells(Last + 1, 26), .Cells(Last + 1, 38)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End With
Next
End Sub

[vincedu74]

Salu jean Philippe et merci pour ta reponse.

Ton code est propre ...!

J'ai par contre le même souci


Ici n varie de 4 à 5,

Pour n valant 4 le message "appelle" s'affiche puis la proc call s’exécute
Pour n valant 5 le message "appelle" s'affiche puis la proc call ne s’exécute pas.

Si il te reste encore une idée .... je suis preneur

Merci !

[bboy-eazy]

Bonjour,

Avez vous suivi le code en mode pas à pas (F8) pour être sur que la procédure ne s'exécute pas?

[vincedu74]

Bonjour Bboy,
oui c'est comme cela que je m'en suis rendu compte.

[bboy-eazy]

alors la bonne question ^^

quelle est la procédure Calcul svp?