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
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