Discussion :

[naoy93]

Bonjour, quelqu'un peut il me dire pourquoi ce code ne marche pas, mais ne génère pas d'erreur tout de même ?

Code :

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

1
2
3
4
5
6
 
lig = 16
 For Each c In .Range("D16:D20" )
                    c = c + .Range("E" & lig)
                    lig = lig + 1
                Next c

Merci d'avance.

[Ashireon]

Parce que tu ne travaille pas sur les valeurs..

Code :

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

1
2
3
4
5
lig = 16
For Each c In .Range("D16:D20" )
                    c.value = c.value + .Range("E" & lig).value
                    lig = lig + 1
Next c

Essaie ca

[naoy93]

J'ai rajouté et ça ne change rien (je crois que si on ne met rien, Value est implicite)

[Ashireon]

Mets le code complet stp.

[naoy93]

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
25
26
27
28
29
30
31
32
 
Private Sub Workbook_Open() ' A l'ouverture du classeur
 
 
    Sheets("accueil").Select
    ' Fermeture automatique en cas d'inactivité
    Temps = Now + TimeValue("02:00:00")
    Application.OnTime Temps, "FermerClasseur"
 
    With Sheets("accueil")
        'Le mois actuel n'est plus le même que le mois du plan de charge
        If Month(.Range("E15")) <> Month(Now()) Then
            response = MsgBox("Les dates du PDC ne semblent pas êtres à jour, souhaitez vous y remédier ?", vbExclamation + vbYesNo, "Probleme de date :")
 
            If response = 6 Then   'l'utilisateur a choisi Oui.
                lig = 16
                ligFin = 15
                While (.Range("E" & ligFin).Interior.ColorIndex <> xlColorIndexNone)
                    ligFin = ligFin + 1
                Wend
                MsgBox (ligFin)
 
                For Each c In .Range("D16:D" & ligFin - 1)
                    c = c.Value + .Range("E" & lig).Value
                    lig = lig + 1
                Next c
 
            End If
 
        End If
    End With
End Sub

Et merci !

[Ashireon]

Re,

J'ai modifié comme suit et cela fonctionne chez moi la somme de range de cette manière

Code :

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

1
2
3
4
5
6
7
Dim C As Variant
Dim lig As Integer
lig = 16
For Each C In ActiveSheet.Range("D16:D20")
                    C.Value = C.Value + ActiveSheet.Range("E" & lig).Value
                    lig = lig + 1
                Next C