If condition1 or condition 2 Then
Résolu/Fermé
A voir également:
- If condition1 or condition 2 Then
- Excel cellule couleur si condition texte - Guide
- 2 comptes whatsapp - Guide
- 2 ecran pc - Guide
- Word numéro de page 1/2 - Guide
- Jdownloader 2 - Télécharger - Téléchargement & Transfert
3 réponses
toto1983
Messages postés
205
Date d'inscription
samedi 16 mai 2009
Statut
Membre
Dernière intervention
25 mars 2010
13
30 nov. 2009 à 15:43
30 nov. 2009 à 15:43
Tu es sure que ta condition est correcte ?
Moi j'aurais mis : If Cells(i, 2).Offset(0, 12) = "FTHUB" Or Cells(i, 2).Offset(0, 12) ="MTHUB" Then
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
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
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
Messages postés
205
Date d'inscription
samedi 16 mai 2009
Statut
Membre
Dernière intervention
25 mars 2010
13
30 nov. 2009 à 16:46
30 nov. 2009 à 16:46
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
Pas de problème, mon souci c que tu réussisses ;D
Nous avons le même soucis! Ce qui, en l'occurence, m'arrange!(puisque toute seule je me sens impuissante).
Merci beacoup!!
Je dois aussi finir mon programme avec une autre fonction que j'ai tenté de tester mais qui ne marche pas...
J'ai peur d'abuser un peu...
Pourrais-je te le soumettre aussi? (c'est du même acabit).
Bonsoir dans tous les cas.
Merci pour ton aide!
Merci beacoup!!
Je dois aussi finir mon programme avec une autre fonction que j'ai tenté de tester mais qui ne marche pas...
J'ai peur d'abuser un peu...
Pourrais-je te le soumettre aussi? (c'est du même acabit).
Bonsoir dans tous les cas.
Merci pour ton aide!
