calcul dernière ligne qui bug après un coller de valuers

[mixraf]

hello tous,

je fais un copier / coller d'une colonne des valeurs uniquement, puis une macro pour connaitre la dernière ligne : Range("A65536").End(xlUp).Row

j'obtiens en résultat la dernière ligne coller, même si celle si est vide 🙁

si je selectionne à nouveau les cellules vides et que j'efface leur contenu, c'est ok

J'aimerais comprendre ce que je fais mal dans le copier /coller...

ci-joint le fichier avec les données collées et la macro..

si qq à une idée, merci d'avance

 

[mth]

Re : calcul dernière ligne qui bug après un coller de valuers

bonsoir,

Tes cellules ne sont pas vides elles contiennent un caractère parasite (fais le test par exemple NBCAR(A14), tu auras 1 et non zéro)

Ton calcul de la dernière ligne remplie est correct, à ceci près qu'à partir de 2007, il vaut mieux ne pas se limiter à 65530 lignes, donc essaie ceci:

Sheets("name_temp").Cells(Rows.Count,1).End(xlUp).Row

Bonne soirée,

mth

 

[mixraf]

Re : calcul dernière ligne qui bug après un coller de valuers

merci pour la réponse, je viens de faire NBCAR sur la feuille et me donne 0 !!

j'ai mis ca dans la macro :
If Cells(14, "A").Value = "" Then
MsgBox ("vide")
End If
MsgBox Len(Cells(14, "A").Value)

j'obtiens nombre de ligne 14, vide et 0 caractère

donc tjs au même point , voir test2

 

[mth]

Re : calcul dernière ligne qui bug après un coller de valuers

re 🙂

So sorry, je me suis trompée, ce n'est pas nbcar mai nb.vide().

Tu peux faire le test avec ça:

 If WorksheetFunction.CountBlank(Cells(14, "A")) = 0 Then
      MsgBox ("vide")
 Else
      MsgBox "non vide"
 End If

tu obtiendras "non vide"

Bien à toi,

mth

 

[mixraf]

Re : calcul dernière ligne qui bug après un coller de valuers

effectivement, merci, du coup deux questions :

Ce que je colle est la copie d'une colonne comportant des listes dont la première valeur est vide, donc j’obtiens mes cellules vides dans la colonne coller, sauf qu'avec ta formule, on voit que c'est pas vide, où je me plante dans le copier coller ?

Comment je peux connaitre le caractère que j'ai dans ces cellules et comment les vider vraiment ?

 

[mth]

Re : calcul dernière ligne qui bug après un coller de valuers

re,

En essayant avec la fonction CODE(), pas réussi à trouver ce caractère 😕
Peut-être as-tu la possibilité de traiter le problème à la source?

m

 

[mixraf]

Re : calcul dernière ligne qui bug après un coller de valuers

je peux rien faire sur la source, c'est pas moi qui gère 🙁

=CODE(A14) me donne #valeur 🙁 🙁

des fois, c'est fatigant excel 🙂 🙂

 

[mixraf]

Re : calcul dernière ligne qui bug après un coller de valuers

une soluce pas géniale :


Columns("A:A").Select

Selection.Replace What:="", Replacement:="###############", Lookat:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="###############", Replacement:="", Lookat:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False


puis après comptage de ligne