Selectio plage de cellules

Résolu
HoPo -  
 HoPo -
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. pilas31 Messages postés 1878 Statut Contributeur 648
     
    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,
    0
  2. HoPo
     
    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))
    0
    1. pilas31 Messages postés 1878 Statut Contributeur 648
       
      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"
      0
    2. HoPo
       
      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é
      0
      1. pilas31 Messages postés 1878 Statut Contributeur 648 > HoPo
         
        Il 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
        0
    3. HoPo
       
      En effet le dernier code marche,

      Merci beaucoup pour l'aide apportée
      0