Branchement conditions

[aubelix]

Bonjour à tous et bonnes et heureuses fêtes.

Je viens vous solliciter sur un problème de vérifications de conditions.
Mon problème est le suivant :

1) Si la cellule active n'est pas en colonne en colonne C, alors message et fin de la macro

2) Si la cellule active est bien en colonne C et la cellule active vide, alors message et fin de la macro

3) Si la cellule active est en colonne C et la cellule active non vide, alors effacement des cellules spécifiées et fin la de macro.

Ci-dessous mon code



Sub Effacecement_Ligne()
'
' Effacecement_Ligne Macro
'
'
MonAdresscor = Left(MonAdress, 2)
MonAdresscorA = Right(MonAdresscor, 1)
If MonAdresscorA <> "C" Then MsgBox "Placez-vous sur la colonne 3 ", 64, "Problème"
GoTo Fin

If ActiveCell.Value = "" Then MsgBox "Aucune donnée à effacer ! ", 64, "Problème"
Exit Sub
If ActiveCell.Range("A1:I1").Select Then Selection.ClearContents
Range("C15").Select


Fin:

End Sub



Merci pour votre aide et bon week-end ensolleilé à tous.

 

[Hervé]

Bonjour

essaye comme ceci :

Sub Effacecement_Ligne()
If ActiveCell.Column <> 3 Then MsgBox "Placez-vous sur la colonne 3 ", 64, "Problème": Exit Sub
If ActiveCell.Value = "" Then MsgBox "Aucune donnée à effacer ! ", 64, "Problème": Exit Sub
Range("A1:I1").ClearContents
Range("C15").Select
End Sub

Salut
Hervé

 

[aubelix]

Bonsoir Hervé et le forum

Merci pour ta réponse.
Cela fonctionne bien.