Limiter un deplacement de case offset

Bonsoir, je cherche la formule à ajouter a mes deux commandes pour que l'on ne puisse rien colorier en dehors des colonnes E et U

Private Sub CommandButton1_Click()

    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    activecell.Offset(0, 1).Range("A1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Private Sub CommandButton3_Click()

    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    activecell.Offset(0, -1).Range("A1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Avec un if activecell? mais je ne sais pas quelle synthaxe donner...

Bonjour,

à tester,

Private Sub CommandButton1_Click()
Set isect = Application.Intersect(Selection, Range("E:U"))
If Not isect Is Nothing Then
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.Offset(0, 1).Range("A1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If
End Sub

Private Sub CommandButton3_Click()
Set isect = Application.Intersect(Selection, Range("E:U"))
If Not isect Is Nothing Then
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.Offset(0, -1).Range("A1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If
End Sub

Bonsoir et merci beaucoup je test ça dès demain et je vous dis ce qu'il en est.

Génial merci cela fonctionne ! Il a suffit de retourner une case en arrière et une avant pour réduire le champ. F et T au lieu de E et U, surement due aux offset. Génial merci.

Puis je te soumettre un autre soucis qui me pose problème aussi?

Puis je te soumettre un autre soucis qui me pose problème aussi?

bien sur,

Il faudrait que ces deux macros s'activent que sur les lignes donc les colonnes B, C et D sont remplies.

Encore un if. activerows & cells <> "" ?? ou un truc du genre?

Bonjour,

Set isect = Application.Intersect(Selection, Range("F:T"))
n = Application.CountA(Range(Cells(Selection.Row, 2), Cells(Selection.Row, 4)))
If Not isect Is Nothing And n = 3 Then

Merci cela prend forme petit à petit grace à vous ! Mais en réalité je me trompe de question car en fait ces deux macros font parties d'un userform qui s'active au double clic et en realité c'est lui qu"il me faut brider. J'essais de transposer les infos, mais il marque variable non définie.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set isect = Application.Intersect(Selection, Range("F:T"))
n = Application.CountA(Range(Cells(Selection.Row, 2), Cells(Selection.Row, 4)))
If Not isect Is Nothing And n = 3 Then
        Action.Show
        Cancel = True

        ElseIf Not Intersect(Target, Range("U:U")) Is Nothing Then

     With Target
    activecell.Select
    activecell.FormulaR1C1 = ""
    activecell.Rows("1:1").EntireRow.Select
    Selection.Delete Shift:=xlUp
    activecell.Offset(15, 0).Rows("1:1").EntireRow.Select
    Selection.insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

     End With

        Cancel = True
    End If
    End Sub

declarer les variables n et isect

Dim n As Integer, isect As Range

Génial cela fonctionne ! Sincèrement merci beaucoup. Je suis désolé de poser tant de questions mais je debute vraiment. Et j'avoue être dépassé par les variables et déclarations.

J'ai une obligation de résultat tout en apprenant en même temps, mais ce n'est pas aisé.