Discussion :

[tompom3108]

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.

[Jean-Philippe André]

Hello,

je recommande l'utilisation dans ton cas d'un

Code :

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

1
2
3
Select Case Cells(lA, 1).Value:
'...
End Select

Qyuant à l'arrêt de la macro, tu entends par là une erreur est générée ? Laquelle ?

[tompom3108]

Bonjour,
merci pour cette réponse.

L'erreur que j'obtiens est :<< Erreur d'execcution '91' : Variable objet ou variable bloc with non définie>> et quand je pointe la souris sur Rcas1 = "nothing" ce qui est normal puisque la colonne A qui est "scannée" n'a pas toujours les valeurs des variables cas1,2,3. Ce que je ne comprends pas bien c'est que parfois sur certaines feuilles "scannées" ça marche, bien que les valeurs de la colonne A soit alors des nombres et non des strings.
En fait cette erreur survient uniquement quand la feuille comprend des strings
différentes (colonne A) de cas1, cas2, cas3. Et j'ai essayé select case mais j'ai eu le même souci y compris avec les nombres du coup j'ai essayé avec if et j'ai cru que ça fonctionnait ... mais pas longtemps.
Pour select case comment écrire si le cas est autre que cas1,2,3 et sortir
de l'instruction pour aller sur la prochaine ligne?

[Jean-Philippe André]

En fait, à partir du moment où tu manipules les données à partir du niveau Worsksheet (ce qui semble etre le cas avec ton shD), il est necessaire de l'utiliser "partout" dans ton code.

Aussi ton Cells() n'est relié à aucune feuille spécifique.

Il te faut donc le spécifier, par exemple si tu manipules toujours ta feuille shD, ca donnerait :

Code :

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

shd.Cells(lA, 1).Value

[tompom3108]

J'ai rajouté les nom des feuilles

Code :

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

1
2
3
4
5
6
7
8
9
 If shD.Cells(lA, 1).Value = Rcas1 Then
       Range("U21:AG21").Copy Cells(lA, 1)
       End If
           If shD.Cells(lA, 1).Value = Rcas2 Then
       Range("U24:AG24").Copy Cells(lA, 1)
       End If
            If shD.Cells(lA, 1).Value = Rcas3 Then
       Range("U20:AG20").Copy Cells(lA, 1)
       End If

Même réponse.

ne faudrait-il pas que j'ajoute une condition du genre si different de cas1,
cas2, cas3 alors next ligne?

[Jean-Philippe André]

Tes Rcas1 et co, quel est leur type lors de la déclaration ?

Sinon, meme chose que pour les Cells, tu dois appliquer le shD à tes Range