Autres Macro archivage qui ne fonctionne pas comme souhaitée...

[Christian0258]

Bonjour à tout le forum,
J'ai un souci avec une macro archivage.
Lorsque j'archive les valeurs de B5 à L8 donc sur 4 lignes , si certaines lignes sont vides, l'archivage se fait avec la zone complète, blancs y compris, ce qui laisse des lignes blanches dans la feuille archives…???

voir fichier

Merci pour le temps que vous voudrez bien vouloir m'accorder.

Bien à vous,
Christian

 

[Dudu2]

Bonjour,
C'est normal tu as des formules dans ces cellules "vides" en colonne B.
Tu ferais mieux de calculer la hauteur de ton Range sur la colonne I qui conditionne la valorisation de la colonne B.

Autre petite remarque, ce serait préférable de bien qualifier les Ranges plutôt que des faire des Select sur le feuille.

Sub Archivage()
    Sheets("Saisies").Range("B5:L" & Sheets("Saisies").Range("I65536").End(xlUp).Row).Copy
    Sheets("Archives").Range("B" & Sheets("Archives").Range("B65536").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

 

[Christian0258]

Re, le forum, Dudu2

Merci, Dudu2, pour tes conseils et ton travail.
Après essais, sauf erreur de ma part, il s'avère que ta macro ne solutionne pas mon problème de vides…?

Encore merci à toi.

A vous lire,
Bien amicalement,
Christian

 

[job75]

Bonjour Christian0258, Dudu2,

Sub Archivage()
With Sheets("Saisies").Range("B5:L" & Sheets("Saisies").Range("B65536").End(xlUp).Row)
    Sheets("Archives").Range("B65536").End(xlUp)(2).Resize(.Rows.Count, .Columns.Count) = .Value
End With
End Sub

A+

 

[Dudu2]

Après essais, sauf erreur de ma part, il s'avère que ta macro ne solutionne pas mon problème de vides…?

Ah voui, Normal ! Y a aussi des formules en colonne I
Je regarde un autre moyen de déterminer la dernière ligne...

 

[job75]

La méthode que j'utilise transforme les textes "" en vides.

 

[Dudu2]

Sub Archivage()
    Dim Dernièreligne As Long
    
    Dernièreligne = Sheets("Saisies").Range("B:B").Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    'MsgBox Dernièreligne
    Sheets("Saisies").Range("B5:L" & Dernièreligne).Copy
    Sheets("Archives").Range("B" & Sheets("Archives").Range("B65536").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

 

[Dudu2]

La méthode que j'utilise transforme les textes "" en vides.

En effet, c'est une méthode qui fonctionne.
Tu copies aussi les lignes vides en valeurs mais non vides en formules en ne gardant que les valeurs.

 

[Dudu2]

Par contre je ne comprends pas pourquoi le code initial de Christian0258 ne fonctionne pas.
C'est à dire pourquoi dans un 2ème archivage, la recherche de la dernière ligne en colonne B de la feuille cible trouve un ligne qui ne contient rien (ni formule ni data) puisque PasteSpecial Paste:=xlPasteValues a été utilisé.

 

[job75]

C'est pourtant facile à comprendre.

Le Collage spécial-Valeurs conserve les textes "", il ne les transforme pas en vides.

Vérifier avec la fonction ESTVIDE.

 

[Dudu2]

C'est pourtant facile à comprendre.

T'es marrant. C'est facile à comprendre quand on connait l'explication ! Merci pour.

Et quand on connait cette subtilité toute Excel du vide et du pas vide mais avec chaine vide dedans.

Ce qui est surprenant c'est que l'affectation avec .Value n'ait pas le même comportement que la copie
PasteSpecial Paste:=xlPasteValues. Je suppose qu'il faut juste le savoir.

 

[job75]

Je suppose qu'il faut juste le savoir.

Non, surtout tester comme je l'ai dit avec la fonction ESTVIDE !

 

[Christian0258]

Re, le forum, Dudu2, job75

Merci, job75, pour cette macro et merci Dudu2, c'est impec.
J'ai lu vos échanges avec beaucoup d'interêts...

Bien à vous,
Amicalement,
Christian