XL 2010 Macro affichage -onglet excel

djam28

XLDnaute Occasionnel
Bonjour à tous,
J'ai une macro qui me permet de faire une extraction selon plusieurs critères et de m'afficher le résultat dans un userform (Alertes) . Je voudrais afficher le contenu de l'userform dans un onglet ("data", Feuil2) du fichier , à partir d'une commande (fichir en PJ)
Voici la macro:
Sub Alertes_()
Dim DerLig As Integer, DerCol As Integer, L As Integer, C As Integer
Chaine = ""
DerLig = Sheets("Feuil1").Range("A65500").End(xlUp).Row ' Recherche dernière ligne
DerCol = 1 + Application.CountIf(Sheets("Feuil1").Range("22:22"), "*") ' Recherche dernière colonne
For L = 1 To DerLig ' Pour toutes les lignes
If Sheets("Feuil1").Cells(L, 1) = "Consentements" Then ' Si Consentements en colonne A
For C = 1 To DerCol ' Pour toutes les colonnes
If Sheets("Feuil1").Cells(L, C) = "Entrée au flux" And _
Sheets("Feuil1").Cells(L - 3, C) <= Int(Now) + 4 And _
Sheets("Feuil1").Cells(L - 3, C) >= Int(Now) Then ' Si Entrée au flux dans moins de 4 jours
' On ajoute nom prénom date dans la chaine
Chaine = Chaine & Sheets("Feuil1").Cells(L, 2) & vbTab & "Entrée de flux :" & vbTab & Sheets("Feuil1").Cells(L - 3, C) & vbCrLf
End If
Next C
End If
Next L
If Chaine = "" Then
MsgBox "Pas d'entrée prévue.", , "Entrée au flux dans moins de 4 jours" ' On affiche le message Rien de prévu
End If
End Sub
Sub AfficheAlertes()
Alertes_
AffAlertes.TextBox1 = Chaine
AffAlertes.Show
End Sub
Je tiens à vous remercier par avance de ce que vous proposerez
DE
 

Pièces jointes

  • COORDINATION TEST.xlsm
    157.7 KB · Affichages: 18

Discussions similaires

Réponses
7
Affichages
292
Réponses
28
Affichages
921

Statistiques des forums

Discussions
311 720
Messages
2 081 907
Membres
101 836
dernier inscrit
karmon