Discussion :

[le-guedin]

Bonjour à tous

Voilà je suis en train d'avancée sur le VBA novice inside : mrgreen: !!

Je voudrais avec du code remplir toutes les cellules vides d'un tableau mais voici le souci c'est de lui faire comprendre que le tableau à une fin c'est à dire ligne 30 et colonne H je voudrais sans taper en dur la limite du tableau actuel car le souci c'est que demain mon tableau risque de s'agrandir ou de réduire

Voici mon code pour les cellules vides :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub cmdRemplire_Click()
 
'*******************************************************
'Permets de remplir les cellules vides automatiquement '
'*******************************************************
 
Dim MaPlage, Cell As Range
 
Set MaPlage = Range("A4:Z24") 'à adapter
For Each Cell In MaPlage
 
    If IsEmpty(Cell.Value) Then
        Cell.Value = "/"
    End If
 
Next Cell
 
End Sub

par contre ici tout est en dur donc je recherche un code qui selon le tableau sur le classeur excel sait la limite du tableau

En vous remerciant de votre aide

[Daniel.C]

Bonjour,

Voici une méthode pour dimensionner ta plage et pour la remplir sans boucler :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub cmdRemplire_Click()
 
'*******************************************************
'Permets de remplir les cellules vides automatiquement '
'*******************************************************
 
Dim MaPlage, Cell As Range, Col As Integer, Ligne As Long
Ligne = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Col = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
Set MaPlage = Range([A4], Cells(Ligne, Col)) 'à adapter
MaPlage.SpecialCells(xlCellTypeBlanks).Value = "/"
'For Each Cell In MaPlage.SpecialCells(xlCellTypeBlanks)
'
'    If IsEmpty(Cell.Value) Then
'        Cell.Value = "/"
'    End If
'
'Next Cell
 
End Sub

[le-guedin]

merci je vais tester ton code

Edite : niquel le code fonctionne comme je voulais