Discussion :

[francis45]

Bonjour à tous
j'ai un problème pour mettre une condition dans la deuxième partie du code ci-dessous
en effet je voudrais que lorsque que l'on clique sur valider
soit la ligne qui vient d être créée est vide en colonne A
la ligne soit supprimée et affichage d'une message box "entrée non renseignée supprimée"
soit la ligne est renseignée colonne A
donc action valider et message box "entrée validée"
merci à vous si vous avez une solution
ci-joint le code utilisé

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
Private Sub CommandButton3_Click()
 
ActiveCell.Select 'enève le focus au bouton
Select Case Me.CommandButton3.Caption 'agit en fonction du texte du bouton
    Case "NOUVELLE ENTREE AED" 'cas "Masquer"
        Me.CommandButton3.Caption = "VALIDER" 'modifie le texte du bouton
    Range("G1,M1,N1,P1,Z1,AA1").EntireColumn.Hidden = False
derlig = Range("A65536").End(xlUp).Row + 1
Worksheets("GENERAL").Range("A" & derlig).EntireRow.Insert
Worksheets("GENERAL").Range("A" & derlig).EntireRow.ClearContents
 Worksheets("GENERAL").Range("A" & derlig).EntireRow.Interior.ColorIndex = xlNone
  Worksheets("GENERAL").Range("A" & derlig).Select
 
Dim z As Long
    Application.ScreenUpdating = False
    For z = Cells(Rows.Count, "A").End(xlUp).Row To 3 Step -1
        If Range("A" & z) <> "" Then Rows(z).Hidden = True
    Next z
    Application.ScreenUpdating = True
    Worksheets("GENERAL").Range("A" & derlig).Select
 
Case "VALIDER" 'cas "Afficher"
        Me.CommandButton3.Caption = "NOUVELLE ENTREE AED" 'modifie le texte du bouton
        Application.ScreenUpdating = False
    For z = Cells(Rows.Count, "A").End(xlUp).Row To 3 Step -1
        If Range("A" & z) <> "" Then Rows(z).Hidden = False
 
    Next z
End Select 'fin de l'action en fonction du texte du bouton

[ARTURO83]

Bonjour,

donc action valider et message box "entrée validée"

, Action "Valider", je suppose qu'il s'agit d'une macro à part

Donc, si j'ai bien compris:

Code :

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

1
2
3
4
5
6
7
8
            For z = Cells(Rows.Count, "A").End(xlUp).Row To 3 Step -1
                If Range("A" & z) <> "" Then
                    'Valider 'Appelle la macro "Valider"
                    MsgBox "entrée validée"
                Else
                    Rows(z).EntireRow.Delete
                    MsgBox "entrée non renseignée supprimée"
                End If

Cdlt

[francis45]

merci Arturo83
probleme resolu