Private Sub CommandButton1_Click()
VAR_NBR_AUTOMATE = Range("B65536").End(xlUp).Row
ActiveSheet.Hyperlinks.Delete
ActiveSheet.Pictures.Delete
Cells.Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection
.HorizontalAlignment = xlGeneral
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
'//*******************************************************************************************
For i1 = 1 To 280
For i2 = 1 To 195
If Cells(i1, i2).Value = "num_gab" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
Selection.NumberFormat = "00000000"
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 195
If Cells(i1, i2).Value = "type_action_explt" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
Selection.NumberFormat = "00"
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 195
If Cells(i1, i2).Value = "CODE REPONSE" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
Selection.NumberFormat = "000"
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 195
If Cells(i1, i2).Value = "etat_ressource_actuel" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
Selection.NumberFormat = "000000000000000000000000000000"
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 195
If Cells(i1, i2).Value = "etat_ressource_prec" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
Selection.NumberFormat = "000000000000000000000000000000"
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "IDENTIFIANT DU TERMINAL" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
Selection.NumberFormat = "00000000"
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "num_carte" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
Selection.NumberFormat = "0000000000000000"
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "NUMERO CARTE" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
Selection.NumberFormat = "0000000000000000"
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "identifiant_accepteur" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
Selection.NumberFormat = "0000000000000000"
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "IDENTIFIANT ACCEPTEUR" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
Selection.NumberFormat = "0000000000000"
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "IDENT UNIQUE TRANSACTION" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
Selection.NumberFormat = "00000000000000000"
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "valeur_coupure" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = ActiveCell.Value / 100
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "EMV AMOUNT ARQC" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = ActiveCell.Value / 100
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "MONTANT LOCALE" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = ActiveCell.Value / 100
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "enc_global" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = ActiveCell.Value / 100
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "encaisse_ap_forcage" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = ActiveCell.Value / 100
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "encaisse_av_forcage" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = ActiveCell.Value / 100
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "encaisse" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = ActiveCell.Value / 100
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "encaisse_dispo" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = ActiveCell.Value / 100
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "encaisse_theo" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = ActiveCell.Value / 100
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "montant" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = ActiveCell.Value / 100
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "montant_dispo_k7" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = ActiveCell.Value / 100
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "montant_dist" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = ActiveCell.Value / 100
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "montant_auto" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = ActiveCell.Value / 100
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "date_ope" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
VAR_TRAITEMENT = ActiveCell.Value
ActiveCell.Value = Right(VAR_TRAITEMENT, 2) & "/" & Mid(VAR_TRAITEMENT, 3, 2) & "/" & Left(VAR_TRAITEMENT, 2)
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "date_gmt_transac" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
VAR_TRAITEMENT = ActiveCell.Value
ActiveCell.Value = Right(VAR_TRAITEMENT, 2) & "/" & Mid(VAR_TRAITEMENT, 3, 2) & "/" & Left(VAR_TRAITEMENT, 2)
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "date_transac" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
VAR_TRAITEMENT = ActiveCell.Value
ActiveCell.Value = Right(VAR_TRAITEMENT, 2) & "/" & Mid(VAR_TRAITEMENT, 3, 2) & "/" & Left(VAR_TRAITEMENT, 2)
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "date_transac" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
VAR_TRAITEMENT = ActiveCell.Value
ActiveCell.Value = Right(VAR_TRAITEMENT, 2) & "/" & Mid(VAR_TRAITEMENT, 3, 2) & "/" & Left(VAR_TRAITEMENT, 2)
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "heure_ope" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
VAR_TRAITEMENT = ActiveCell.Value
ActiveCell.Value = Left(VAR_TRAITEMENT, 2) & " : " & Mid(VAR_TRAITEMENT, 3, 2) & " : " & Right(VAR_TRAITEMENT, 2)
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "heure_gmt_transac" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
VAR_TRAITEMENT = ActiveCell.Value
ActiveCell.Value = Left(VAR_TRAITEMENT, 2) & " : " & Mid(VAR_TRAITEMENT, 3, 2) & " : " & Right(VAR_TRAITEMENT, 2)
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "heure_trt_demande" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
VAR_TRAITEMENT = ActiveCell.Value
ActiveCell.Value = Left(VAR_TRAITEMENT, 2) & " : " & Mid(VAR_TRAITEMENT, 3, 2) & " : " & Right(VAR_TRAITEMENT, 2)
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "date_trt_demande" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
VAR_TRAITEMENT = ActiveCell.Value
ActiveCell.Value = Right(VAR_TRAITEMENT, 2) & " / " & Mid(VAR_TRAITEMENT, 5, 2) & " / " & Left(VAR_TRAITEMENT, 4)
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "heure_transac" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
VAR_TRAITEMENT = ActiveCell.Value
ActiveCell.Value = Left(VAR_TRAITEMENT, 2) & " : " & Mid(VAR_TRAITEMENT, 3, 2) & " : " & Right(VAR_TRAITEMENT, 2)
End If
Next i2
Next i1
For i1 = 1 To 280
For i2 = 1 To 255
If Cells(i1, i2).Value = "date_heure_serv" Then
Cells(i1, i2).Select
VAR_ADRESS = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
VAR_TRAITEMENT = ActiveCell.Value
ActiveCell.Value = Mid(VAR_TRAITEMENT, 7, 2) & " / " & Mid(VAR_TRAITEMENT, 5, 2) & " / " & Left(VAR_TRAITEMENT, 2) & " " & Mid(VAR_TRAITEMENT, 9, 2) & " : " & Mid(VAR_TRAITEMENT, 11, 2) & " : " & Right(VAR_TRAITEMENT, 2)
End If
Next i2
Next i1
End Sub
Private Sub CommandButton2_Click()
VAR_NBR_AUTOMATE = Range("B65536").End(xlUp).Row
For i = VAR_NBR_AUTOMATE To 1 Step -1
If Cells(i, 3).Value = "0" Then
Cells(i, 1).Value = "Entête de fichier"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "1" Then
Cells(i, 1).Value = "Retrait"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:="Opération : " & Cells(i, 1).Value & Chr(10) & Chr(10) & "Date / Heure : " & Cells(i, 2).Value & Chr(10) & Chr(10) & "Numéro de carte : " & Cells(i, 8).Value & Chr(10) & Chr(10) & "Code service : " & Cells(i, 9).Value & Chr(10) & Chr(10) & "Numéro d'enregistrement : " & Cells(i, 16).Value & Chr(10) & Chr(10) & "Statut GAB : " & Cells(i, 17).Value & Chr(10) & Chr(10) & "Retour Logigab : " & Cells(i, 21).Value & Chr(10) & Chr(10) & "Code Réponse : " & Cells(i, 23).Value & Chr(10) & Chr(10) & "Montant autoristation : " & Cells(i, 25).Value & Chr(10) & Chr(10) & "Dénomination : " & Cells(i, 53).Value & " Nombre : " & Cells(i, 54).Value & Chr(10) & Chr(10) & "Dénomination : " & Cells(i, 55).Value & " Nombre : " & Cells(i, 56).Value & Chr(10) & Chr(10) & "Dénomination : " & Cells(i, 57).Value & " Nombre : " & Cells(i, 58).Value & Chr(10) & Chr(10) & "Dénomination : " & Cells(i, 59).Value & " Nombre : " & Cells(i, 60).Value & Chr(10) & Chr(10) _
& "Encaisse théorique : " & Cells(i, 61).Value & Chr(10) & Chr(10) & "Encaisse disponible : " & Cells(i, 62).Value & Chr(10) & Chr(10)
Selection.Comment.Shape.ScaleWidth 1.87, msoFalse, msoScaleFromTopLeft
Selection.Comment.Shape.ScaleHeight 1.59, msoFalse, msoScaleFromTopLeft
End If
If Cells(i, 3).Value = "2" Then
Cells(i, 1).Value = "Consultation de solde"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "3" Then
Cells(i, 1).Value = "Virement"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "4" Then
Cells(i, 1).Value = "Dépôt de chèques"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "5" Then
Cells(i, 1).Value = "Dépôt d 'espèces"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "6" Then
Cells(i, 1).Value = "Dépôt mixte"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "7" Then
Cells(i, 1).Value = "Historique de compte"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "8" Then
Cells(i, 1).Value = "Commande de chéquier"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "9" Then
Cells(i, 1).Value = "Demande de rdv"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "10" Then
Cells(i, 1).Value = "Extrait de compte"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "11" Then
Cells(i, 1).Value = "Demande de rib"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "12" Then
Cells(i, 1).Value = "Fin de transaction"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "13" Then
Cells(i, 1).Value = "Débit Différé"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "16" Then
Cells(i, 1).Value = "Unitaire"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "18" Then
Cells(i, 1).Value = "Fin de consultation"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "19" Then
Cells(i, 1).Value = "Carte temporisée"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "20" Then
Cells(i, 1).Value = "Evénement/action Gab"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "21" Then
Cells(i, 1).Value = "Interrogation des Eléments de Décision"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "22" Then
Cells(i, 1).Value = "Demande de carte de dépannage"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "23" Then
Cells(i, 1).Value = "Activation carte"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "25" Then
Cells(i, 1).Value = "Capture de carte"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "26" Then
Cells(i, 1).Value = "Demande d 'autorisation"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "27" Then
Cells(i, 1).Value = "Gestion des filtres de fraude paramétrables"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "29" Then
Cells(i, 1).Value = "Message d 'Etat"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "30" Then
Cells(i, 1).Value = "CR émis par le serveur monétique"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "31" Then
Cells(i, 1).Value = "Connexion RHM"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "32" Then
Cells(i, 1).Value = "Déconnexion RHM"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "40" Then
Cells(i, 1).Value = "Arrêt comptable GAB"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "41" Then
Cells(i, 1).Value = "Arrêt comptable du serveur monétique"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "42" Then
Cells(i, 1).Value = "Arrêté de dépôt d'argent ou arrêté de coffre"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "50" Then
Cells(i, 1).Value = "Incident GAB"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "60" Then
Cells(i, 1).Value = "Autorisation de retrait"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "61" Then
Cells(i, 1).Value = "Autorisation de virement"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "62" Then
Cells(i, 1).Value = "Autorisation de dépôt"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "63" Then
Cells(i, 1).Value = "Autorisation de paiement"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "64" Then
Cells(i, 1).Value = "Avis de capture"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "65" Then
Cells(i, 1).Value = "Autorisation de paiement sur GAB"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "67" Then
Cells(i, 1).Value = "Autorisation de paiement CVD"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "70" Then
Cells(i, 1).Value = "Redressement retrait"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "71" Then
Cells(i, 1).Value = "Redressement Paiement"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "73" Then
Cells(i, 1).Value = "Redressement Paiement CVD"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "75" Then
Cells(i, 1).Value = "Redressement de Paiement sur GAB"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "81" Then
Cells(i, 1).Value = "Forcage d 'encaisse"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "82" Then
Cells(i, 1).Value = "Ajout exploitant"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "83" Then
Cells(i, 1).Value = "Retrait exploitant"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "84" Then
Cells(i, 1).Value = "Contrôle de solde"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "85" Then
Cells(i, 1).Value = "Chargement de caisse"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "86" Then
Cells(i, 1).Value = "Dechargement de caisse"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "88" Then
Cells(i, 1).Value = "Exception porteur"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "89" Then
Cells(i, 1).Value = "Plafond exceptionnel"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "90" Then
Cells(i, 1).Value = "Mise/Levée opposition"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "93" Then
Cells(i, 1).Value = "Mise/Levée surveillance"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "95" Then
Cells(i, 1).Value = "Paiement"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "96" Then
Cells(i, 1).Value = "Fin de remise"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "98" Then
Cells(i, 1).Value = "Transaction en timeout"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "99" Then
Cells(i, 1).Value = "Fin de fichier"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "1A" Then
Cells(i, 1).Value = "Exploitation et incident saisi par l'exploitant"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:="SAB :" & Chr(10) & Cells(i, 1).Value & Chr(10) & Chr(10) & Cells(i, 2).Value & Chr(10) & Chr(10) & Cells(i, 4).Value
Selection.Comment.Shape.ScaleWidth 1.87, msoFalse, msoScaleFromTopLeft
Selection.Comment.Shape.ScaleHeight 1.59, msoFalse, msoScaleFromTopLeft
End If
If Cells(i, 3).Value = "1B" Then
Cells(i, 1).Value = "Exploitation Télécommandée"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "1C" Then
Cells(i, 1).Value = "Message U"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
If Cells(i, 3).Value = "3A" Then
Cells(i, 1).Value = "Changement de statut d'un GAB"
Cells(i, 1).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 2
Cells(i, 3).Select
Selection.Interior.ColorIndex = 2
End If
Next i
End Sub