Discussion :

[Nathan_8569]

Bonjour!

Je suis actuellement sur un problème que je n'arrive pas à résoudre...
Je voudrais (dans 3 tableaux différents) aller chercher la dernière ligne (qui est variable) afin de copier les valeurs.
Je ne peux malheureusement pas utiliser les formules suivantes car les tableaux sont les uns sous les autres :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("A65536").End(xlUp).Offset(1, 0).Select

J'ai joint une capture d'écran et un fichier excel pour que vous comprenniez mon problème.
Merci d'avance de votre aide !

PS: Ce sont les valeurs oranges qui sont à récuperer

test.xlsm

[mjpmjp]

bonjour,
teste intérieur de la cellule --> pas couleur --> pas tableau

dans le même esprit,
si couleur bleu ---> tableau n1
si couleur rouge --> tableau n2

@+JP

[Marc-L]

Bonjour,

la formule étant déjà correcte pour la dernière ligne du dernier tableau, non ?

Sinon pour les autres tableaux, s'intéresser déjà à la propriété CurrentRegion
ou encore juste en simulant la séquence de touche Ctrl + ▼ via la méthode End(xlDown) …

Et puis avec un peu de jugeote juste avec le B-A-BA d'Excel, à savoir nommer chaque plage des tableaux
ou encore convertir ces plages en vrais tableaux (cf aide d'Excel et ListObject en VBA),
il est alors aisé de trouver la dernière ligne de chacun !

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Nathan_8569]

Merci de votre aide !
Ceci pourrait marcher pour définir un nom à chaque tableau ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
With Sheets("Tabelle1")
  .ListObjects.Add(xlSrcRange, .Range("$A$2:$P$10"), xlNo).Name = _
           "Tableau1"
End With

[Marc-L]

Oui pour une création d'un vrai tableau mais c'est inutile de l'effectuer à chaque fois par code
mais juste le paramétrer directement depuis Excel !

Pour la dernière ligne, par exemple depuis la propriété HeaderRowRange d'un ListObject combinée à la propriété End(xlDown) …

[BENNASR]

Bonjour à tous
Proposition d'un débutant : tu peux faire le test si la ligne non vide et le ligne après et vide tu copie les cellule souhaité
comme ça (ici c'est copier dans ta feuille n° 2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Bouton1_Cliquer()
' nétoyer feuille 2
With Sheets("Tabelle2")
.Select
Selection.ClearContents
End With
'copier
 
Dim i As Long
Dim k As Integer
k = 1
With Sheets("Tabelle1")
i = .Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To i
If .Cells(i, 1) <> "" And .Cells(i + 1, 1) = "" Then
    Sheets("Tabelle2").Range("A" & k) = .Cells(i, 1)
    Sheets("Tabelle2").Range("B" & k) = .Cells(i, 2)
    ' continuer à copier c et d et e .....
    k = k + 1
    End If
Next i
End With
End Sub

[Marc-L]

Bonjour BENNASR !

En utilisant juste la propriété End(xlDown) comme manuellement Ctrl + ▼
il faut moins de dix lignes de code pour trouver les trois dernières lignes utilisées dans chaque plage …

D'autres encore penseront à utiliser la propriété Areas sur SpecialCells …