Discussion :

[polo31]

Bonjour !!

J'ai une petite macro nommée "rempli" qui, a partir de certaine valeurs saisies, va remplir d'autres cases

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub rempli()
Dim i, j As Integer
For j = 0 To 32 Step 8
    For i = 13 To 0 Step -1
        Cells(42 + j, 19).Value = Range("A7").Value
        If Cells(42 + j, 6 + i).Value <> "" Then
            Cells(40 + j, 6 + i).Value = CInt(Replace(Cells(42 + j, 6 + i).Value, "J", 0))
        Else
            Cells(40 + j, 6 + i).Value = Cells(40 + j, 6 + i + 1).Value
        End If
    Next i
Next j
End Sub

Les valeurs modifiables et sur lequel je souhaite "enclencher" la macro sont sur la plage F42:S42.

j'ai donc essayer sur le "worksheet_change" de faire :

Code :

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

1
2
If Not Intersect(Target, Range("F42:S42")) Is Nothing Then
        rempli

Mais ça ne marche pas.
Ce qui est bizarre c'est que j'ai pris une autre plage de cellules pour tester et dessus, la macro s'enclenche bien.

J'espère avoir été clair...

Merci pour tout coup de main !

[jfontaine]

Bonjour,

Code :

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

 CInt(Replace(Cells(42 + j, 6 + i).Value, "J", 0))

Es tu certains de ne pas avoir une autre lettre qu'un J qui traine?

NB :dans la déclaration de tes variabes, seul j est integer, i est un variant

Code :

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

Dim i, j As Integer

il faut déclarer comme suit

Code :

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

1
2
Dim j As Integer
Dim i As Intege

[polo31]

Bonjour jfontaine,

merci pour ta réponse.

Non non il n'y a pas d'autre lettres dans le replace et la sub marche bien quand je l'appelle directement. La ou ça plante, c'est quand je l'appelle a partir des modification sur une plage de cellules.

J'ai essayé avec le i en variant mais ça ne marche toujours pas.

[jfontaine]

as tu pris en considération que ta procedure sera appelée à chaque modification de cellules?
C'est justement ce que fait ta procedure !!! (des modifications)
Ca tourne, ca tourne, ca tourne ....

[polo31]

oui, et j'ai testé en changeant la plage d'action et en la plaçant sur une partie de la feuille ou il n'y a pas de données et là ça a marché.
C'est vraiment un mystère pour pour moi !

[jfontaine]

sauf que sur des cellules vide, ll ne passe pas ce test

Code :

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

If Cells(42 + j, 6 + i).Value <> "" Then

[polo31]

ça marche avec le code de bbil !

Je comprend pas vraiment d'ou ça venait puisque quand je changeais une valeur de la ligne 42, la sub "rempli" agissait sur la ligne 40... donc je ne vois pas pourquoi ça tournait en rond...

En tout cas merci pour votre aide !