recherche dans une colonne

[Amine22]

Salut,

je suis un débutant, dans excel qui veut faire une petite application.
j'aimerai savaoir comment faire pour rechercher dans une colone donné les cellule vide pour y affécté des valeur.

Probléme la fonction doit cherché dans la colonne mais elle ne doit pas dépassé la limite de mon tableau. la solution c que elle doit vérifier si la cellule qui ce trouve avant elle et remplis si elle ne l'ai pas ça veut dire qu'il doit s'arrété.
mais ça je ne sais pas comment le formulé en code.

 

[andré]

Salut,
Pour apporter une solution simple, il me faudrait quelques précisions :
Le tableau est-il trié (nécessairement sur une autre colonne ne contenant pas de cellules vides) ?
Faut-il s'arrêter à chaque cellule vide de la colonne pour y introduire une donnée ou faut-il introduire la même donnée dans toutes les cellules vides ?
Je crois qu'il y a moyen de résoudre ce problème sans macro.
André.

 

[amlou]

Merci andré pour ton aide,

Il faut s'arrêté a chaque cellul vide de la colonne.
a chaque cellul vide rencontrer il doit la remplir par la date actuel (NOW).

et ceci a chaque activation de la feuille contenant mon tableau.

 

[andré]

La macro suivante inscrit la date du jour dans la première cellule vide de la colonne A.

Touche de raccourci: Ctrl+x
Sub ....()
Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
ActiveCell.FormulaR1C1 = "=TODAY()"
End Sub

Pour la cellule suivante, à nouveau Ctrl+x

André.

 

[amlou]

Voila ce que je veut faire :

Do While vide = False

ActiveCell.Offset(i, 0).Select

If ActiveCell.Value = "" Then
ActiveCell.Previous.Select
If ActiveCell.Value <> "" Then
ActiveCell.Next.Select
ActiveCell.Value = Now
Else
vide = True
End If
End If
i=i+1
Loop


Commentaire: Je veut circulé ma colonne de haut en bas une fois que je trouve une cellule vide, je doit vérifier si la cellule qui est avant n'est pas elle aussi vide car c le test d'arrét ça. si cette derniere n'est pas vide je retourne ou j'etait pour mettre la date d'aujourd'huit.

Pourkoi : je test sur les deux cellule car la colonne ou je suis peut contenir des cellule vide celle qui 'est avant elle ne peut l'etre c.a.d que je suis arrivé a la fin de la colonne.

Probléme : ce que j'ai ecrit la ça marche tres bien. mais il y a un probleme c que je circule de haut en bas a droit et a gauche mais la fonction ActiveCell.offset(i,0).select elle saute les cellule vide. et elle ne les selectionne pas. et moi c les cellule vide que je veut.

SVP : si vous avez une idée. pourkoi ça ne marche pas. ou bien une autre maniere de procéder mais tt en respectant les besoin de cette boucle, aidez moi.

Merci Bcp

 

[pat5]

Sub SelectionCellulesVides()
'
' Macro enregistrée le 16/09/2002 par Patrick
'
'Sélection de la plage " A1:A2000 "
Range("A1:A2000").Select
' Sélection des cellules vides
Selection.SpecialCells(xlCellTypeBlanks).Select
' Marque aujourd'hui
Selection.FormulaR1C1 = "=TODAY()"

Range("A1:A2000").Select

Selection.Copy
' Collage spécial " Valeurs " pour éviter que la date change
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False

End Sub