Discussion :

[rickgoz]

Bonjour voilà je cherche à réunir ces deux fonctions en une seule.
Pensez vous que cela soit possible?

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
34
35
36
37
Sub PremAction()
 
Dim i As Long, result As String
 
Worksheets("Feuil1").Range("B:B,C:C,D:D,E:E,H:H,N:N,O:O,Q:Q,S:S,T:T,U:U,AD:AD").EntireColumn.Hidden = True
 
With Sheets(1) '<-- adapter le nom de la feuille
    .Range("A:A").EntireRow.Hidden = False '<-- réaffichage de toutes les lignes
    For i = 4 To .Cells(Rows.Count, 1).End(xlUp).Row '<-- de la ligne 2 à la  dernière ligne de la colonne A
          If .Cells(i, 23) <> "" And .Cells(i, 23) <= Date And .Cells(i, 24) = "" Then
            result = result & Chr(20) & .Cells(i, 1) '<-- alors on mémorise le nom de la société
            .Rows(i).Hidden = True '<-- sinon on masque la ligne
        End If
    Next
End With
 
MsgBox "les sociétés à rappeler sont :" & vbLf & vbLf & result
 
End Sub
 
 
Sub DeuAction()
 
Dim i As Long, result As String
 
Worksheets("Feuil1").Range("B:B,C:C,D:D,E:E,H:H,N:N,O:O,Q:Q,S:S,T:T,U:U,AD:AD").EntireColumn.Hidden = True
 
With Sheets(1) '<-- adapter le nom de la feuille
    .Range("A:A").EntireRow.Hidden = False '<-- réaffichage de toutes les lignes
    For i = 4 To .Cells(Rows.Count, 1).End(xlUp).Row '<-- de la ligne 4 à la  dernière ligne de la colonne A
        If .Cells(i, 27) <> "" And .Cells(i, 27) <= Date And .Cells(i, 28) = "" Then '<-- si la cellule contient la date du jour (Date renvoie la date du jour)
            result = result & Chr(10) & .Cells(i, 1) '<-- alors on mémorise le nom de la société
        Else
            .Rows(i).Hidden = True '<-- sinon on masque la ligne
        End If
    Next
End With

La première fonction dit: Si 23 est différente du vide et si 23 contient une date inférieur ou égale à la date du jour et si 24 vide alors on mémorise le nom
Sinon on masque les lignes

La deuxième fonction dit: Si 27 est différente du vide et si 27 contient une date inférieur ou égale à la date du jour et si 28 vide alors on mémorise le nom
Sinon on masque les lignes

Moi je voudrais les deux en même temps:

Si 23 est différente du vide et si 23 contient une date inférieur ou égale à la date du jour et si 24 vide alors on mémorise le nom.
Et si 27 est différente du vide et si 27 contient une date inférieur ou égale à la date du jour et si 28 vide alors on mérmorise le nom

Sinon on masque les lignes...


Pensez vous que ce soit possible, j'ai essayé quelque ligne de code, sans grande réussite....

J'espère avoir été assez clair...

Merci d'avance

[fring]

Bonjour,

Ceci devrait le faire

Code :

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

If (.Cells(i, 23) <> "" And .Cells(i, 23) <= Date And .Cells(i, 24) = "") Or (.Cells(i, 27) <> "" And .Cells(i, 27) <= Date And .Cells(i, 28) = "") Then

[rickgoz]

Merci,

Je suis un peu nul.
Je ne savais pas comment relier les deux if....