If...Then...

[PhD]

bonjour le forum
j'avance a petits pas dans mon planning mais je reste bloqué dans une macro qui est la suivante:
If ActiveCell <> "7/14" Then
If ActiveCell <> "8/15" Then
MsgBox "La formule ne peut être placée que sur un poste 7/14 ou 8/15. "
Exit Sub
Else
With ActiveCell
.Offset(0, 0) = "CM "
.Offset(1, 1) = "07:00"
End With
End If
End If
End Sub
lorsque je travaille avec une condition tout va bien, mais avec deux, seule la deuxième tourne, y a t'il une solution ?
En vous remerciant pour vos réponses. Phil

 

[Myta]

salut Pd

Ceci devrait fonctionner sans verifier

If ActiveCell <> "7/14" or ActiveCell <> "8/15" Then
MsgBox "La formule ne peut être placée que sur un poste 7/14 ou 8/15. "
Exit Sub
Else
With ActiveCell
.Offset(0, 0) = "CM "
.Offset(1, 1) = "07:00"
End With
End If

Mytå

 

[PhD]

bonjour Myta et le forum
là aucune des deux conditions ne fonctionnent
Si quelqu'un a une solution je suis preneur
Merci, @+ Phil

 

[jacquesderyes]

Bonsoir PhD

Essaies ce code un peu modifiéDim aC As Range

Dim aC As Range
Set aC = ActiveCell
If aC = "7/14" Or aC = "8/15" Then
With aC
.Offset(0, 0) = "CM "
.Offset(1, 1) = "07:00"
End With
Exit Sub
End If

MsgBox "La formule ne peut être placée que sur un poste 7/14 ou 8/15. "
Exit Sub

End Sub

j'ai repris le pb à l'envers!!

ps:La variable aC n'est pas obligatoire mais je trouve ça plus chouette!!!

Bien amicalement
jacques de ryes

 

[PhD]

bonjour Jacques
j'ai trouvé en bouquinant VB5 une solution simple, mais qui fonctionne
If ActiveCell = "7/14" Then
With ActiveCell
.Offset(0, 0) = "CM "
.Offset(1, 1) = "07:00"
End With
ElseIf ActiveCell = "8/15" Then
With ActiveCell
.Offset(0, 0) = "CM "
.Offset(1, 1) = "07:00"
End With
Else
MsgBox "La formule ne peut être placée que sur un poste 7/14 ou 8/15. "
End If
Toutefois je te remercie de t'être penché sur mon problème, je suis vraiment novice en VBA ,et que d'essai avant de trouver une soluce convenable, mais je persévére. Pour mon planning il ne me reste plus qu'a
transférer mes lignes de postes qui sont actuellement en quinzaine "Lundi Dimanche" sur des feuilles mensuelles, là je pédale encore.Il faut que je trouve rapidement une soluce car je suis en retraite fin Décembre et j'aimerais laisser mon planning à mon successeur, si tu as des idées simples de transfert de données , je prends.
@+ Phil