TEST cellule vide d'un tableau

[taxi.cab]

Bonjour,

J'aimerai créer une macro qui me permette de vérifier si dans un tableau (A1:E8) toutes les cellules sont remplies, et si il y en a une de pas remplie, on me renvoit à cette cellule.

Merci d'avance

 

[Pierrot93]

Re : TEST cellule vide d'un tableau

Bonjour,

regarde peut être ceci.. sans plus de détails...

On Error Resume Next
Range("A1:E8").SpecialCells(xlCellTypeBlanks).Select
On Error GoTo 0

bon après midi
@+

 

[taxi.cab]

Re : TEST cellule vide d'un tableau

je vous remercie cela fonctionne pour mon tableau par contre j'ai créé un bouton pour que dès qu'un tableau soit rempli il le copie (en effaçant les données) et le coller juste en dessus tout en gardant le premier remplie.
et je ne vois pas comment faire la macro pour que la macro pour tester si une cellule est vide s'applique au fur et a mesure de l'ajout de mes tableaux (qu'elle teste chaque tableau des que j'en crée un).

Merci d'avance encore une fois 🙂

 

[job75]

Re : TEST cellule vide d'un tableau

Bonjour taxi.cab, salut Pierrot,

Nommez le tableau A1:E8 "MonTablo" (par exemple).

Puis affectez au bouton cette macro :

Sub Creer_Tableau()
On Error Resume Next
[MonTablo].SpecialCells(xlCellTypeBlanks).Select
If Err = 0 Then MsgBox "Tableau incomplet !": Exit Sub
On Error GoTo 0
With [MonTablo].Offset([MonTablo].Rows.Count + 1)
  [MonTablo].Copy .Cells
  .ClearContents 'RAZ
  .Name = "MonTablo" 'nomme le nouveau tableau
End With
End Sub

J'ai mis une ligne de séparation entre les 2 tableaux.

A+

 

[job75]

Re : TEST cellule vide d'un tableau

Re,

Si la 1ère ligne du tableau est une ligne de titres, bien sûr on ne l'efface pas :

Sub Creer_Tableau()
On Error Resume Next
[MonTablo].SpecialCells(xlCellTypeBlanks).Select
If Err = 0 Then MsgBox "Tableau incomplet !": Exit Sub
On Error GoTo 0
With [MonTablo].Offset([MonTablo].Rows.Count + 1)
  [MonTablo].Copy .Cells
  .Offset(1).ClearContents 'RAZ
  .Name = "MonTablo" 'nomme le nouveau tableau
End With
End Sub

A+