Cellule dynamique dans Range

Version imprimable

20/05/2020, 15h50
retraite83

Cellule dynamique dans Range

Bonjour,

j'ai une ligne

Code:

frs.Range("J1:J100").Value = Sh.Range("B4:B100").Value

je veux remplacer les colonnes J et B ( et éventuellement la limite 100 par une variable pour pouvoir passer aux colonnes suivantes

Je pensai m'en sortir facilement mais je bloque depuis 2 jours en voulant utiliser ce que j'ai trouver sur le net :

Code:

Range(.Cells(x, y), .Cells(a, b))

sans succès
20/05/2020, 15h59
Menhir
C'est sans doute parce que tu ne définis pas les onglets des Cells. Il faut que ce soient les mêmes que celles des Range.

Code:

frs.Range(frs.Cells(x, y), frs.Cells(a, b)).Value

Ou bien
Code:

1 2 3 With frs .Range(.Cells(x, y), .Cells(a, b)).Value = 0 End With
Mais il serait plus simple d'utiliser un Resize :

Code:

frs.Range("J1").Resize(a, b).Value = Sh.Range("B4").Resize(a, b).Value

voilà ma séquence :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
While CatalDercol > catalCol
    With catalSh.Cells(Columns.Count, catalCol).End(xlUp).MergeArea: derlig = .Cells(.Cells.Count).Row: End With
    k = 4
    x = 1
    While derlig > k
        If catalSh.Cells(k, catalCol) > " " Then  ' ligne / col
            frs.Range("J1").Resize(x, y).Value = catalSh.Range("B4").Resize(k, catalCol).Value
            x = x + 1
            k = k + 1
        Else
        End If
    Wend
 
    y = y + 1   ' col frs
    catalCol = catalCol + 2   ' col catal
Wend

Les colonnes de "catalSh" sont les bonnes (une sur 2 à partir de "B"), mais j'ai les résultats en colonnes J, L, M... de "frs"soit une colonne sur 2, multiples essais sans comprendre.

Le contenu des lignes est cependant correct

20/05/2020, 19h07
Patrice740

Bonjour,

"y" n'est pas défini !
Ne confondrait-tu pas resize et offset :

Code:

___.Resize(x, y).Value = ___.Resize(k, catalCol).Value

Pour que cette ligne fonctionne il faudrait que x = k et y = catalCol
20/05/2020, 19h30
retraite83

y est défini avant (y = 1)

le pb est que x # a et y # catalCol

Je ne connais ni resize ni offset, alors peut être que c'est offset à utiliser...
20/05/2020, 19h43
Patrice740

Citation:

Envoyé par retraite83

Je ne connais ni resize ni offset, ...

Quand tu connais pas, tu cliques sur le mot et il y a la touche magique : F1
20/05/2020, 19h58
retraite83

J'ai fait qq test avec offset, vu merci, mais cela ne permet pas de copier une plage d'une feuille vers une autre d'un autre classeur ?

mon pb de base est de copier une plage d'une feuille vers une feuille d'un autre classeur avec des colonnes dynamique et lignes dynamiques (ça je sais faire pour les lignes)
20/05/2020, 20h52
Menhir

Je t'ai donné la méthode. A toi d'aller regarder dans l'aide VBA la description de Resize et de faire des essais.
Après 210 demandes sur le forum Excel (et 0 aide apportée à un autre demandeur :roll:), tu devrais être en mesure de faire ça, non ?

Re,

Un exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
Sub test()
Dim r As Range
Dim c As Range
Dim nL As Long, pL As Long, pC As Long, dL As Long, dC As Long
  pL = 2: dL = 20
  pC = 1: dC = 10
  Set c = Workbooks(2).Worksheets(3).Range("B12")  'destination
  With Workbooks(1).Worksheets(1)
    For nL = pL To dL
      Set r = .Range(.Cells(nL, pC), .Cells(nL, dC))
      c.Resize(r.Rows.Count, r.Columns.Count).Value = r.Value
      Set c = c.Offset(1)
    Next nL
  End With
End Sub

20/05/2020, 21h31
retraite83

Comment peut-on porter assistance aux autres personnes ?
21/05/2020, 07h58
Menhir

Citation:

Envoyé par retraite83

Comment peut-on porter assistance aux autres personnes ?

Tu lis leurs demandes et tu essayes de trouver une réponse à leurs questions.

tout simplement, merci je vais faire dans la limite de mes compétences

pour ma questions, merci de toutes les réponses,

voilà le code probablement pas le meilleur pour copier les colonnes B, D, F etc à partir de la ligne 4 d'une feuille dans les colonnes J,K,L etc à partir de la ligne 1 d'une autre feuille

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
premlig = 4 ' 1ere ligne "catalSh"
premcol = 2 ' 1ere colonne "catalSh"
colDest = 10 ' col J
dercol = catalSh.Cells(4, Columns.Count).End(xlToLeft).Column
Set dest = frs.Range("J1")  'destination
 
While dercol >= premcol
    With catalSh.Cells(Rows.Count, premcol).End(xlUp).MergeArea: derlig = .Cells(.Cells.Count).Row: End With
 
    For i = premlig To derlig
      Set r = catalSh.Range(catalSh.Cells(i, premcol), catalSh.Cells(i, premcol))
      dest.Resize(r.Rows.Count, r.Columns.Count).Value = r.Value
      Set dest = dest.Offset(1)
    Next i
 
    k = -i + 3 + 1
    Set dest = dest.Offset(k, 1)
    premcol = premcol + 2
Wend