XL 2016 Macro Remplir cellule vide d'un tableau

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 !

linebich

XLDnaute Junior
Bonjour Forum , j’espère que vous allez bien
j'ai un problème d'un tableau avec nombre de ligne non fixe ( qui peut changer ) , qui peut contenir des cellule non vide par omission , est ce possible de creer une macro qui affecte a chaque cellule vide ( l’entête du tableau associé a cette cellule est non renseigné)
je m'explique
pour une colonne "Identifiant"
les cellules vide deviennent " Identifiant non renseigné"
et ceci pour tout les colonnes j’espère que vous aller comprendre mon but avec mon fichier
Voici un fichier contenant l'exemple
Merci pour tout retour de vos parts.
Cordialement .
 

Pièces jointes

Solution
Re,
C'était pas clair. 😉
En PJ avec une macro. J'ai conservé la MFC quand même. A supprimer si elle ne vous va pas.
VB:
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("C5:F14")) Is Nothing Then       ' adapter C5:F147
        For Each c In Range("C5:F14")                               ' adapter C5:F147
            If c = "" Then
                c.Value = Cells(5, c.Column) & " non renseigné."    ' 5 est le N° de ligne où se trouvent les titres.
            End If
        Next
    End If
End Sub
Rebonjour
Merci beaucoup pour ton retour Sylvanu
en fait mon objectif c'est de voir au niveau des tableau croisé dynamique qu'il ya des omissions des donnée ( au lieu de "Vide") au niveau de ma base ( donc a revoir pour completer avant de passer au statistique des TCD )
 
Re,
C'était pas clair. 😉
En PJ avec une macro. J'ai conservé la MFC quand même. A supprimer si elle ne vous va pas.
VB:
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("C5:F14")) Is Nothing Then       ' adapter C5:F147
        For Each c In Range("C5:F14")                               ' adapter C5:F147
            If c = "" Then
                c.Value = Cells(5, c.Column) & " non renseigné."    ' 5 est le N° de ligne où se trouvent les titres.
            End If
        Next
    End If
End Sub
 

Pièces jointes

- 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

Discussions similaires

  • Question Question
Microsoft 365 Index de Cellule
Réponses
12
Affichages
843
Réponses
6
Affichages
993
Retour