Copier des cellules vers des colonnes variabl

Fermé

onra Messages postés 1 Date d'inscription lundi 9 juin 2008 Statut Membre Dernière intervention 9 juin 2008 - 9 juin 2008 à 15:52
Ivan-hoe Messages postés 433 Date d'inscription dimanche 17 février 2008 Statut Membre Dernière intervention 17 octobre 2008 - 10 juin 2008 à 18:58

Bonjour,

j'ai un bout de code qui me permet de copier des cellules vers des cellules libre.
Mais ce code ne marche par ligne. Et moi j aurais besoin de faire varier les colonnes!!!

Si quelqu'un avit une petite idée, ca me sauverait.
je vous laisse le code en dessous:

Sub Copicell()
i = 27

While (Not (Range("t" & i) = ""))
i = i + 1
Wend

Range("t" & i) = Range("T12")
End Sub

Au passage, il faudrait que les cellules de destination soient sur une autre feuille.

Merci d'avance

A voir également:

Copier des cellules vers des colonnes variabl
Excel additionner des cellules - Guide
Verrouiller des cellules excel - Guide
Copier une vidéo youtube - Guide
Windows 7 vers windows 10 - Guide
Faire des colonnes sur word - Guide

2 réponses

Réponse 1 / 2

Ivan-hoe Messages postés 433 Date d'inscription dimanche 17 février 2008 Statut Membre Dernière intervention 17 octobre 2008 309
10 juin 2008 à 10:45

Salut,
Au lieu d'utiliser Range("T:" & i ) pour identifier une cellule, utilise Cells(N°Ligne, N°Colonne)
Comme ça, tu sauras dorénavant faire varier une ligne et/ou une colonne
Pour faire référence à une cellule d'une autre feuille, on écrit Sheets("NomdelaFeuille").Range("T12")
Pour exemple :

Sub Copicell() 
While Not Cells(N°Ligne,i).Value = "" 
i = i + 1 
Wend 

Cells(N°Ligne, i) .Value = Sheets("AutreFeuille").Range("Z99").value 
End Sub

A toi d'adapter à ce que tu veux faire.
A suivre...

onra
10 juin 2008 à 16:59

merci bien

ca m'a permi d'avancer un peu

Par contre, j'ai besoin de copier une plage de cellules dans les mêmes conditions.
je sais qu'avec range, c'est: range("A1:B9").
mais je n'ai pas trouver avec Cells.

Ca m'éviterai d'avoir un code de 2 pages pour cpier dix cellules

merci d'avance

Réponse 2 / 2

Ivan-hoe Messages postés 433 Date d'inscription dimanche 17 février 2008 Statut Membre Dernière intervention 17 octobre 2008 309
10 juin 2008 à 18:58

Pour reprendre ton exemple, Range("A1:B9") peut aussi s'écrire :

Range(Cells(1,1),Cells(9,2))

A suivre...

Discussions similaires

Colis en cours de transport vers votre site de livraison ?

Dessiner avec son clavier et avec des lettres

Discussions similaires

Newsletters