Rechercher une case vide dans un tableau VBA

cam -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,


Je souhaiterais rechercher une case disponible dans un tableau de 5 lignes et 5 colonnes à l'aide de la programmation VBA.
Dans un premier temps, je voudrais:
- vérifier qu'il reste des cases vides dans le tableau
- inscrire une valeur 'texte' dans la première case vide qu'il trouvera

(la recherche peut se faire en horizontal ou en vertical, ça ne pose pas de soucis car ce petit programme permettra de simuler des espaces de stockage disponibles)

Merci beaucoup d'avance.

Cam.
A voir également:

3 réponses

Réponse 1 / 3
bacus13 Messages postés 30 Date d'inscription   Statut Membre Dernière intervention   8
 
utilise la fonction Range("A1","E5").find(.........)
et tu dois trouver une cellule contenant "" evidement...
0
Réponse 2 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour cam

essaies 
Option Explicit 

Sub stocker() 
Dim cellule As Range,plage as range,
dim tontexte

Set plage = Range("B2:F6") 
If Application.CountA(plage) < 25 Then 
    tontexte = InputBox("texte ?") 
        If tontexte = "" Then: Exit Sub 
    Set cellule = plage.Find("") 
    cellule = tontexte 
Else 
    MsgBox "tableau saturé", vbCritical 
End If 

End Sub

:-x
0
Réponse 3 / 3
cousinhub29 Messages postés 1074 Date d'inscription   Statut Membre Dernière intervention   361
 
Bonjour,

Une autre proposition : 

Sub Macro1()
Dim Plg As Range
Dim Msg As String
Set Plg = Range("A1:E5")
If Application.CountA(Plg) = 25 Then Exit Sub
Msg = InputBox("Texte?")
If Msg <> "" Then Plg.SpecialCells(xlCellTypeBlanks)(1) = Msg
End Sub


Bonne journée
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Jolie macro avec "SpecialCells" ! :-)

Bon WE
Michel
0

Discussions similaires

le frigo ne marche pas....
Nemo6456 -
Templier Nocturne -

1 réponse
Internat nourriture
shaun37 -
griggo -

4 réponses
recherche à partir de la barre d'adresse
Sylviane -
Lulin -

11 réponses