Controle cellule pleine en VB Excel
Bonjour,
je cherche à faire une boucle en VB Excel, avec exécution d'une action tant que la cellule active est remlie.
Je connais la fonction inverse If IsEmpty(ActiveCell) Then
mais ne trouve pas de fonction "IsFull".
Si quelqu'un a une solution.
Merci d'avance
je cherche à faire une boucle en VB Excel, avec exécution d'une action tant que la cellule active est remlie.
Je connais la fonction inverse If IsEmpty(ActiveCell) Then
mais ne trouve pas de fonction "IsFull".
Si quelqu'un a une solution.
Merci d'avance
2 réponses
-
Bonjour
essaye avec çaDo While activecell.value <>""
ou bien :if avtivecell <>"" then
en esperant que cela t'aides
A+-
Merci pour l'info, cela m'a permit de reformater une liste de fichier provenant d'unix, et de remettre les noms de sous rép en face des noms de fichiers.
Pour info la macro :
ActiveCell.Offset(1, 0).Range("A1").Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(-1, 0).Range("A1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
Application.CutCopyMode = False
ActiveCell.Offset(1, 0).Range("A1").Select
-
-
Bonjour,
Moi j'ai déjà utilisé ça :
While Worksheets("Nomonglet").Cells(indice, numcolonne) <> ""
.
..
.
.
indice = indice + 1
Wend
