derniere colonne remplie

derniere colonne remplie - VB/VBA/VBS - Programmation

Marsh Posté le 31-05-2005 à 09:23:43    

Bonjour a tous :)
 
Voila je vien de debuter en vba et on m'as confié un projet de stage la dessus :??:  
 je dois créer une macro sur un questionnaire qui sera envoyé puis  la reponse sera receptionnée chez moi sous forme de doc excel puis archivé dans un autre doc excel qui recensera ttes les reponses des formulaires( tout ce que j aurais a faire c'est ouvrir la reponse cliquer sur la macro)
ma macro est sensée prendre les données d'un colonne,ouvrir un autre fichier excel (deja existant) et placer les données dans la premiere colonne vide qu'elle recontrera)
pour l instant j ai fais ça :
 
    Range("L7:L121" ).Select             'selection de la colonnes de resultat(connue)
    Selection.Copy                         'copie de la selection
    Workbooks.Open Filename:="C:\doc.xls"   'ouverture du fichier archive
    Range("A1" ).Select                     'selection de la premiere colonne
    ActiveSheet.Paste                      'collage dans l'archive
    ActiveWorkbook.Save                  'sauvergage du changement  
    ActiveWorkbook.Close                  'fermeture de la feuille  
 
 
voila donc j aurais voulu savoir comment faire pour  
que la selection de la premiere colonne se transforme en selection de la premiere colonne vide  
j'ai cherché mais je ne voit pas comment faire
et sinon si je change manuelement la colonne les 2 colonnes sont remplies de #REF! je ne comprend pas pourquoi :(
Voila merci d avance

Reply

Marsh Posté le 31-05-2005 à 09:23:43   

Reply

Marsh Posté le 31-05-2005 à 20:53:33    

Range("A1" ).Select     'selection de la premiere colonne


C'est plutôt sélection de la première cellule...
Mais pour un Paste, je comprends ce que tu veux dire.
 
Voici ce que tu cherches:

  Dim iLastCol As Integer
  iLastCol = Cells.SpecialCells(xlLastCell).Column
  Cells(1, iLastCol + 1).Select


   


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 03-06-2005 à 08:56:12    

Merci pour ta réponse mais ça ne fonctionne pas
ça colle les réponses dans la colonne J invariablement (en effaçant les données precedente s'il y en avais)
 
De plus je me suis aperçu d'un autre probleme,
en fait je voudrais recuperer des resultats du premier fichier mais dans celui ci les cellules contenant le resultat contiennent une formule qui interragi avec d'autre cellule de ce meme fichier, ainsi lorsque je copie les cellules qui m'interessent je ne copie que la formule qui donne toujours 0 puisque elle fait appel a des cellules qui sont vides dans le nouveau fichier

Reply

Marsh Posté le 03-06-2005 à 09:03:46    

Désolé en fait ton code marche, c'est moi qui suis pas reveillé (j'ai placé la ligne de code avant d'avoir ouvert le 2nd fichier ce qui fait que ça enregistrait la valeur de la derniere colonne du premier fichier donc...^^)
 
Mais en revanche j'ai toujours mon probleme de copie de la formule et non pas de la valeur toute simple


Message édité par Cezar le 03-06-2005 à 09:22:20
Reply

Marsh Posté le 06-06-2005 à 09:14:09    

j'ai trouvé il suffit de faire un collage spécial :
 
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Reply

Sujets relatifs:

Leave a Replay

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