Discussion :

[Enzo.CE]

Bonjour,

Je voulais demander à la communauté de ce site si c'était possible de rendre obligatoire la saisie de chaque cellule sur une feuille en sachant que la Range est (A1:AM126).
Je ne suis pas encore très habitué au langage VBA, j'espère que vous serez un peu indulgent avec moi.

Coordialement Enzo.CE.

[patricktoulon]

fait un find empty sur ta plage si c'est oui alors elle ne sont pas toutes remplie

ou un countifs aussi sur les cellules empty de la plage

tu a aussi le specialcells

Code :

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

1
2
3
if Range("A1:J1").SpecialCells(xlCellTypeBlanks).Count> 0 then
 
end if

ou meme encore

Code :

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

1
2
3
if Application.WorksheetFunction.CountBlank(Sheets("Feuil1").Range("A1:J1"))> 0 then
 
end if

bref le B a BA d'excel vba

[unparia]

Seule la seconde des deux solutions proposées par patricktoulon met à l'abri de surprises (erreur si une ligne vide est malheureusement intercalée dans la plage parcourue)

[Enzo.CE]

Suite à votre réponse j'ai essayé vos 2 codes, seulement après plusieurs relecture je penses que je ne vous aies pas donnés assez d'information pour que vous puissiez m'aider. Mon objectif de base c'était de créer un bouton pour pouvoir convertir un fichier Xml en Csv en appuyant sur un Bouton, ce qui est fait. Or maintenant je souhaiterais que le document fasse un check-up de toute la feuille que je veux sauvegarder et me dire si toute les cellules sont remplis ( et si possible arrêter le programme si tout n'est pas remplis ). Je ne sais pas si ma formulation est la bonne mais j'espère qu'elle vous aura éclairé sur ce que je désires faire et encore désolé pour ces imprécisions.

Coordialement

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
Sub Macro_Sélection_de_feuille()
'
' Macro_Sélection_de_feuille Macro
'
 
     Sheets("FICHIER EXEMPLE").Select
    Range("A1:AM126").Select
    Application.DisplayAlerts = False
     If MsgBox("Etes-vous certain de vouloir convertir ce fichier ?", vbYesNo, "Demande de confirmation") = vbYes Then
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Alexandre Mautret\Desktop\FICHIER EXEMPLE", FileFormat:=xlCSV, CreateBackup:=False, Local:=True
        ActiveWindow.Close
        Application.DisplayAlerts = True
End If
End Sub

[Menhir]

Je voulais demander à la communauté de ce site si c'était possible de rendre obligatoire la saisie de chaque cellule sur une feuille en sachant que la Range est (A1:AM126).

A mon avis, on ne peut pas imposer la saisie d'un ensemble de cellules.
Par contre, on peut empêcher une action (un calcul, une sauvegarde, etc.) si un ensemble de cellules n'est pas intégralement complété.

Mais pour indiquer comment le faire, il faudrait savoir quelle type d'action est à bloquer.

[Enzo.CE]

A mon avis, on ne peut pas imposer la saisie d'un ensemble de cellules.
Par contre, on peut empêcher une action (un calcul, une sauvegarde, etc.) si un ensemble de cellules n'est pas intégralement complété.

Mais pour indiquer comment le faire, il faudrait savoir quelle type d'action est à bloquer.

Bonjour Menhir,

Vous avez parfaitement compris ce que je voulais faire, mon but étant de faire un check-up de toute les cellules avant de sauvegarder pour convertir mon fichier en CSV. Il faudrait donc pouvoir bloquer la sauvegarde si toute les cases ne sont pas remplis, afficher un message d'erreur et montrer quelles sont celles qui ne sont pas remplis.

J'ai déjà une meilleur idée de ce que je dois chercher et faire, j'espère que vous pourrez encore m'aider

Cordialement Enzo CE

[Menhir]

En partant du principe que tes cellules "non saisies" correspondent bien à des cellules vides (sans valeurs ni fonctions), mettre en début de 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
    Dim CC as Range
 
    For Each CC in Range("A1:AM126")
        If CC.Text = "" Then
            MsgBox("La Cellule " & CC.Address & " n'a pas été saisie." & Chr(13) & "Conversion annulée", vbCritical + vbOKOnly,"ERREUR")
            Exit Sub
        End If
    Next CC
 
    If MsgBox("Etes-vous certain de vouloir convertir ce fichier ?", vbYesNo, "Demande de confirmation") = vbNo Then Exit Sub
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\Alexandre Mautret\Desktop\FICHIER EXEMPLE", FileFormat:=xlCSV, CreateBackup:=False, Local:=True
    Application.DisplayAlerts = True
 
End Sub

[Enzo.CE]

En partant du principe que tes cellules "non saisies" correspondent bien à des cellules vides (sans valeurs ni fonctions), mettre en début de 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
    Dim CC as Range
 
    For Each CC in Range("A1:AM126")
        If CC.Text = "" Then
            MsgBox("La Cellule " & CC.Address & " n'a pas été saisie." & Chr(13) & "Conversion annulée", vbCritical + vbOKOnly,"ERREUR")
            Exit Sub
        End If
    Next CC
 
    If MsgBox("Etes-vous certain de vouloir convertir ce fichier ?", vbYesNo, "Demande de confirmation") = vbNo Then Exit Sub
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\Alexandre Mautret\Desktop\FICHIER EXEMPLE", FileFormat:=xlCSV, CreateBackup:=False, Local:=True
    Application.DisplayAlerts = True
 
End Sub

J'ai donc mis votre code comme vous l'avez dis au début, j'obtient alors ce résultat :

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
    Sub Macro_Sélection_de feuille()
    Dim CC As Range
 
    For Each CC In Range("A1:AM126")
        If CC.Text = "" Then
            MsgBox("La Cellule" & CC.Address & " n'a pas été saisie." & Chr(13) & "Conversion annulée", vbCritical + vbOKOnly,"ERREUR")
            Exit Sub
        End If
    Next CC
 
    If MsgBox("Etes-vous certain de vouloir convertir ce fichier ?", vbYesNo, "Demande de confirmation") = vbNo Then Exit Sub
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\Alexandre Mautret\Desktop\FICHIER EXEMPLE", FileFormat:=xlCSV, CreateBackup:=False, Local:=True
    Application.DisplayAlerts = True
 
End Sub

Votre code semble juste mais lors du test de ce dernier j'obtient une erreur de compilation : Erreur synthaxe à la ligne de MsgBox .
Je penses que l'apparition de cette erreur vient du fait que j'ai mal placé mon code mais je vous fais quand même part de cette dernière en espérant que vous pourrez m'aider.

[pijaku]

Bonjour,

Enlève les parenthèses de la première MsgBox.

Code :

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

MsgBox "La Cellule " & CC.Address & " n'a pas été saisie." & Chr(13) & "Conversion annulée", vbCritical + vbOKOnly,"ERREUR"

[Menhir]

Votre code semble juste mais lors du test de ce dernier j'obtient une erreur de compilation : Erreur synthaxe à la ligne de MsgBox .

Je pense que ça vient du fait que j'ai copié ton MsgBox qui est au format "fonction" avec parenthèses.
Essaye cette syntaxe pour le MsgBox :

Code :

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

            MsgBox "La Cellule" + CC.Address + " n'a pas été saisie." + Chr(13) + "Conversion annulée", vbCritical + vbOKOnly, "ERREUR"

[Enzo.CE]

Je pense que ça vient du fait que j'ai copié ton MsgBox qui est au format "fonction" avec parenthèses.
Essaye cette syntaxe pour le MsgBox :

Code :

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

            MsgBox "La Cellule" + CC.Address + " n'a pas été saisie." + Chr(13) + "Conversion annulée", vbCritical + vbOKOnly, "ERREUR"

Votre code Marche super bien merci seul bémol il ne scan que la feuille où est présent le bouton or le bouton n'est pas sur la même feuille qui est à analyser.

Edit : Dans mon premier code je me suis souvenu de comment j'ai sélectionner la feuille que je voulais soit : Sheets("FICHIER EXEMPLE").Select
Encore merci pour votre patience et votre aide

[Menhir]

seul bémol il ne scan que la feuille où est présent le bouton or le bouton n'est pas sur la même feuille qui est à analyser.

Evite les Select, c'est pas beau.

Code :

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

    For Each CC In Sheets("FICHIER EXEMPLE").Range("A1:AM126")