[VBA]décalage de colonne

Résolu
Appoline -  
 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
A voir également:

3 réponses

Réponse 1 / 3
guiv1012
 
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.
0
Appoline
 
Salut,

non dans ma 1ere feuille je veux toujours copier les valeurs de F3àF95, ce n'est que dans l'autre feuille que je veux me décaler de colonne.

Si tu as une idée je suis preneuse :-)

Bonne journée et merci d'avance
0
Réponse 2 / 3
Amnesic
 
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+
0
Appoline
 
Salut,

si j'utilise ton Selection.End(xlToRight) il ne me colle pas la colonne en G3, je sais pas commet faire!!!!
0
Appoline > Appoline
 
C'est bon j'ai réussi, j'ai fait une boucle do until et ça marche nickel

Merci à tous
0
Réponse 3 / 3
megamac
 
ça ne marche pas pour de la copie de données
0

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
Smart IPTV décalage de son
Cynco -
bazfile -

1 réponse
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Excel VBA : Derniere colonne utilisée
Eaheru -
Darnc -

12 réponses