[VBA]décalage de colonne Résolu/Fermé

Question

Bonjour à tous,

j'ai un petiti soucis avec VBA, je m'explique

j'ai un onglet QCM dont je voudrais copier la colonne F dans l'onget Rep à la colonne G (bon bah jusque là pas de pbm ^^) mais ou sa se corse c'est que je voudrais qu'à chaque enregistrement la colonne dans l'onglet rep se décale vers la droite. En gros que le premier enregistrement se fasse dans la colonne G, le 2eme dans la colonne H etc

j'ai essayé avec ce code mais sa marche pas :s

Sub test()

'
Dim dernierecolonne As String

'
Range("F3:F95").Select
    Selection.Copy
    Sheets("Compilation réponses").Select
    Range("G3").Select
    
   Selection.End(xlUp).Select
    
    dernierecolonne = ActiveCell.Column + 1

   Range("g" & dernierecolonne).Select
    
    ActiveSheet.Paste
    Sheets("QCM").Select
    
End Sub


quelqu'un pourrait-il m'aider SVP
Merci d'avance

guiv1012 · Answer

Bonjour,
Je pense avoir une solution à ton pb.
Par contre, Si je comprend un peu ce que tu veux faire, je pense que tu ne veux pas copier toujours F3 à F95 de la 1er feuille (QCM ) dans tes colonnes G et suivantes de la 2eme feuille (Compilation)
Je suppose que sur la première feuille ( QCM ) tu veux aussi te décaler au fur et à mesure ( F, puis G ..... ) ????

Cdt.

Amnesic · Answer

Salut ! 
tu veux déterminer la dernière colonne à droite, il faut donc utiliser
Selection.End(xlToRight).Select et non pas Selection.End(xlUp).Select
A+

megamac · Answer

ça ne marche pas pour de la copie de données

[VBA]décalage de colonne

3 réponses

Discussions similaires