Bonjour,

Je rencontre un pb lors du lancement de ma macro qui copy les données non vides.
En effet, ça beugge quand elle rencontre une cellule contenant des textes commençant par =>.

Pourriez-vous m'aider comment je peux contourner ce pb, SVP.

Merci par avance pour votre aide.

Voici le code:

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
' Mitigation Action  1
        If (s.Range("S1").Offset(i) <> "" And s.Range("K1").Offset(i) <> "N/A") Then
                  'Creation of the new Id which merges the year of the Incident and the old Id
                  annee = Year(s.Range("H1").Offset(i).Value)
                  Id = s.Range("B1").Offset(i).Value
                  S2.Range("A7").Offset(j).Value = annee & "-" & Id
                  S2.Range("B7").Offset(j).Value = s.Range("H1").Offset(i).Value
                  S2.Range("C7").Offset(j).Value = s.Range("C1").Offset(i).Value
                  S2.Range("D7").Offset(j).Value = s.Range("D1").Offset(i).Value
                  S2.Range("E7").Offset(j).Value = s.Range("M1").Offset(i).Value
                  S2.Range("F7").Offset(j).Value = s.Range("S1").Offset(i).Value
                  S2.Range("G7").Offset(j).Value = "Mitigation"
                  S2.Range("h7").Offset(j).Value = s.Range("T1").Offset(i).Value
                  S2.Range("i7").Offset(j).Value = s.Range("U1").Offset(i).Value
                  S2.Range("j7").Offset(j).Value = s.Range("V1").Offset(i).Value
                  S2.Range("k7").Offset(j).Value = s.Range("X1").Offset(i).Value
                  S2.Range("l7").Offset(j).Value = s.Range("W1").Offset(i).Value
                  S2.Range("m7").Offset(j).Value = s.Range("Y1").Offset(i).Value
                  S2.Range("o7").Offset(j).Value = s.Range("O1").Offset(i).Value
                  S2.Range("p7").Offset(j).Value = s.Range("G1").Offset(i).Value
 
              j = j + 1
 
          End If
J'ai essayé avec 2 possibilités:
is not empty et <>""

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
 If (Not (IsEmpty(s.Range("BP1").Offset(i))) And (s.Range("K1").Offset(i) = "completed" Or s.Range("K1").Offset(i) = "to be done")) Then
 
        annee = Year(s.Range("H1").Offset(i).Value)
        Id = s.Range("B1").Offset(i).Value
 
        S2.Range("A7").Offset(j).Value = annee & "-" & Id
        S2.Range("B7").Offset(j).Value = s.Range("H1").Offset(i).Value
        S2.Range("C7").Offset(j).Value = s.Range("C1").Offset(i).Value
        S2.Range("D7").Offset(j).Value = s.Range("D1").Offset(i).Value
        S2.Range("E7").Offset(j).Value = s.Range("M1").Offset(i).Value
        S2.Range("F7").Offset(j).Value = s.Range("bp1").Offset(i).Value
        S2.Range("G7").Offset(j).Value = "Regularisation"
 
        S2.Range("h7").Offset(j).Value = s.Range("bq1").Offset(i).Value
        S2.Range("i7").Offset(j).Value = s.Range("br1").Offset(i).Value
        S2.Range("j7").Offset(j).Value = s.Range("bs1").Offset(i).Value
        S2.Range("k7").Offset(j).Value = s.Range("bu1").Offset(i).Value
        S2.Range("l7").Offset(j).Value = s.Range("bt1").Offset(i).Value
        S2.Range("m7").Offset(j).Value = s.Range("bv1").Offset(i).Value
        S2.Range("o7").Offset(j).Value = s.Range("O1").Offset(i).Value
        S2.Range("p7").Offset(j).Value = s.Range("G1").Offset(i).Value
 
 
            j = j + 1
 
        End If