Selectio plage de cellules
Résolu/Fermé
A voir également:
- Selectio plage de cellules
- Excel additionner des cellules - Guide
- Verrouiller cellules excel - Guide
- Si plage de cellule contient texte alors ✓ - Forum Excel
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? - Forum Musique / Radio / Clip
- Excel fusionner deux cellules - Guide
2 réponses
pilas31
Messages postés
1825
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
643
Modifié par pilas31 le 11/03/2016 à 11:30
Modifié par pilas31 le 11/03/2016 à 11:30
Bonjour,
Avec une autre syntaxe :
C'est la même sélection que "B38:F50" avec des variables
Cordialement,
Avec une autre syntaxe :
'S nombre de Colonnes 'L nombre de lignes 'L1 Ligne de la première cellule 'C1 Colonne de la première cellule S = 5 L = 13 L1 = 38 C1 = 2 Range(Cells(L1, C1), Cells(L1 + L - 1, C1 + S - 1)).Select
C'est la même sélection que "B38:F50" avec des variables
Cordialement,
Merci pour cette réponse,
J'avais déja essayé de le faire et pourtant j'ai une erreur à chaque fois.
Voici le code que j'essaie de faire.
' SCC1 n° de la colonne ou je veux copier ma plage
Dim SCC1 As Integer
Worksheets("Index Elec").Range("B39:B50").Copy Destination:=Worksheets("Index Elec").Range(Cells(39, SCC1), Cells(50, SCC1))
J'avais déja essayé de le faire et pourtant j'ai une erreur à chaque fois.
Voici le code que j'essaie de faire.
' SCC1 n° de la colonne ou je veux copier ma plage
Dim SCC1 As Integer
Worksheets("Index Elec").Range("B39:B50").Copy Destination:=Worksheets("Index Elec").Range(Cells(39, SCC1), Cells(50, SCC1))
pilas31
Messages postés
1825
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
643
Modifié par pilas31 le 11/03/2016 à 12:10
Modifié par pilas31 le 11/03/2016 à 12:10
Cette syntaxe fonctionne bien :
J'ai mis "B39:F50" à la place de "B39:B50"
Worksheets("Index Elec").Range("B39:F50").Copy _ Destination:=Worksheets("Index Elec").Range(Cells(39, SCC1), Cells(39, SCC1))
J'ai mis "B39:F50" à la place de "B39:B50"
pilas31
Messages postés
1825
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
643
>
HoPo
11 mars 2016 à 12:28
11 mars 2016 à 12:28
Il y a plus simple pour la syntaxe :
Par contre l'erreur 1004 je ne comprends pas.
A moins que la variable SCC1 ne soit pas initialisée
Worksheets("Index Elec").Range("B39:F50").Copy _ Destination:=Worksheets("Index Elec").Cells(39, SCC1)
Par contre l'erreur 1004 je ne comprends pas.
A moins que la variable SCC1 ne soit pas initialisée