Probleme date

S_D Messages postés 24 Statut Membre -  
bouket Messages postés 147 Statut Membre -
Bonjour,

Je travaille actuellement sur un petit programme qui quand on lui donne un nom de piece, renvoie les sous ensembles necessaires a sa fabrication. Il s'agit simplement de lire un enorme tableau excel et de renvoyer certains nombre nons nuls dedans.
Le programme marche , mais certains des noms de sous ensembles
ressemblent a des dates ..... et sont convertis en tant que tels

Par exemple

X-X
va devenir Mois/Annee

je voudrais empecher ce genre de chose. merci de Votre aide
'Length
Dim L As Integer
L = 256
'ColNum
Dim X As Integer
'Num de BM
Dim Bom As String
'Indice feuille resultat
Dim j As Integer
j = 1

'Look-recherche

If Not Sheets("Table BM-FG_1").Range("a1:IV1").Find(What:=numpart, lookat:=xlWhole) Is Nothing Then

ct = 1
X = Sheets("Table BM-FG_1").Range("A1:IV1").Find(What:=numpart, lookat:=xlWhole).Column
MsgBox ("Found column mumber " & X)
'Sortir du programme si la feuille existe deja
On Error GoTo Out
Worksheets.Add
ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = numpart

End If

'si on trouve pas

If ct = 0 Then
MsgBox ("Pas Trouve")

End If

'une fois qu'on a la colonne on cherche les Bm

If ct = 1 Then

For i = 2 To 5501

If Sheets("Table BM-FG_1").Cells(i, X).Value > 0 Then
Bom = Sheets("Table BM-FG_1").Cells(i, 1).Text
Sheets(numpart).Cells(j, 2).Value = Sheets("Table BM-FG_1").Cells(i, X).Value
Sheets(numpart).Cells(j, 1).Value = Sheets("Table BM-FG_1").Cells(i, 1).Value
j = j + 1
End If

Next i

End If

Exit Sub

Out:
MsgBox ("Deja Fait")

'pour enlever la msgbox
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True

End Sub

Autre chose , g essaye de remplacer "Sheets(numpart).Cells(j, 1).Value = Sheets("Table BM-FG_1").Cells(i, 1).Value" par Sheets(numpart).Cells(j, 1).text = Sheets("Table BM-FG_1").Cells(i, 1).text

et la plus rien ne marche .

Merci a tous

1 réponse

bouket Messages postés 147 Statut Membre 22
 
Pourquoi ne pas ajouter un bout de code pour mettre au format texte avant de mettre la valeur dans la cellule, je pense que cela marche... en tout cas il faut traficoter au niveau du format ;)

0