Probleme date
S_D
Messages postés
24
Statut
Membre
-
bouket Messages postés 147 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
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