Selectio plage de cellules

Résolu
Bonjour,

Je souhaiterais sélectionner une plage de cellules sur un fichier Excel ( qui corresponds à un tableau) .
J'arrive très bien a le faire avec range ("B38:F50"). Cependant la fin de ma plage n'est pas fixe: J'ai un tableau de 13 lignes et mon nombre de colonnes dépend d'une variable S. je souhaite dupliquer ce tableau et le coller juste à coter.

Est ce que quelqu'un aurait une solution à me proposer?

Merci d'avance pour votre aide, toutes les idées sont les bienvenues.

2 réponses

  1. Contributeur
    Bonjour,

    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,
    1. 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))
      1. Contributeur
        Cette syntaxe fonctionne bien :
        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"
      2. Si je tape exactement ce code, cela ne marche pas sur mon excel.

        J'ai une erreur d'Exécution '1004'

        Merci pour l'aide déjà apporté
      3. Contributeur
        @HoPoIl y a plus simple pour la syntaxe :

        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
      4. En effet le dernier code marche,

        Merci beaucoup pour l'aide apportée