Discussion :

[bdx-77]

Bonsoir !

Je suis désolé de poster pour ca, mais je ne comprends pas du tout le problème !!

J'ai ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sheets("configuration").Select
[A8:D8].Copy
 
Sheets("Fiche_d_evaluation_des_risques").Select
 
[A1].Select
ActiveSheet.Paste

Il selectionne la page configuration, se met en A8, copie, va a la page Fiche[...], se met en A1, et beug..."Propriété ou méthode non géré par cette objet", sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Paste

Je ne vois pas du tout le problème...

Pendant que j'y suis, je cherche la dernière ligne qui a du texte, une fois trouver, le curseur est sur la dernière cellule avec du texte? pour décaller d'une collone, je m'y prends comment?

Par avance, un grand merci !
Vincent

[cb_60]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Copier()
  Sheets("configuration").Activate
    [A8:D8].Copy Destination:=Sheets("Fiche_d_evaluation_des_risques").[A1]
End Sub
 
Sub DerPlusUN()
 
  Sheets("configuration").Activate
  'Recherche de la dernière ligne non vide
 Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
 
End Sub