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
Partager