Discussion :

[Ataraxie]

Bonjour

Je n'arrive désespérément pas a obtenir la ligne de la dernière valeur d'une table, mais je comprends mal comment fonctionne "range.find"

Je cherche a concaténer des tableaux de longueur variable (pour le moment tous avec 200 lignes de formule, mais les formules renvoient une valeur vide ("") quand il n'y a pour le moment plus de valeur a traiter.

Je cherche donc a obtenir la première ligne ou la formule renvoie cette valeur vide, pour dimensionner ma range a copier-coller.

Voici mon sub:


"xRg" renvoyant la range contenant toutes les formules
Et je cherche a passer a "xFinTab" qui me renverrais que les valeurs non vide

Je copie un tableau de DH:DJ Vers A:C (avec une première ligne contenant le nom qui n'est pas a copier)

Le soucis est ligne 11 qui ne fonctionne pas comme souhaité, je remplace ensuite xRg, par xFinTab, une fois que cela fonctionnera

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
Sub Synthese()
'Concatenation des différents tableaux
Dim xRg, xCopy, xFinTab As Range, sh As Worksheet, xDecal As Integer
 
 Sheets("Combo").Range("A2:X" & Rows.Count).EntireRow.Delete 'Cleaning
 
For Each sh In Worksheets
   If sh.Name <> "Combo" And sh.Name <> "Index" Then
     With sh
       Set xRg = .Range("DH" & Rows.Count).End(xlUp) 'Paramétre original, renvoie la range avec toutes les valeurs, formules comprises)
       Set xFinTab = .Range("DH" & Rows.Count).End(xlUp).Find("", , xlValues, , , xlPrevious)
       If xRg.Row > 1 Then 'Row =1 => pas de valeur
         Set xCopy = Sheets("Combo").Range("DH" & Rows.Count).End(xlUp).Offset(1)
         .Range("DH2:DJ" & xRg .Row).Copy
         xCopy.Offset(xDecal, -111).PasteSpecial Paste:=xlPasteValues 'Offset pour décaler de DH a A (-111) , et de concaténer
         xDecal = xDecal + xRg .Row
       End If
     End With
   End If
Next sh
 
End Sub

Merci de votre aide !

[Kiouane]

Pour trouver la première ligne vide d'une colonne par exemple. Tu peux faire comme suit :

Code :

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

Range("A"&rows.count).end(xlup).row +1

[halaster08]

Pour trouver la première ligne vide d'une colonne par exemple. Tu peux faire comme suit :

Code :

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

Range("A"&rows.count).end(xlup).row +1

Ca ne va pas marcher, la ligne n'est pas vide, elle contient une formule qui renvoie vide, c'est différent.

Le soucis est ligne 11 qui ne fonctionne pas comme souhaité

Si j'ai bien compris, essaye de remplacer ta ligne 11 par:

Code :

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

Set xFinTab = .Range("DH" & Rows.Count).End(xlUp).Find("", , xlValues, , , xlPrevious).address

edit: et remplacer

Code :

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

xFinTab .Row

par

Code :

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

range(xFinTab) .Row

[Ataraxie]

Ca ne va pas marcher, la ligne n'est pas vide, elle contient une formule qui renvoie vide, c'est différent.

Exactement, c'est pour cela que j'ai bien insisté sur "valeur" et "formules".
Si il n'y avais pas ce soucis de formule qui sont comptabilisé dans le ".End(xlUp)" , le code fonctionne bien.


J'ai testé la solution, le .adresse renvoie une erreur de type.

Et le .range sur Xfintab est une méthode qui échoue si on enlève le .adresse

"XfinTab" doit être direct la range souhaitée (range des valeurs non vide), et ensuite avec . row on mesure son nombre de lignes de façon a adapter le collage.




Mon soucis c'est que le

Code :

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

.Find("", , xlValues, , , xlPrevious)

ne viens pas ajuster la taille de ma range.
Je pense que c'est du au fait que je ne comprends pas comment ".find" s'applique



Je remet le code propre (sans le xRg)

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
 
Sub Synthese()
'Concatenation des différents tableaux
Dim xCopy, xFinTab As Range, sh As Worksheet, xDecal As Integer
 
 Sheets("Combo").Range("A2:X" & Rows.Count).EntireRow.Delete 'Cleaning
 
For Each sh In Worksheets
   If sh.Name <> "Combo" And sh.Name <> "Index" Then
     With sh
       Set xFinTab = .Range("DH" & Rows.Count).End(xlUp).Find("", , xlValues, , , xlPrevious)
       If xFinTab.Row > 1 Then 'Row =1 => pas de valeur
         Set xCopy = Sheets("Combo").Range("DH" & Rows.Count).End(xlUp).Offset(1)
         .Range("DH2:DJ" & xFinTab.Row).Copy
         xCopy.Offset(xDecal, -111).PasteSpecial Paste:=xlPasteValues 'Offset pour décaler de DH a A (-111) , et de concaténer
         xDecal = xDecal + xFinTab.Row
       End If
     End With
   End If
Next sh
 
End Sub

Ce code fonctionne, mais me renvois un résultat plein de vides :-P

[Ataraxie]

Après un peu de pause sur le sujet, je suis toujours bloqué, et je vais avoir un projet similaire qui va bloquer au même endroit.

Comment donc sélectionner les cellules avec des formules renvoyant un résultat vide? Sachant que ces formules ne sont pas considéré comme vide par excel, vu qu'elle possèdent une formule.

Merci !

[Kiouane]

Je pense que tu peux sélectionner une cellule vide contenant une formule comme ça :

Code :

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

if cell.value ="" then cell.select