Bonjour à tous,
J'ai un souci avec VBA... J'ai longuement cherché sur des forums mais rien à faire, je ne trouve pas de solution efficace !
Voila, j'ai une plage de données qui est alimentées réguliérement par de nouveaux individus (nouvelle ligne) et de nouveaux résultats (nombre de colonne fixe) ! Les résultats d'examens sont rangés dans les colonnes en fonction de l'âge de l'individu ! Toutefois, il arrive qu'une ou plusieurs colonnes soient vides pour un individu car nous n'avons pas réalisés d'examen à ces âges !
Pour réaliser un certains nombre de calcul, j'ai besoin de supprimer les cellules vides pour chaque ligne...
J'ai réussi à bidouiller ce bout code dont je ne suis pas très fier :
Le problème, c'est qu'il me laisse des cellules vides si j'ai plusieurs cellules vides l'une à côté de l'autre donc je dois le relancer un certains nombre de fois ! Et ça marche, je n'ai plus de cellules vides mais le temps d'éxecution est très très très loooooooooonnnnnnnnnng !!! ...il y a 62 colonnes à analyser pour chaque ligne !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Sheets("Temp").Select For x = 1 To 10 'Faire tourner la macro 10 fois For i = 1 To Sheets("Temp").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row For k = 1 To 62 If Cells(i, k) = "" Then Cells(i, k).Delete shift:=xlToLeft End If Next k Next i Next x
Quelqu'un aurait-il un bout de code un peu plus rapide ???
Merci par avance !
Partager