Reconnaître les caractères vba

goldenboy · 24 Février 2013

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 · 24 Février 2013

Re : Reconnaître les caractères vba

Bonjour goldenboy, le forum,

Avec ce code

VB:

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 · 24 Février 2013

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 · 24 Février 2013

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.

VB:

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

A+

Martial

goldenboy · 24 Février 2013

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 · 24 Février 2013

Re : Reconnaître les caractères vba

Bonjour goldenboy, yaloo, gilbert_RGI,

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

Code:

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+

Reconnaître les caractères vba

goldenboy

XLDnaute Occasionnel

Pièces jointes

Yaloo

XLDnaute Barbatruc

gilbert_RGI

XLDnaute Barbatruc

Yaloo

XLDnaute Barbatruc

goldenboy

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires