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
A voir également:
- Copier des cellules vers des colonnes variabl
- Comment faire des colonnes sur word - Guide
- Verrouiller des cellules excel - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Historique des copier coller - Guide
- Comment copier une vidéo youtube - Guide
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 :
A toi d'adapter à ce que tu veux faire.
A suivre...
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...
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