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

[Ataraxie]

Merci, mais il faudrait l'intégrer au range.
(et je maitrise pas trop la chose)

[Kiouane]

Tu veux les sélectionner ou faire une manipulation précise?

[Ataraxie]

Gérer l'ensemble de "sélection" en tant que range.

Ca a l'avantage d'être une forme de sélection, sans que Excel ne sélectionne "physiquement" => pas d'affichage
De surcroit c'est un objet plus manipulable par la suite qu'un select. (objet vs action)

Le range peut retourner une taille, alors que c'est pas gagné avec un select.
Mon range sert ici a définir la zone a copier, et a donner le nombre de lignes qui seront collées.


L'inconvénient c'est que c'est un peu plus difficile a manipuler.

[Marc-L]

Bonjour,

non ce n'est pas plus difficile, juste une question de logique …

Pourtant rien qu'en consultant l'aide VBA et comme déjà indiqué certainement dans la FAQ ou un tutoriel de ce forum,
voici un exemple via Find dans cette discussion !

_________________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_________________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

[kiki29]

Salut, toujours disponible : Dernière ligne et la dernière colonne renseignées d'une feuille

[vinc_bilb]

Bonjour,

Et .... ne pas oublier le specialcells qui permet de récupérer pas mal de choses en une passe:

Exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
' Récupère la région (Ctrl + *) à partir de la dernière cellule non vide
Set Srcdata = WshSrc.Cells.SpecialCells(xlCellTypeLastCell).CurrentRegion
 
' Récupère les données visibles (après un filtre par exemple)
Set Rngdata = Srcdata .SpecialCells(xlCellTypeVisible)
 
Set Rngdata = Srcdata .SpecialCells(xlCellTypeConstants)  ' valeurs constantes (non vide)
Set Rngdata = Srcdata  .SpecialCells(xlCellTypeFormulas)  ' formules
Set Rngdata = Srcdata .SpecialCells(xlCellTypeBlanks)       ' cellules vides

[Ataraxie]

Merci, mais comme déjà dit, cela ne fonctionne pas a causes des formules qui sont reconnues comme cellules remplies par excel.

Voici un fichier avec la macro incriminée et le problème des cellules vides concaténées
Edit :L'upload rate


Revoici le code, avec qq corrections et plus de commentaires.

Ce fois, on cherche a coller un tableau de 3 colonnes en E2:Gx vers A2:Cx

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
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 xFinTab = .Range("E" & Rows.Count).End(xlUp).Find("", , xlValues) ' Première position de ligne avec valeur vide
       If xFinTab.Row > 1 Then 'Row =1 => pas de valeur  a copier => pas de copie
            Set xCopy = Sheets("Combo").Range("E" & Rows.Count).End(xlUp).Offset(1) 'offset de 1 pour ne pas coller sur la ligne 1
            .Range("E2:G" & xFinTab.Row).Copy
            xCopy.Offset(xDecal, -4).PasteSpecial Paste:=xlPasteValues 'Offset pour décaler de E a A (-4) , et de coller que les valeurs
            xDecal = xDecal + xFinTab.Row - 1 'début de position du prochain collage; -1 pour contrer l'offset
       End If
     End With
   End If
Next sh
 
End Sub

J'ai testé avec de plus petit tableaux de données et le

Code :

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

 .Range("E" & Rows.Count).End(xlUp).Find("", , xlValues)

Renvoie la même valeur que

Code :

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

.Range("E" & Rows.Count).End(xlUp)

Le .find étant totalement transparent

Y'a quelque chose d'évident qui m'échappe, mais je n'arrive pas a le capter



J'essaierais de re-uploader le fichier des que je peux, ca sera surement plus parlant pour tous.

[Marc-L]

Pourtant le lien fourni dans mon précédent message fonctionne de mon côté même avec des cellules vides contenant des formules !

Évidemment si tu n'as pas corrigé ton code …

[Ataraxie]

Bon

suite a acharnement j'ai réussit, j'ai fait de meilleure déclarations, reduit le nombre de ranges et j'ai viré les lookin/lookat qui en fait ne sert a rien. (désolé Marc, j'avais mal compris ton exemple, et n'aurais pas cru que cela fonctionnais avec les formules)

Donc, le tout donne:

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 As Range, sh As Worksheet, xDecal, datend, xFinTab 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
        datend = sh.Range("DH65536").End(xlUp).Row
        xFinTab = sh.Range("DH2:DH" & datend).Cells.Find(What:="*", searchdirection:=xlPrevious).Row
        If xFinTab > 1 Then 'Row =1 => pas de valeur
         Set xCopy = Sheets("Combo").Range("DH" & Rows.Count).End(xlUp).Offset(1)
         .Range("DH2:DJ" & xFinTab).Copy
         xCopy.Offset(xDecal, -111).PasteSpecial Paste:=xlPasteValues 'Offset pour décaler de DH a A (-111) , et de concaténer
         xDecal = xDecal + xFinTab - 1
       End If
     End With
   End If
Next sh
 
End Sub

Merci a tous

[Marc-L]

Si tu crois que ces paramètres de la méthode Range.Find ne servent à rien,
c'est que tu n'as pas lu ou pas bien compris son aide VBA ! A lire d'urgence, notamment la partie Notes …

J'en ai déjà croisés quelques uns affirmant « cela fonctionnait bien avant tel quel » …