Discussion :

[soffy]

Bonjour,

Je débute sur VBA excel alors merci d'être indulgent.
Je voudrais dans cette procédure recopier une cellule (E6) de la page SITES-RX vers la cellule qui sera selectionnée dans la page PLANNING et ça marche pas.

Merci de votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub rxas()
'
' rxas Macro
' Macro enregistrée le 18/05/2007 par SG
 
Sheets("SITES-RX").Select
Range("E6").Select
Selection. Copy
ActiveCell.Select
ActiveSheet.Paste
 
End Sub

Au fait Paste signifie quoi comme instruction, j'ai eu ce retour en enregistrant une macro en copiant/collant mais je ne sais ce que ça veut dire.

[Frank]

Dans le même genre que ton besoin

Code :

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

1
2
3
4
5
Sheets("Feuil1").Select
    Range("A1").Select
    Selection.Copy
    Sheets("Feuil2").Select
    ActiveSheet.Paste

Paste veut dire coller en anglais/

Et je dirais que ton code ne marche pas à cause de quotes devant chaque ligne.
Cela a pour effet de mettre ton code en commentaire, c'est à dire qu'il ne s'exécute pas.

[alsimbad]

en fait, ton code ne peut pas fonctionner de cette façon. meme si tu selectionne une cellule dans ta feuille de destination, a partir du moment, ou dans ton code tu selectionne un autre cellule, cette cellule devient la cellule active (activecell).
et par contre, si dans ta feuille planning, tu veux coller plusieur fois le contenu de ta cellule E6, voila comment tu peux t'y prendre
dans ta feuille planning, tu crée un bouton que tu associe a une macro

Code :

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

1
2
3
4
Sub collage()
letexte = Sheets("SITES-RX").Range("e6")
 ActiveCell = letexte
End Sub

et comme ça tu selectionne ta celule, tu clique, et le tour est joué

[soffy]

Merci de vos réponses Franck et Alsimbad.
Les deux réponses fonctionnent. Celle d'Alsimbad me convient mieux car effectivement je pensais créer un bouton dans ma page planning.
Prochaine étape donc création de bouton.

A bientôt sûrement
Soffy