colonne limite à ne pas dépasser avec offset

[hbb]

Bonsoir à tout le forum,

Voici mon problème :
Je souhaiterais trouver le code VBA Excel qui permet, lors d'un offset de droite à gauche :

- D'éviter un message d'erreur quand la cellule à activer se situe à gauche de la colonne B
- Dans ce cas, activer la cellule B3 et y insérer la valeur cible.

Exemple :
Dans le fichier joint, ça marche tant que la valeur de décalage en A1 ne dépasse pas 5.
Si on met 6, ça plante et il faudrait donc que la quantité de 1000 soit insérée en B3.


Merci d'avance,
Hbb

 

[jp14]

Re : colonne limite à ne pas dépasser avec offset

Bonsoir

En rajoutant dans la macro ce code on piège l'offset

colonne = ActiveCell.Column
If (colonne - a) <= 2 Then
Range("B3").Select
ActiveCell = selection
Exit Sub
End If

JP

 

[PascalXLD]

Re : colonne limite à ne pas dépasser avec offset

Bonjour

essaies en modifiant ainsi

Sub Décaler()

Dim a As Integer
Dim maselection As Integer

Range("B3:V3").ClearContents
Range("B2").Select
ActiveCell.End(xlToRight).Select
maselection = ActiveCell.Value
a = Range("A1").Value

If ActiveCell.Column - a < 2 Then
    Cells(ActiveCell.Row + 1, 2) = maselection
Else
    ActiveCell.Offset(1, -a) = maselection
End If

End Sub

 

[Mytå]

Re : colonne limite à ne pas dépasser avec offset

Salut Le Forum

HBB, modifie ton code comme ceci

Sub Décaler()
 
Dim Deplacement As Byte
Dim Choix As Range
 
Range("B3:V3").ClearContents
Deplacement = Range("A1")
 
Set Choix = Range("B2").End(xlToRight)
 
If Choix.Column - Deplacement < 2 Then
Cells(Choix.Row + 1, 2) = Choix
Else
Choix.Offset(1, -Deplacement) = Choix
End If
 
End Sub

Mytå

Oups pas rafraichit, salut JP14 et Pascal76

 

[hbb]

RESOLU :colonne limite à ne pas dépasser avec offset

Merci beaucoup JP14, Pascal76 et Mita,

Il fallait y penser au If ActiveCell.Column - a < 2 Then.

J'avance à grands pas dans mon projet.
Bonne soirée à tous.

Hbb