Numéroter colone K fichier excel
avyrex1926
Messages postés
360
Date d'inscription
dimanche 3 décembre 2006
Statut
Membre
Dernière intervention
3 janvier 2012
-
15 mai 2007 à 20:28
avyrex1926 Messages postés 360 Date d'inscription dimanche 3 décembre 2006 Statut Membre Dernière intervention 3 janvier 2012 - 15 mai 2007 à 22:08
avyrex1926 Messages postés 360 Date d'inscription dimanche 3 décembre 2006 Statut Membre Dernière intervention 3 janvier 2012 - 15 mai 2007 à 22:08
A voir également:
- Numéroter colone K fichier excel
- Fichier json - Conseils pratiques -Javascript
- Arctan excel - Forum VBA Office (Excel, Word ...)
- Extraire des données d'un fichier excel avec python ✓ - Forum Python
- Les fonctions " racines niemmes " et " arctan "et "arccos " et "arcsin" - Forum Visual Basic
- Tangente et arctangente ✓ - Forum C++ & C++ .NET
1 réponse
avyrex1926
Messages postés
360
Date d'inscription
dimanche 3 décembre 2006
Statut
Membre
Dernière intervention
3 janvier 2012
3
15 mai 2007 à 22:08
15 mai 2007 à 22:08
J'y est été surement de la façon la plus longue mais bon, pour l'instant, ça fonctionne:
Private Sub Form_Load()
Dim WorkB As New Excel.Workbook
Dim WorkS As Excel.Worksheet
Dim i As Long, PLV As Long
On Error Resume Next
Set obExcelApp = GetObject(, "Excel.Application")
Sheets("Feuil1").Select
Text1 = Range("A1") + 1
commande.Show
Range("A1") = Text1
ActiveWorkbook.Save
Timer1.Interval = 100
Label1.Caption = ""
Application.ScreenUpdating = False
'Assigner les lignes au PO
'Set obExcelApp = GetObject.Sheets("Feuil1")
PLV = obExcelApp.Range("B65536").End(xlUp).Row + 1
For i = PLV To PLV + 19
obExcelApp.Cells(i, 1).Value = "PB"
obExcelApp.Cells(i, 2).Value = "'" & Format(Range("A1").Value, "00000")
'obExcelApp.Cells(i, 9).Value = "1 to 20"
Next i
ActiveWorkbook.Save
Application.ScreenUpdating = True
Dim lIGNE As Long
lIGNE = (Range("J1").End(xlDown).Row + 1)
Application.ScreenUpdating = False
'ENTRER DES DONNÉES
Range("J" & lIGNE) = Text2
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text8
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text14
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text20
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text26
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text32
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text38
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text44
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text50
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text56
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text62
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text68
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text74
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text80
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text86
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text92
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text98
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text104
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text110
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text116
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text122
End Sub
Private Sub Form_Load()
Dim WorkB As New Excel.Workbook
Dim WorkS As Excel.Worksheet
Dim i As Long, PLV As Long
On Error Resume Next
Set obExcelApp = GetObject(, "Excel.Application")
Sheets("Feuil1").Select
Text1 = Range("A1") + 1
commande.Show
Range("A1") = Text1
ActiveWorkbook.Save
Timer1.Interval = 100
Label1.Caption = ""
Application.ScreenUpdating = False
'Assigner les lignes au PO
'Set obExcelApp = GetObject.Sheets("Feuil1")
PLV = obExcelApp.Range("B65536").End(xlUp).Row + 1
For i = PLV To PLV + 19
obExcelApp.Cells(i, 1).Value = "PB"
obExcelApp.Cells(i, 2).Value = "'" & Format(Range("A1").Value, "00000")
'obExcelApp.Cells(i, 9).Value = "1 to 20"
Next i
ActiveWorkbook.Save
Application.ScreenUpdating = True
Dim lIGNE As Long
lIGNE = (Range("J1").End(xlDown).Row + 1)
Application.ScreenUpdating = False
'ENTRER DES DONNÉES
Range("J" & lIGNE) = Text2
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text8
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text14
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text20
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text26
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text32
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text38
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text44
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text50
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text56
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text62
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text68
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text74
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text80
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text86
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text92
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text98
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text104
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text110
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text116
lIGNE = (Range("J1").End(xlDown).Row + 1)
Range("J" & lIGNE) = Text122
End Sub
