basic : copier coller ligne

basic : copier coller ligne - VB/VBA/VBS - Programmation

Marsh Posté le 21-11-2007 à 09:13:55    

Bonjour,
Bonjour à tous,  
 
Je suis novice en progammation, et j’aimerai bien de l’aide car je n’arrive même pas à programmer une action très simple pour vous.
 
Mon désire consiste sur Excel a :
 
Lire la cellule (a) de la feuille (x)        
             ‘ a représente un nombre entier : c’est la ligne que je veux copier
Ouvrir la feuille (y)
Copier la ligne (a) de la feuille (y) la coller dans la feuille (x) sur la ligne (b)
 
Voila je que je veux faire mais je n’y arrive pas.
Ensuite je veux associer cette tâche à un bouton de commande que j’ai déjà préparé.
Merci pour votre aide
 
Serge

Reply

Marsh Posté le 21-11-2007 à 09:13:55   

Reply

Marsh Posté le 21-11-2007 à 13:07:15    

Le plus simple est d'"enregistrer une macro" :
 
- Dans la barre de menu, sélectionner Outils, puis Macro, et Nouvelle Macro.
- Choisir un nom de macro ou laisser celui proposé par défaut.
- Cliquer sur le bouton OK.
- Faites toutes vos manipulations (cliquer sur une cellule, ouvrer une feuille, copier ...).
- Appuyer sur le carré "Arrêt".
 
Une nouvelle macro est créée ainsi. Pour la voir et l'adapter un peu, appuyer sur Alt F11, et trouver cette macro dans Modules.
 
Bon courage !

Reply

Marsh Posté le 21-11-2007 à 15:35:38    

Merci pour la réponse,
 
Mais si j'écris un macro elle va me lire la cellule (a) est ensuite c'est moi en réalisant la macro qui va copier la ligne nécessaire dans la feuille (y)
 
donc je voyais cela de cette manière : ( mais je ne connais la programmation de macro dans VBA )  
dans la cellule (a) il y a un nombre entier
 
Private Sub
    Dim lign1 As Integer
    lign1 = feuille (x) cellule (a)
    ouvrir feuille (y)
    copier la ligne (a)
    ouvrire feuille (x)
    coller à la ligne (b)
end sub
 
 
merci pour votre aide

Reply

Marsh Posté le 21-11-2007 à 15:40:25    

info supplémentaire : la ligne (a) de la feuille (y) a recopier ne sera pas toujour la même, cela correspondra a un choix. ( du N° dans la cellule (a)

Reply

Marsh Posté le 22-11-2007 à 21:19:56    

bonjour,
Est ce que quelqu'un peut m'envoyer un début de quelque chose SVP
sergiomoteur@yahoo.fr
 
bonne soirée

Reply

Marsh Posté le 25-11-2007 à 18:14:55    

Pour récupérer une feuille, utiliser

Code :
  1. Set shSource as Worksheet
  2. set shSource = Sheets("[nom feuille]" )


 
sinon pour récupérer la valeur d'une cellule
 

Code :
  1. shSource.Cells([ligne],[col]).Text


 
pour copier
 

Code :
  1. shSource.Rows([ligne]).Copy


 
pour coller
 

Code :
  1. Sheets("[nom feuille cible]" ).Cells([ligne],[col]).Paste


 
La fonction PasteSpecial peut aussi servir (à la place de paste). Regarder la doc
 
Cordialement,

Reply

Marsh Posté le 21-12-2007 à 23:41:20    

Merci pour ces renseignements, je vais essayer

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed