Copier des cellules vers des colonnes variabl
onra
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
Ivan-hoe Messages postés 433 Date d'inscription Statut Membre Dernière intervention -
Ivan-hoe Messages postés 433 Date d'inscription Statut Membre Dernière intervention -
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
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
Configuration: Windows 2000 Internet Explorer 6.0
2 réponses
-
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... -
Pour reprendre ton exemple, Range("A1:B9") peut aussi s'écrire :
Range(Cells(1,1),Cells(9,2))
A suivre...
