enlever les espaces lors d'une comparaison

[flo2002]

re re bonjour,

je fais une comparaison avec une macro et j'extrait les données vers une autre colonne. Cependant, je voudrais eviter les vides

une sorte de if not...

merci

 

[ChTi160]

Re : enlever les espaces lors d'une comparaison

Salut flo

je pense que tu peux faire cela via un tableau (plus rapide)
on remplis un tableau des valeurs de la plage
ex
Tableau =Range("A1:B"& Range("A65536").end(xlup).row).value
ensuite tu boucles sur le tableau
Sub Transfert()
Dim L as integer
Dim Tableau as variant
'on remplis le tableau de la plage de cellule A1:B x
Tableau =Range("A1:B"& Range("A65536").end(xlup).row).value
With Worksheets("Feuil2") 'en feuil 2
For L=1 to Ubound(tableau,1) 'pour chaque ligne du tableau
if Tableau(L,1)<>"" then ' si colonne 1 non vide
.Cells(L,1)=Tableau(L,1) 'on colle la colonne 1 du tableau en colonne A
.Cells(L,2)=Tableau(L,2) 'on colle la colonne 2 du tableau en colonne B
End if
Next
End With
End sub
en espèrant avoir pu t'aider 😀
n'hésite pas si problème
Bonne Journée

 

[flo2002]

Re : enlever les espaces lors d'une comparaison

merci je crois que je peux mettre ca dans ma macro!

bonne journée!