Discussion :

[seb112]

bonjour,

j'étais tout heureux d'avoir réussi à écrire ce code :

Dim ter As Range
For Each celvide In Range("A1:A12")
If celvide.Value = "" Then
MsgBox " merci de ne pas laisser de ligne vide"
Exit Sub
Exit For
End If
Next ter


je voulais en faite, que ma macro dise à l'utilisateur de ne pas laisser de case vide dans un tableau A1:A12 ( pour cela ma macro est bonne je pense )
mais je me suis vite rendu compte que l'utilisateur n'allait pas à chaque fois le remplir en entier ce tableau mais qu'il était possible qu'il ne le remplisse que de 3 ou 4 lignes avant de continuer ma macro.
de ce fait, j'ai chercher le moyen de "Exit sub" uniquement si il y à une ligne vide entre deux ligne pleine.

recherche sans succès pour l'instant..

quelqu'un aurait un conseil pour me guider ?

un tout grand merci.

[Qwazerty]

SAlut

Tu n'étais pas loin, c'est

Code :

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

1
2
3
4
5
6
7
8
Dim CelVide As Range 
 
For Each celvide In Range("A1:A12")                 
    If celvide.Value = "" Then                       
       MsgBox " merci de ne pas laisser de ligne vide" 
       Exit For                                             
    End If                                               
Next

Tu dois déclarer CelVide, ter ne sert à rien ici.

Autre chose, il serait préférable de préciser la feuille sur laquelle tu travailles. Le mieux c'est d'utiliser le CodeName des feuilles dans ton code, ça évite bien des risques d'erreur.


Pour info Exit Sub te fait quitter la procédure complète, le reste du code n'est alors pas exécuté.
Un conseil, prend tout de suite l'habitude d'indenter ton code pour facilité la lecture et le débogage.

Et pour ce qui est du forum, tu trouveras un bouton # dans l'éditeur, qui te permet de mettre ton code dans un encadré qui va bien (super important pour les code long et la coloration syntaxique

++
Qwaz

[seb112]

Raahhhh oui, j'aurais au moins pu voir cela ^^
merci Qwaz
Je vais aussi prendre le réflexe de spécifier la feuille comme conseillé.

le problème est que ce code déclenche la Msgbox si le tableau n'est pas plein. (ce qui est tout à fait possible et autorisé)
ce que je voudrais c'est que la Msgbox ne se déclenche que lorsqu'il y à une case vide entre deux pleine.

j'ai oublié de le dire mais vous l'aurez sans doute remarqué, je débute ^^

Code :

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

 test

Code :

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

ah oui ca marche

Code :

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

1
2
test 
test merci qwaz

[Franc]

Salut, comme ceci:

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 test()
Dim cel As Range
Dim videTrouve As Boolean
 
For Each cel In Range("A1:A12")
    If cel.Value = "" Then
        videTrouve = True
    Else
        If videTrouve Then
            MsgBox "Merci de ne pas laisser de case vide entre deux cases remplies."
            Exit Sub
        End If
    End If
Next cel
 
End Sub

[seb112]

c'est d'une logique déroutante.
à force cela rentrera..
Si je pouvais vous offrir des pralines, je le ferais !

merci beaucoup qwaz et franc

[Qwazerty]

Salut

Comme disait mon prof de techno en BEP quand il nous demandait de faire un schéma en fonction d'une problématique, "Je veux autant d solution différentes que de gens dans la classe".


Si on étudie le schéma des différents cas de figure que l'on peut rencontrer, on obtient


Ici, on se déplace dans la colonne en utilisant Ctrl + Flèche Bas. Ce mode de déplacement arrête le curseur avant un changement de contenu (Lorsqu'on passe de plein à vide ou inversement). En code VBA ça se traduit par

Code :

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

.End(xlDown)

On peut en déduire que 3 possibilités sont autorisées

1. 1 seule plage continue avec la 1ère cellule vide
2. 1 seule plage continue avec la 1ère cellule pleine
3. 2 plages avec la 1ère cellule pleine

Les solutions 1 et 2 montrent que si une seule plage existe, on autorise, quelle que soit l'état de la 1ère cellule (pleine ou vide).
Il ne reste donc que 2 états possible qui sont autorisés

1. 1 seule plage
2. 2 plages avec la 1ère cellule pleine

Niveau code, on peut faire quelques choses comme ça

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub TestAuto()
    If Not Autorisation(Feuil1.Range("A1:A12")) Then
        'Message d'alerte
        MsgBox "Merci de ne pas laisser de case vide entre deux cases remplies."
    End If
End Sub
 
Function Autorisation(PlageCtrl As Range)
Dim FirstVide As Boolean
Dim NbrLoop As Integer
 
Dim aCell As Range
Dim NextCell As Range
 
    'On pointe la cellule du début
    Set aCell = PlageCtrl.Cells(1, 1)
 
    'On conserve le fait que A1 soit vide ou non
    FirstVide = aCell.Value = ""
 
    'On parcours une plage continue de valeur (sont vide soit <>vide) autant de fois qu'il faut pour sortir de la zone
    Do
        'On pointe la nouvelle cellule sur laquelle on c'est arrêté
        Set aCell = aCell.End(xlDown)
        'On comptabilise le nombre de boucle
        NbrLoop = NbrLoop + 1
    'Si on dépasse le bas de la plage ou si on fait plus de 2 boucles, on quitte
    Loop Until (aCell.Row >= (PlageCtrl.Row + PlageCtrl.Count)) Or NbrLoop > 2
 
    'On controle le résultat
    Autorisation = (NbrLoop = 1) Or (NbrLoop = 2 And Not FirstVide)
 
End Function

Avantage:

1. Tu peux appeler "Autorisation" dans un code VBA, comme dans la procédure TestAuto
2. Tu peux utiliser "Autorisation" directement dans une cellule, comme dans la ligne 21. Si le contenu de la plage surveillée change, le résultat se met à jour automatiquement.
   Tu peux ensuite utiliser ce résultat pour faire une coloration des cellules (MFC). Ça évite le MsgBox que je trouve souvent agressif...

++
Qwaz

[Philippe Tulliez]

Bonjour,
Personnellement, j'utilise une mise en forme conditionnelle pour mettre en évidence les cellules non remplies.