GS82
XLDnaute Occasionnel
salut
j'ai un ensemble de cellule (B105:J105) qui soit renferment des données soit sont vides
j'ai voulu regrouper les cellules vides
j'ai écrit ceci
et ça marche, sauf que ça prend énormément de temps (environ 3 minutes
y'a t il un autre code plus compact?
je suis la
a plus
j'ai un ensemble de cellule (B105:J105) qui soit renferment des données soit sont vides
j'ai voulu regrouper les cellules vides
j'ai écrit ceci
Code:
Sub nonvide()
ActiveSheet.Select
ActiveSheet.Cells(105, 3).Select
For i = 3 To 81
ActiveSheet.Cells(105, i).Select
Do
If Selection.Offset(0, -1).Value <> "" Then Exit Do
If Selection.Offset(0, -1).Value = "" Then
Selection.Offset(0, -1).Value = Selection.Value
Selection.ClearContents
Selection.Offset(0, -1).Select
End If
Loop Until Selection.Offset(0, -1).Value <> ""
Next
End Sub
et ça marche, sauf que ça prend énormément de temps (environ 3 minutes
y'a t il un autre code plus compact?
je suis la
a plus