Discussion :

[Boulii038]

Bonjour, je suis en train de créer une base de donnée sous EXCEL afin de suive ma prospection.

Elle se compose de plusieurs Feuilles (une par secteur) fonctionnant toutes sur le même modèle.

En colonne B, j'ai la différence (en jours) entre la date prévue de relance (colonne C) et la date du jour (case A1). Les autres cases son le nom du client (Colonne D), ses cooronnées....
Et chaque client est sur une ligne différente.

J'aimerais qu'à l'ouverture de mon fichier, un pop-up sur lequel s'inscrit : Prospection en retard pour M."nom du client", Secteur "Nom de la Feuille" (et ce pour chaque client où B<0)

J'ai un peu cherché sur le forum, mais je ne m'en sors pas.

Comptant sur votre aide.

Merci d'avance

Boulii

[Kimy_Ire]

Bonjour Boulii038,

Voici pour toi :

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
Option Explicit
 
Private Sub Workbook_Open()
Dim oRng As Range
Dim oStr As String
Dim i As Integer
 
With Worksheets("Feuil6")
    Set oRng = .Range("B1")
    oStr = ""
    For i = 1 To .Columns(2).Find("*", , , , , xlPrevious).Row - 1
        If oRng.Offset(i, 0) < 0 Then
            oStr = oStr & "M. " & oRng.Offset(i, -1) & " , Secteur " & oRng.Offset(i, 1) & vbCrLf
        End If
    Next i
 
    MsgBox oStr
End With
End Sub

Ceci est donc à placer dans les événements de ton Workbooks.

J'ai supposé ici que le nom de tes clients étaient en A et la société en C.
Pour modification, la variable oRng parcours la colonne B.
Ainsi, les variables oRng.Offset(i, -1) et oRng.Offset(i, 1) représente les colonnes en question.

Je pense que tu arriveras à adapter !
N'hésite pas à revenir vers moi pour autant !

Cordialement,
Kimy

[patricktoulon]

salut Kimi

Code :

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

For i = 1 To .Columns(2).Find("*", , , , , xlPrevious).Row - 1

souhaitons qu'il n'y ai pas de cellules vides entre deux autres cellules n'est ce pas!

je pensais t'avoir expliqué pourquoi utiliser la fonction find avec l'argument "*" n'était pas judicieuse

Code :

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

For i = 1 To .cells(rows.count,2).end(xlup).row

[Boulii038]

Hello,

Merci Kimy_Ire, ton code fonctionne parfaitement et je t'en remercie milles fois (au moins).

Si j'ai bien compris, le code s'applique à la feuille inscrite dans cette ligne

Code :

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

With Worksheets("Feuil6")

Est-il possible de l'appliquer à toutes les feuilles (dans un même pop-up) quelque soit leur nombre et leur nom ?

Et également d'entrer le nom de la feuille à la suite du code (un peu comme ça)

Code :

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

oStr = oStr & "M. " & oRng.Offset(i, -1) & " , Secteur " & oRng.Offset(i, 1) & vbCrLf &", nom de la feuille"

J'ai en fait une feuille par ville (24 villes), celà me faciliterais grandement les choses.



Pour patricktoulon, j'ai inséré ta modification, même si je en comprend absolument rien au changement que ça implique


Merci encore

[patricktoulon]

Bonjour

ca change rien parce que tu n'a pas de cellules vides dans ta colonne B mais si par hasard un jour une cellule se trouve vide avant la fin la macro s'arrêtera a cette cellule

[Kimy_Ire]

Bonjour

ca change rien parce que tu n'a pas de cellules vides dans ta colonne B mais si par hasard un jour une cellule se trouve vide avant la fin la macro s'arrêtera a cette cellule

Par contre, j'avais mal lu ceci.
Ce n'est pas vrai.
Tu vérifias. (Argument xlPrevious.)

Cordialement,
Kimy

[Kimy_Ire]

salut Kimi


souhaitons qu'il n'y ai pas de cellules vides entre deux autres cellules n'est ce pas!

je pensais t'avoir expliqué pourquoi utiliser la fonction find avec l'argument "*" n'était pas judicieuse

Code :

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

For i = 1 To .cells(rows.count,2).end(xlup).row

Bonjour Patrick,

Oui, j'ai bien pris en compte ce que tu m'as dit.
Lorsque j'ai aidé Boulii038, j'ai repris un ancien code que j'avais fait pour une fonctionnalité similaire et je dois t'avouer ne pas avoir changer l'ensemble.

Quoi qu'il en soit, soit sûr que je suis conscient de ma maladresse avec la fonction find et que je m'efforce de m'améliorer !
Je te remercie pour tes conseils !

Cordialement,
Kimy

[Kimy_Ire]

Et à Boulii038,

Voici !

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
Option Explicit
 
Private Sub Workbook_Open()
Dim oRng As Range
Dim oStr As String
Dim i As Integer
Dim oWksh As Worksheet
 
oStr = ""
For Each oWksh In Worksheets
    With oWksh
        Set oRng = .Range("B1")
        For i = 1 To .Cells(Rows.Count, 2).End(xlUp).Row - 1
            If oRng.Offset(i, 0) < 0 Then
                oStr = oStr & "M. " & oRng.Offset(i, -1) & " , Secteur " & oRng.Offset(i, 1) & " dans " & oWksh.Name & vbCrLf
            End If
        Next i
    End With
Next oWksh
 
MsgBox oStr
 
End Sub

Cordialement,
Kimy