Microsoft 365 Simplifier une ligne de code VBA

Piksaw

XLDnaute Junior
Bonjour, je recherche a simplifier ce code car je dois entrer environ 100 ligne qui ce suive


Sheets("feuille2").Cells(ligne, 1).Value = Range("C7")
Sheets("feuille2").Cells(ligne, 2).Value = Range("C8")
Sheets("feuille2").Cells(ligne, 3).Value = Range("C9")
Sheets("feuille2").Cells(ligne, 4).Value = Range("C10")

quelque chose qui dirait copie a partir de la ligne 2 la valeur C7 et ensuite copie la valeur C8 à la ligne 3 etc.

Sheets("feuille2").Cells(ligne, 1:4 ).Value = Range("C7:C10")

je sais pas si c'est possible de faire cela
 

Staple1600

XLDnaute Barbatruc
Bonsoir mapomme

1) Est-ce important qu'une réponse soit apportée rapidement ?
2) Voire est-ce important qu'une réponse soit apportée (*) ?
3) Est-ce que tu as ouvert le fichier ?
Car ce n'est pas ce qui a été décrit au départ (sauf erreur de ma part)

NB: [pj] finalement, j'ai pas pris endive/jambon ;) [/pj]

(*) l'essentiel c'est d'être dans la Cellule avec des camarades de jeu.
Et si cela peut aider les âmes en peine qui viennent nous voir, alors loué soit le Grand Tabulateur ;) [x]

( [x] séquelles de quelques années où je fus enfant de choeur)
 

mapomme

XLDnaute Barbatruc
Supporter XLD
1) Est-ce important qu'une réponse soit apportée rapidement ?
Non, mais tourner en rond c'est frustrant.

2) Voire est-ce important qu'une réponse soit apportée (*) ?
Pour le questionneur, sans doute.

3) Est-ce que tu as ouvert le fichier ?
Je n'avais pas vu de fichier au départ :oops:.Départ est un mauvais terme puisqu'il faut attendre le 10ème message pour voir un fichier.
 

Staple1600

XLDnaute Barbatruc
Re

mapomme
[mon quart d'heure mauvais esprit - arrête ou je te tape sur la tête Staple]
Les réponses ont déjà été donnés (ou presque) ;)
Une grande frange d'individus (moi y compris) tombent toujours dans les mêmes travers
De ce fait, tous les forums dédiés à Excel sont peuplées de questions "similaires" avec comme corollaires les réponses qui vont avec.
Donc oui, il est urgent de ne pas se presser (surtout qu'on est pas au taf)
;)
[/mon quart d'heure mauvais esprit - arrête ou je te tape sur la tête Staple]

Attendons de voir de que va dire PikSaw, je vois que comme Mathilde, il est revenu ;)
 

Piksaw

XLDnaute Junior
Re

PikSaw
Quel bout de code fonctionne?
Avec remaniement des colonnes ou sans?
En prenant l'Array de Marcel ?
re,


ça fonctionne avec cette ligne de code

Sheets("feuille2").Cells(ligne, 1).Resize(, 100) = Application.Transpose(Range("C7").Resize(100))

proposition de mapomme


je n'ai rien eu besoin de faire, si ce n'est modifier le C7 avec la cellule de départ qui étais pour moi la B32
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 847
dernier inscrit
Djigbenou