Bonjour au forum,

J'ai un souci avec la partie de code ci-dessous. Avec l'instruction "If" j'ai par moment arrêt de macro si la condition recherchée est une autre variable (string)
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 lA = 24 To np - 1
    'Valeur des différents cas à chercher
 
        cas1 = "Blanc"
        cas2 = "xxxx0"
        cas3 = "lnoir"
 
  '-----------------Chercher la valeur dans la feuille shD, en colonne A
 
        Set Rcas1 = shD.Columns(1).Find(What:=cas1, LookAt:=xlPart)
        Set Rcas2 = shD.Columns(1).Find(What:=cas2, LookAt:=xlPart)
        Set Rcas3 = shD.Columns(1).Find(What:=cas3, LookAt:=xlPart)
 
    '---------------Action à effectuer selon valeur
 
            If Cells(lA, 1).Value = Rcas1 Then
       Range("U21:AG21").Copy Cells(lA, 1)
       End If
           If Cells(lA, 1).Value = Rcas2 Then
       Range("U24:AG24").Copy Cells(lA, 1)
       End If
            If Cells(lA, 1).Value = Rcas3 Then
       Range("U20:AG20").Copy Cells(lA, 1)
       End If
 
 Next lA
. Je crois que si Rcas1,2,3 est une autre "string que celle des cas1,2,3 alors la macro s'arrête je voudrais qu'elle passe tout simplement à une autre ligne . J'ai essayé Else Next lA mais ça ne fait rien je ne sais pas trop si je dois rajouter un IfNot ou quelque chose dans le genre.

Merci pour vos soutiens.