Discussion :

[Joel_]

Bonjour à tous,

Je me heurte sur le cas suivant :
Je souhaite coller des valeurs d'une colonne issues de "feuil1" dans une autre feuille (feuil3) contenant déjà des valeurs.
Ne souhaitant pas écraser les précédentes valeurs (pour créer un indicateur), je voudrais pouvoir coller mes valeurs dans la colonne d'a coté. (la première non vide)

CE QUI EST QUAND MÊME COCASSE, c'est que j'ai la syntaxe pour coller des valeurs à la premièreligne vide
CI dessous ce que j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Derlig as Long
 
     'copier valeurs de "feuil1"
Sheets("Feuil1").Activate
Sheets("Feuil1").Columns("A").select
Selection.Copy
 
     'Coller les valeurs à la première ligne vide (en dessous de la dernière valeur)
Sheets("Feuil3").Activate
Derlig = Sheets("Feuil3").Range("A65536").End(xlUp).Row
Plage="A" & Derlig + 1
Sheets("Feuil3").Range(Plage).Select
ActiveSheet Paste

Voila pour coller des valeurs à la première ligne vide.

Je souhaite dupliquer ce principe pour faire du collage de valeurs à lapremière colonne vide.

Après une bonne demi journée de recherche, en utilisant le End(xlToLeft) dans tout les sens, je ne parviens pas à trouver la solution.

Qui peut m'aider?
Merci par avance les amis

[mercatog]

De 1, tu ne peux pas coller une plage contenant 10 lignes vers une autre plage contenant aussi 10 lignes et ce à partir de 4ème cellules. Là où coller doit être plus grand de ce que tu veux coller

Ensuite, n'utilise pas les Select

Exemple de ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Coller()
Dim LastLig As Long, NewLig As Long
Dim Sh As Worksheet
 
Application.ScreenUpdating = False
Set Sh = Worksheets("Feuil3")
NewLig = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row + 1
With Worksheets("Feuil1")
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
    If LastLig <= Sh.Rows.Count - NewLig + 1 Then .Range("A1:A" & LastLig).Copy Sh.Range("A" & NewLig)
End With
Set Sh = Nothing
End Sub