Le FYI le projet était verrouillé et ne reconnaîtra pas même entourent ou composent avec une erreur de bibliothèque.
Quoi qu'il en soit, essayer ces changements.
Pour la fonction SendMsg dans Module1
Fonction SendMsg (strSubject comme corde, _
strBody comme corde, _
strTO comme corde, _
strDoc facultatif comme corde, _
strCC facultatif comme corde, _
strBCC facultatif comme corde)
Faible oLapp
Faible oItem
Faibles myattachments
Placer l'oLapp = le CreateObject (« Outlook.Application
»)
Placer l'oItem = l'oLapp.CreateItem (l'olMailItem
)
oItem.Subject = strSubject
oItem.To = strTO
oItem.CC = strCC
Si feuilles (« force ») .CheckBoxes (
« boîte de contrôle 1 ») = 1 puis oItem.CC = «
[email protected] »
oItem.BCC = strBCC
oItem.BodyFormat = olFormatHTML
oItem.HTMLBody = strBody
oItem.Importance = olImportanceHigh
oItem.Display
Placer l'oLapp = rien
Placer l'oItem = rien
Finir la fonction
dans userform1 :
Sous-marin privé CommandButton1_Click ()
Faible ws1 comme feuille de travail
Faible ws2 comme feuille de travail
Faible rng comme gamme
Faible celle comme gamme
Obscurcir I en tant que longtemps
Obscurcir n en tant que longtemps
Obscurcir r en tant que longtemps
Placer ws1 = feuilles (la « force »)
Placer ws2 = feuilles (le « rapport »)
Avec ws1
Placer le rng =. Gamme (. Cellules (2, « A »). Cellules (. Rows.Count, « A »). Extrémité (xlUp))
Extrémité avec
Pour I = 0 à Me.ListBox1.ListCount - 1
Si Me.ListBox1.Selected (i) = rectifier alors
Pour n = 0 à Me.ListBox2.ListCount - 1
Si Me.ListBox2.Selected (n) = rectifier alors
Pour chaque celle dans le rng
Si celle = Me.ListBox1.List (i) et CStr (celle. Excentrage (0, 8)) = CStr (Me.ListBox2.List (n)) puis
ws1.Range (ws1.Cells (celle.
Rangée, « A »), ws1.Cells (celle. Rangée, « E »)). Copier le _
ws2.Cells (ws2.Rows.Count, « A »). Extrémité (xlUp). Excentrage (1, 0)
Finir si
Prochain celle
Finir si
Prochain n
Finir si
Après i
Avec ws2
r =. Gamme (« A » et Rows.Count). Extrémité (xlUp). Rangée
. Cellules (r+ 1, « E ») = « total général »
. Cellules (r+ 2, « E ») = WorksheetFunction.Sum (. Gamme
(« E2 : E » et r))
. Cellules (r+ 2, « E ») .NumberFormat = » [h] : millimètre "
. Cellules (r+ 2, « E »). Font.ColorIndex = 30
. Cellules (r+ 1, « E »). Font.ColorIndex = 30
. Cellules (r+ 2, « E »). Font.Bold = rectifient
. Cellules (r+ 1, « E »). Font.Bold = rectifient
Avec. Gamme (« A2 : E » et r)
.FormatConditions.Delete
type de .FormatConditions.Add : =xlExpression, Formula1 : = " =MOD (RANGÉE (), 2)=0
"
.FormatConditions (1).Interior.ColorIndex
= 20
Extrémité avec
Avec. Gamme (« A » et r+ 1 et » : E " et r+ 2)
. Encadre (xlDiagonalDown) .LineStyle
= xlNone
. Encadre (xlDiagonalUp) .LineStyle
= xlNone
. Encadre (xlEdgeLeft) .LineStyle
= xlNone
. Encadre (xlEdgeRight) .LineStyle
= xlNone
. Encadre .LineStyle = xlNone
(
xlInsideVertical)
. Encadre .LineStyle =
xlNone (
xlInsideHorizontal)
Avec. Frontières (xlEdgeTop)
.LineStyle = xlDouble
.ColorIndex = xlAutomatic
. Poids = xlThick
Extrémité avec
Avec. Frontières (xlEdgeBottom)
.LineStyle = xlDouble
.ColorIndex = xlAutomatic
. Poids = xlThick
Extrémité avec
Extrémité avec
Extrémité avec
Appel Module1.checker
Sous-marin d'extrémité
--- dans le module 4, clearrows
ClearRows secondaire ()
Gamme (« A2 : E1000 »). Choisi
Avec Selection.Interior
. Modèle = xlNone
Extrémité avec
Décalage de Selection.Delete : =xlUp
Gamme (« A2 »). Choisi
Sous-marin d'extrémité
