Range limitée a la dernière valeur - Concaténation

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:

---

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 !

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

Code:

---

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

---

Citation:

---

Envoyé par Kiouane

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

Code:

---

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.

Citation:

---

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

---

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

Code:

---

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

---

edit: et remplacer

Code:

---

xFinTab .Row

---

par

Code:

---

range(xFinTab) .Row

---

Citation:

---

Envoyé par halaster08

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:

---

.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:

---

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

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 !

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

Code:

---

if cell.value ="" then cell.select

---

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

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

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.

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 :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

_________________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

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

Bonjour,

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

Exemple:

Code:

---

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

---

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:

---

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:

---

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

---

Renvoie la même valeur que

Code:

---

.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.

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 …

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:

---

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

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 » …