enlever les espaces lors d'une comparaison

flo2002

XLDnaute Impliqué
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

XLDnaute Barbatruc
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 :D
n'hésite pas si problème
Bonne Journée

 

Discussions similaires

Réponses
10
Affichages
190
Réponses
4
Affichages
186