[VBA]décalage de colonne
Résolu
Appoline
-
megamac -
megamac -
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
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
Configuration: Windows 2000 Internet Explorer 5.01
3 réponses
-
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. -
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+ -
