1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| ' Pour supprimer les lignes vides
'On Error Resume Next 'quand vraiment sur que cela fonctionne (donc ne pas le faire au début)
'[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
'Dim DerLigne As Long, valCellule As String, valConvertit As Double
'dim annee As Long
'DerLigne = Range("A1").End(xlDown).Row
'annee= Range(E2:E)
' mesagebox pour afficher la valeur de der ligne
'Pour enlever les espaces et les points et convertir en nombre :
'For i = 2 To DerLigne
'valCellule = Cells(i, 1).Value
' mettre un msgbox
'valCellule = Replace(valCellule, " ", "") 'enlève espaces
'valCellule = Replace(valCellule, ".", "") 'enlève point
' mettre un msgbox pour tester boucle
'valConvertit = CDbl(valCellule) ' pasage format numérique
'annee.value = textbox1
'Next i |
Partager