rechercher une case vide dans un tableau VBA

Question

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.
Configuration: Windows XP / Firefox 3.6.6

bacus13 · Answer

utilise la fonction Range("A1","E5").find(.........)
et tu dois trouver une cellule contenant "" evidement...

michel_m · Answer

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

cousinhub29 · Answer

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

Rechercher une case vide dans un tableau VBA

3 réponses

Votre réponse

Discussions similaires

Newsletters