Microsoft 365 Simplifier une ligne de code VBA

[Piksaw]

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]

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]

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 .Départ est un mauvais terme puisqu'il faut attendre le 10ème message pour voir un fichier.

 

[Staple1600]

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]

Merci a tous de m'avoir aider ça fonctionne


désoler pour ma demande pas très explicite, c'est mieux avec le fichier c'est vrai

 

[Staple1600]

Re

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

 

[Piksaw]

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