Discussion :

[Soya113]

Bonjour à tous, je débutant dans la programmation vba. Je dois créer un fichier excel pour des utilisateurs à qui j'oblige de remplir toutes les cellules avant de pouvoir quitter le fichier. Et je voudrais afficher dans une boite de dialogue, l'adresse des cellules vides.

Voici mon code pour le moment.. Me reste juste l'affichage des 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
Private Sub Workbook_Beforeclose(Cancel As Boolean)
 
Const Nb_Cases As Integer = 5
For c = 1 To Nb_Cases
For l = 1 To Nb_Cases
 
If Sheets("Feuil3").Cells(l, c) = "" Then
 
   MsgBox "La Cellule n 'est pas saisie"
     Cancel = True
End If
Next
Next
 
End Sub

Merci de votre aide..
Cdt

[Philippe Tulliez]

Bonjour,
S'il n'est pas impératif de passer par une programmation en VBA, tu peux parfaitement résoudre cela par une Mise en forme conditonnelle en mettant par exemple en rouge les cellules vides.
En admettant que la zone à encoder soit la plage $A$2:$F$20
Après sélection de cette plage, la formule à placer dans la MFC est :

Code :

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

=NBCAR(A2) = 0

[Soya113]

Merci de ta réponse.
Je n"ai surement pas compris, mais je ne vois pas du tout pourquoi je devrais utiliser une MFC dans ce cas là..

Ce qu'il me manque dans mon code Vba, c'est juste l'affichage des adresses de mes cellules vides dans ma MsgBox et je ne vois pas du tout comment faire.

MsgBox "La Cellule" & AdresseCellule & " n 'est pas saisie"

[JPierreM]

Bonjour

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
Private Sub sc()
 
Const Nb_Cases As Integer = 5
    For c = 1 To Nb_Cases
        For i = 1 To Nb_Cases
 
            If Sheets("Feuil1").Cells(i, c) = "" Then
            Message = Message & ", " & Cells(i, c).Address
 
               'msgBox "La Cellule n 'est pas saisie"
                 'Cancel = True
            End If
        Next
    Next
 MsgBox Right(Message, Len(Message) - 1)
End Sub

JP

[CODYCO]

essais ca

Code :

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

1
2
3
4
5
6
7
 
For Each cell In Range("ta zone de recherche")
If cell = "" Then
'ton code
V_Add=cell.Address
End If
Next cell

[Philippe Tulliez]

Bonjour,

Merci de ta réponse.
Je n"ai surement pas compris, mais je ne vois pas du tout pourquoi je devrais utiliser une MFC dans ce cas là..
Ce qu'il me manque dans mon code Vba, c'est juste l'affichage des adresses de mes cellules vides dans ma MsgBox et je ne vois pas du tout comment faire.
MsgBox "La Cellule" & AdresseCellule & " n 'est pas saisie"

C'était juste une suggestion qui permet à l'utilisateur de visualiser par une couleur que telle cellule n'est pas encodée.
Petite proposition en VBA

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Beforeclose(Cancel As Boolean)
 Const adr As String = "$A$2:$D$8"
 Dim rng As Range, sht As Worksheet
 Dim txt As String: txt = "La ou les Cellules suivantes ne sont pas saisie " & vbCrLf
 Set sht = ThisWorkbook.Worksheets("Feuil1")
 For Each rng In sht.Range(adr)
  If Len(rng) = 0 Then txt = txt & rng.Address & vbCrLf
 Next
 MsgBox txt
End Sub

[Soya113]

Merci pour vos réponses, je vais regarder ce que vous m'avez proposer et vous tiendrais informés

[Soya113]

Au final,

Seul suffisait d'ajouter comme l'indiquait JPierreM Cells(l,c).address, directement dans le MsgBox.

Merci pour vos réponses

[needlesurfer]

Petite modif proposée pour vérifier si une cellule est vide et une autre pour identifier dans la MsgBox l'addresse de la cellule.

MODIF: ajout de (False, False) après .address afin d'éliminer les $ du code.

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
Private Sub Workbook_Beforeclose(Cancel As Boolean)
 
Const Nb_Cases As Integer = 5
For c = 1 To Nb_Cases
For l = 1 To Nb_Cases
 
If IsEmpty(Sheets("Feuil3").Cells(l, c)) Then
 
   MsgBox "La Cellule " & Sheets("Feuil3").Cells(l,c)).Address(False, False) & " n'est pas saisie"
     Cancel = True
End If
Next
Next
 
End Sub