Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

TEST cellule vide d'un tableau

  • Initiateur de la discussion Initiateur de la discussion taxi.cab
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

T

taxi.cab

Guest
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
 
Re : TEST cellule vide d'un tableau

Bonjour,

regarde peut être ceci.. sans plus de détails...
Code:
On Error Resume Next
Range("A1:E8").SpecialCells(xlCellTypeBlanks).Select
On Error GoTo 0
bon après midi
@+
 
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 🙂
 
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 :

Code:
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+
 
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 :

Code:
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
196
Réponses
3
Affichages
315
Réponses
2
Affichages
282
Réponses
7
Affichages
684
Réponses
10
Affichages
408
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…