Forcer la cellule active

francedemo

XLDnaute Occasionnel

• 21 Juin 2012

• #2

Re : Forcer la cellule active

bonjour adr95,

tu peux essayer

Code:

Destination:=ActiveCell.Offset(2, -1).Resize(.Rows.Count, .Columns.Count)

ça décale de 2 lignes vers le bas + 1 colonne à gauche

à+

 

Vote positif 0 Vote négatif

WUTED

XLDnaute Occasionnel

• 21 Juin 2012

• #3

Re : Forcer la cellule active

Bonjour adr95, francedemo,

Je crois qu'adr95 voulait prendre en référentiel le bouton qui a été cliqué et plus l'ActiveCell justement, et je me demandais si tu étais obligé d'utiliser des contrôles de formulaire comme boutons ou si tu pouvais aussi et plutôt utiliser des contrôles ActiveX, qui simplifierait grandement la tâche dans ton cas.

 

Vote positif 0 Vote négatif

A

adr95

XLDnaute Occasionnel

• 21 Juin 2012

• #4

Re : Forcer la cellule active

Bonjour francedemo, WUTED,

WUTED a raison je souhaite me repérer par rapport au bouton et mettre la cellule active deux lignes en dessous et une colonne sur la gauche. Après je peux utiliser n'importe quel bouton mais je ne connais pas la différence entre les deux.

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 21 Juin 2012

• #5

Re : Forcer la cellule active

Salut adr95 et le forum

Il suffit de remplacer ActiveCell (cellule active) par ActiveSheet.Shapes(Application.Caller).TopLeftCell (cellule en haut à gauche du bouton qui a lancé la macro).
Il faudra sans doute recalibrer le déplacement.
A+

 

Vote positif 0 Vote négatif

A

adr95

XLDnaute Occasionnel

• 21 Juin 2012

• #6

Re : Forcer la cellule active

Merci pour vos réponse mais problème car quand je clique deux fois de suite sur le bouton je n'ai pas deux affichages de mes données de départ voici le code :
Sub Bouton1_Clic()
Dim x As Range, y As Range
Set x = Cells(1, 5)
Set y = Cells(7, 5)
With Range(x, y)
ActiveCell.Resize(.Rows.Count, .Columns.Count).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
.Copy Destination:=ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(2, -1).Resize(.Rows.Count, .Columns.Count)
End With
End Sub

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 24 Juin 2012

• #7

Re : Forcer la cellule active

Salut adr95 et le forum

mais problème car quand je clique deux fois de suite sur le bouton je n'ai pas deux affichages de mes données de départ

Cliquez pour agrandir...

Normal, tu utilises Activecell (cellule active). Hors tu ne demandes pas à Excel de rendre active la cellule qui l'était au départ quand tu as lancé la macro. il te suffit de mémoriser la cellule active en début de code et de la sélectionner en fin.

Code:

Dim Cel_X as range
Set Cel_X =activeCell
....
Cell_x.select

A+

 

Vote positif 0 Vote négatif