petite macro et curseur

[emmanuel75]

Existe-t-il une macro qui, à l'ouverture d'un fichier, déplace la position de la cellule sélectionnée "d'un cran" c'est-à-dire de A1 à A2 par exemple ?

Emmanuel

 

[skoobi]

Re : petite macro et curseur

Bonjour,

oui, par une macro évenementielle:

Private Sub Workbook_Open()
ActiveCell.Cut Destination:=ActiveCell.Offset(1, 0)
End Sub

 

[emmanuel75]

Re : petite macro et curseur

Merci à toi Skoobi...cela marche très bien.

Manu

 

[emmanuel75]

Re : petite macro et curseur

Je n'ai fait que déplacer le problème...en fait dans la macro, donnée par Guillauméga,
"Sub copy_paste()
Dim value As Double
Application.ScreenUpdating = False
Application.Workbooks.Open "C:...\fichier1.xlsm"
value = Worksheets("Feuil1").Range("G3").value
Windows("fichier2.xlsm").Activate
Worksheets("Feuil1").Activate
Range("G3") = value
End Sub"

je ne vois pas comment je pourrais faire pour copier plusieurs cellules (du fichier 1 vers le fichier 2) et pas seulement G3 (voir code ci-dessus), sans avoir à taper ce code 1000 fois pour chacune des cellules que je veux copier !
Cette copie est particulière car je veux copier des cellules en supprimant formules et liens de chacune...

Emmanuel

 

[skoobi]

Re : petite macro et curseur

Re,

tu passes par une boucle.
Exemple: pour G3 à G100:

For i = 3 to 100
Range("G" & i).Value = valeur
Next

 

[porcinet82]

Re : petite macro et curseur

Salut,

Je m'immisce simplement pour faire une petite remarque à Emmanuel par rapport au code de la procédure copy_paste. Tu as un Application.ScreenUpdating = False en début de code, il faut bien penser a le remettre a True en fin de code pour ne pas que l'écran reste figé par la suite...

@+

 

[emmanuel75]

Re : petite macro et curseur

Encore merci à Skoobi et je tiens compte aussi de la remarque de porcinet82...
Emmanuel