Discussion :

[sybiou]

Bonjour.

Je suis pas super fort en VBE et j'ai pas pour habitude d'appeler au secour, car j'aime bien chercher. Mais la, sa fait quatre heures que je cherche sans trouver réponse à mon problème. Alors AU SECOURS !

Le but est simple : je veux récupérer les valeurs de ma dernière ligne, des colonnes C à M, de ma deuxième feuille sans l'activer et que les valeurs se recopie dans ma troisième feuille, mais les une à la suite des autres, en verticale, dans la colonne B1 à B5

Je vous embrouille pas trop ?

Moi j'ai fait ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim toto As Range
Set toto = Sheets("SIXAIN").Range(Cells(65536, 3).End(xlUp), ActiveCell.Offset(0, 10)).Select
 
Sheets("COMPTE").Range("B1").Select
 
For Each c In toto
    ActiveCell.Value = c.Value
    ActiveCell.Offset(1, 0).Range("A1").Select
   Next c
 
End Sub

Bien sur, ca plante !

Si vous pouviez m'aider, snifbouh, je vais mourrir sinon...

Et pis si au passage vous pouviez m'alléger tout ca, hop zou ! Serait cool aussi ! Je pense par exemple qu'il n'est peut-être pas obligé de mettre un dim et tout et tout, mais bon, ca peut pas faire d'mal cte p'tite bête

Merci !

[mercatog]

Bonsoir
Pour copier les valeurs de Cxx:Mxx où xx est la dernière ligne remplie de la feuille SIXAIN vers B1:B11 de la feuille COMPTE (Transposition des données)

Code :

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

1
2
3
4
5
6
7
8
Sub Test()
Dim LastLig As Long
 
With Worksheets("SIXAIN")
    LastLig = .Cells(.Rows.Count, "C").End(xlUp).Row
    Worksheets("COMPTE").Range("B1:B11") = Application.Transpose(.Range("C" & LastLig & ":M" & LastLig))
End With
End Sub

[sybiou]

Houaaaa, Génial !!!

Un grand merci mercatog !!!

Je te souhaite 1 000 vierges au paradis.

Sybiou...