if condition1 or condition 2 Then Résolu/Fermé

Question

Bonjour,

Pourriez-vous m'aider sur un problème que je rencontre?
En effet, j'utilise la condition if cells(i,j)= "truc" or "chose" Then, et ça ne marche pas.
Je ne sais pas trop quoi faire dans ce cas.
Voilà le programme que j'essaie de lancer:


Sub écrirecodaffaire()

Worksheets("synthèse").Activate
Range("B7").Select


Worksheets("clôture").Activate


For i = 7 To Rows.Count
If Cells(i, 2).Offset(0, 14) = "VUFIRMCO" Then
   If Cells(i, 2).Offset(0, 12) = "FTHUB" Or "MTHUB" Then
      If Cells(i, 2) <> Cells(i - 1, 2) Then
      Worksheets("synthèse").Activate
      Selection.Value = Cells(i, 2)
      Selection = Selection.Offset(1, 0)
      End If
   End If
End If
Next i

      

End Sub


Mon programme coporte sûrement d'autres erreurs que je ne vois pas encore.

Merci beaucoup pour votre aide!!!!!!

Elima

toto1983 · Answer

Tu es sure que ta condition est correcte ? 

 If Cells(i, 2).Offset(0, 12) = "FTHUB" Or "MTHUB" Then 

Moi j'aurais mis : If Cells(i, 2).Offset(0, 12) = "FTHUB" Or Cells(i, 2).Offset(0, 12) ="MTHUB" Then

Elima · Answer

Rebonjour,

Merci beaucoup toto1983!
En effet, j'avais essayé aussi mais peut-être un peu trop vite parceque ça n'avait pas marché.
Par ailleurs il se trouve que mon programme ne marche toujours pas même si l'erreur est ailleurs.

Si tu peux m'aider à trouver l'origine du problème, ce serait merveilleux.
C'est un peu près le même programme.
Il s'agit d'un classeur où je m'intéresse à 2 feuilles en particulier.
J'aimerais bien réussir à trier dans la feuille clôture les codes d'opérations de change répondant à certaines exigences comprises dans cette même feuille. Ensuite, j'aimerais, sans répeter un code d'opération de change, les reporter sur la feuille synthèse les uns en dessous des autres.
Voilà comment il se présente pour le moment:


Sub écrirecodaffaireHub()

Worksheets("synthèse").Activate
Range("B7").Select


Worksheets("clôture").Activate
Dim compteur1
compteur1 = 0
For i = 7 To Rows.Count
Worksheets("clôture").Activate
If Cells(i, 2).Offset(0, 14) = "VUFIRMCO" Then
   If Cells(i, 2).Offset(0, 12) = "FTHUB" Or Cells(i, 2).Offset(0, 12) = "MTHUB" Then
      If Cells(i, 2) <> Cells(i - 1, 2) Then
        compteur1 = Cells(i, 2).Value
        Worksheets("synthèse").Activate
        Selection.Value = compteur1
        Selection = Selection.Offset(1, 0)
      End If
   End If
End If

Next i

      

End Sub


J'ai conscience qu'il y a sûrement des étapes ou des mentions inutiles dans ce programme mais maintenant je n'arrive plus à avoir d'idées.

Merci beaucoup pour votre aide!

Elima

toto1983 · Answer

Ok Elima c'est un honneur de t'assister je v y réfléchir et je te tiens au courant demain ou ce soir .
Pas de problème, mon souci c que tu réussisses ;D

If condition1 or condition 2 Then

3 réponses

Discussions similaires