Bonjour à tous,

Le code ci-dessous permet d'incrementer les indices or la modification ne se fait pas sur Worksheets("courrier").Range("N6") mais bien sur cell1.Value quelqu'un saurait comment palier cela ?

Merci d'avance !

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
For Each cell1 In Worksheets("Data").Range("R7:R" & Derl1)
If Worksheets("courrier").Range("N6").Value <> "" And Worksheets("courrier").Range("J6").Value <> "" Then
z = Worksheets("courrier").Range("N6")
If Len(z) = 1 And z <> Chr(90) Then
   d = Chr(Asc(z) + 1)
ElseIf Len(z) = 1 And z = Chr(90) Then
   d = "AA"
ElseIf Len(z) = 2 And z <> "ZZ" Then
   d = RAP(URAP(z) + 1)
Else
   d = ""
End If
If cell1.Offset(0, -1).Value = Worksheets("courrier").Range("J6").Value Then
z = d
cell1.Value = z
cell1.Offset(0, -2).Value = "Envoyé"
 
End If
Else
If cell1.Offset(0, -2).Value = "Programmé" Then
cell1.Value = "A"
cell1.Offset(0, -2).Value = "Envoyé"
Worksheets("courrier").Range("N6").Value = "A"
End If
End If
Next
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
 
Function RAP(ByVal x%) As String
Dim i&, j&, k&
x = x - 1
i = Int(x / 676)
j = i * 26
k = Int((x - j) / 26)
RAP = Chr$(65 + k) & Chr$(65 + x - k * 26)
End Function
 
Function URAP(z$) As Integer
Dim j&, k%
j = (Asc(Mid(z, 1, 1)) - 65) * 26
k = (Asc(Right(z, 1)) - 65)
URAP = j + k + 1
End Function