Reconnaître les caractères vba

[goldenboy]

Bonjour à tous,

Le titre n'est pas très explicite, mais j'espère pourvoir me rattraper avec l'explication.

J'ai un fichier, qui va sur une application (travail), qui copie l'écran, retourne sur excel et me colle la copie en A1.

Jusque là tout va bien.

Seulement, il faut que je puisse déterminer sur excel quelle est la dernière ligne remplie (sa je sais faire), mais il y a un problème car ce qui est collé, contient des lignes remplies d'espace, qu'Excel considère remplies. (voir fichier joint) Il s'agit dans l'exemple des lignes 4 à 24.

Ma question est : Est ce qu'il est possible de reconnaître les lignes remplies d'espace et des supprimer ? ou dans l'autre sens, de garder les lignes qui contiennent au moins 1 caractère différent de l'espace ?

Merci d'avance pour vos réponses.

 

[Yaloo]

Re : Reconnaître les caractères vba

Bonjour goldenboy, le forum,

Avec ce code

For Each c In [A1:A30]
  c.Value = Trim(c.Value)
Next

Mais dans ce cas, cela supprime tous les espaces avant et après ton texte.

A te relire

Martial

 

[gilbert_RGI]

Re : Reconnaître les caractères vba

Bonjour

les cellules de 3 a 24 ne sont pas vides car elles ont ...
voir en format cellule

 

[Yaloo]

Re : Reconnaître les caractères vba

Re,
Salut gilbert_RGI,

Si tu veux conserver les espaces de gauche, tu peux ne supprimer que les espaces à droite.

For Each c In [A1:A30]
  c.Value = RTrim(c.Value)
Next

A+

Martial

 

[goldenboy]

Re : Reconnaître les caractères vba

Merci Yaloo,

Cela me convient parfaitement. Que ce soit le première solution ou la deuxième, c'est ce que j'attendais.

 

[job75]

Re : Reconnaître les caractères vba

Bonjour goldenboy, yaloo, gilbert_RGI,

Une solution avec le filtre avancé (élaboré) :

Sub macro1()
'Feuil1 et Feuil2 sont les CodeNames des feuilles
Dim crit As Range
Feuil2.Cells.Clear 'RAZ
With Feuil1.Range("A1", Feuil1.UsedRange)
  Set crit = .Cells(1, .Columns.Count + 1).Resize(2)
  crit(2).FormulaR1C1 = "=SUMPRODUCT(N(TRIM(RC1:RC[-1])<>""""))"
  .AdvancedFilter xlFilterInPlace, crit
  .SpecialCells(xlCellTypeVisible).EntireRow.Copy Feuil2.[A1]
  .AdvancedFilter xlFilterInPlace, ""
  crit = ""
  Feuil2.Activate 'facultatif
End With
End Sub

Les lignes du UsedRange ne contenant que des espaces ne sont pas copiées.

Fichier joint.

A+