Discussion :

[Thomas69]

Bonjour,

Je dois créer une condition pour obliger les personne utilisant un fichier excel de remplir la case au dessus d'elle et les cases a cotés

Pour cela je dois réaliser deux conditions

La 1er condition :
Si la case d'au dessus n'est pas remplis je ne peux pas ecrire dans cette case.

2eme condition :
Si la case a coté n'est pas remplis je ne peux pas écrire dans cette case

Exemple :

La case A1 n'est pas remplie, donc je ne peux pas remplir la case A2

Si la case A2 n'est pas remplie, je ne peux pas remplir la case F2

Si la case A1 est remplie, je peux remplir la case A2 et ensuite remplir la case F2

Je ne sait pas trop comment écrire cette macro. Voici un début que j'ai réalisé.

Merci d'avance de tous vos coups de pouces ou autre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Message()
    Application.ScreenUpdating = False
    Sheets("Saisie").Select 'Feuille où se trouve le tableau
    For i = 5 To 10000
        acquit = Cells(i-1, 1) 'colonne A
        If Not IsEmpty(acquit) Then
            MsgBox "Le case avant n'est pas remplie" 'message d'erreur
          Else
            Sheets("Saisie").Select
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

Le nom sur la feuille que je travaille se nomme Saisie

[David2304]

Bonjour Thomas

J'espère que ma réponse te conviendra :

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 Worksheet_Change(ByVal Target As Range)
If Target.Row <> 1 Then
    If Target <> "" And Target.Offset(-1, 0) = "" Then
    Target = ""
    MsgBox "Merci de remplir la case du dessus au préalable"
    Exit Sub
    End If
End If
If Target.Column <> 1 Then
    If Target <> "" And Target.Offset(0, -1) = "" Then
    Target = ""
    MsgBox "Merci de remplir la case d'à côté au préalable"
    Exit Sub
    End If
End If
End Sub

[Thomas69]

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
Sub Thomas()

Target As Range
If Target.Row <> 1 Then
If Target <> "" And Target.Offset(-1, 0) = "" Then
Target = ""
MsgBox "Merci de remplir la case du dessus au préalable"
Exit Sub
End If
End If
If Target.Column <> 1 Then
If Target <> "" And Target.Offset(0, -1) = "" Then
Target = ""
MsgBox "Merci de remplir la case d'à côté au préalable"
Exit Sub
End If
End If
End Sub

Voila j'ai inserer le code de telle maniere mais ne se lance pas
et me met instruction incorrecte a la ligne en rouge

[David2304]

En fait ce type de code ne se lance pas par bouton de commande, il s'execute lorsqu'un cellule de ta feuille est modifiée
c'est l'instruction worksheet_change

Sélectionne ta feuille dans vba et tu insères le code tel qu'il est

[Thomas69]

Je ne vois pas ce que tu veux dire

J'ai compris pour cette ligne de code quand je modifie ca me lance la macro
mais quand je lance la macro
une fenetre apparait et me demande un nom de macro
j'en met un au hasard et ca me crée une nouvelle macro

j'ai pourtant selectionner la feuille comme tu as dis

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
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Saisie").Select 'selection de la feuille
If Target.Row <> 1 Then
If Target <> "" And Target.Offset(-1, 0) = "" Then
Target = ""
MsgBox "Merci de remplir la case du dessus au préalable"
Exit Sub
End If
End If
If Target.Column <> 1 Then
If Target <> "" And Target.Offset(0, -1) = "" Then
Target = ""
MsgBox "Merci de remplir la case d'à côté au préalable"
Exit Sub
End If
End If
End Sub

[David2304]

Non c pas ça en fait tu vas dans VBA
dans ton explorateur de projets tu te positionnes sur ta feuille "saisie"
puis là tu colles le code tel qu'il est

et là, dès qu'une modif sera faite sur ta feuille excel le code se lancera

[zazaraignée]

(soupir...)... (pas d'exaspération, faut s'entendre...)

Dans l'éditeur VBA, il y a une petite fenêtre à gauche avec une arborescence du genre :

- Projet VBA (Classeur1)
- Objets Microsoft Excel
- Feuil1 (Feuil1)
- Feuil2 (Feuil2)
- Feuil3 (Feuil3)
- Module1

Pour obtenir un squelette de code événementiel pour une feuille ou pour le classeur :

• Tu double-cliques sur la feuille en question (Feuil1, par exemple). Une page d'édition de code s'ouvre.
• En haut il y a deux liste déroulantes. Tu choisis dans celle de gauche l'objet Worksheet (d'ailleurs, il n'y a que celui là!) et dans celle de droite l'événement Change.
• Finalement, tu ne copies que le code nécessaire à l'intérieur de la structure qui a été automatiquement ajoutée.

Voilà!

[Thomas69]

Merci je viens de comprendre

Par contre je viens de me rendre compte que les case sont assemblé par 3
je ne sais pas comment on peut rajouter un pas de 3 (step 3) dans le code que tu m'as fournis

Au sinon un grand merci a vous deux

[David2304]

Peux-tu donner un exemple des cellules utilisées STP ? parce que là je te suis pas trop

[Thomas69]

par exemple



Les cellules ton assemblé par 3

F5 ,F6 et F7 forme une seulle cellule et il ya une seulle information
quand je modifie une cellule en dessous le programme verifie ligne par ligne et comme j'ai un assemblage il ne le remarque pas et croit que la cellule est vide


donc pour éviter ce probleme je voulais vérifier de 3 en 3

[David2304]

Peux-tu envoyer un fichier avec une dizaine d'exemples ? afin que je puisse déterminer une suite logique entre chaque paquet de cellules car là ton exemple ne m'avance pas trop

[LeXo]

pour faire la relation entre toi et le code

pas = offset

offset(colonne, ligne) permet de bouger autour de ta cellule cible "target"

je remontes de 1 lignes

Code :

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

Target.Offset(-1, 0) = ??

je remontes de 2 lignes

Code :

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

Target.Offset(-2, 0) = ??

...
enfin voila
plus simple, je vois pas

[Thomas69]

oui c'est ca Exactement merci beaucoup (pourquoi j'ai y ai pas pensé)

Par contre comment je peux faire pour juste lancer cette macro sur une colonne particulière?

exemple lancer cette macro seulement dans la colonne H

[David2304]

Tu mets simplement ton numéro de colonne en condition

Code :

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

if target.column = 6 then

[Thomas69]

au punaise je suis trop stupide

Merci beaucoup a vous tous

en tous cas je sent que je vous dois une caisse de champagne

[David2304]

Ptet pas quand même