Macro
Résolu/Fermé
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
-
19 janv. 2010 à 09:26
Farfadet88 Messages postés 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 - 21 janv. 2010 à 11:55
Farfadet88 Messages postés 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 - 21 janv. 2010 à 11:55
A voir également:
- Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Macro recorder - Télécharger - Confidentialité
- Telecharger macro nblettre.xla - Forum Bureautique
13 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
19 janv. 2010 à 09:37
19 janv. 2010 à 09:37
bonjour
range("A" & o & ":D" & o).select
ou range(cells(o,1),cells(o,4)).select
range("A" & o & ":D" & o).select
ou range(cells(o,1),cells(o,4)).select
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 369
19 janv. 2010 à 10:08
19 janv. 2010 à 10:08
Ok, ce problème est règlé.
Autre souci de macro maintenant; On m'a aidé à créer la macro suivante qui marche pour faire la mise en forme de certaines cellules (grâce en partie à l'enregistreur de macros):
Function Mise_en_forme()
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
End Function
Function Colour()
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="1"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With
Selection.Font.ColorIndex = 3
Selection.FormatConditions(1).Interior.ColorIndex = 3
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="2"
With Selection.FormatConditions(2).Font
.Bold = True
.Italic = False
End With
Selection.Font.ColorIndex = 44
Selection.FormatConditions(2).Interior.ColorIndex = 44
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="3"
With Selection.FormatConditions(3).Font
.Bold = True
.Italic = False
End With
Selection.Font.ColorIndex = 4
Selection.FormatConditions(3).Interior.ColorIndex = 4
End Function
If Sheets("données").Range("n1") = "Tous les bâtiments administratifs" Then
Dim nuli As Integer
nuli = Sheets("administratif").Cells.Find(What:="Tous les bâtiments administratifs", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("administratif").Range("A" & nuli).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("administratif").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli).Offset(1, 0)
Range(Cells(nuli + 1, 1), Cells(nuli + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli + 1).Select
Call Colour
End If
J'ai essayé de l'adapter pour faire la mise en forme de ma ligne mais ça ne marche point:
Sheets("suivi").Select
Dim o As Integer
o = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("A" & o) = Sheets("données").Range("n1")
Range("B" & o) = Sheets("données").Range("o1")
Range("C" & o) = Sheets("données").Range("x1")
Range("D" & o) = Sheets("données").Range("u1")
Range("A" & o & ":D" & o).Select
Call Mise_en_forme
Range("C" & o).Select
Call Colour
Autre souci de macro maintenant; On m'a aidé à créer la macro suivante qui marche pour faire la mise en forme de certaines cellules (grâce en partie à l'enregistreur de macros):
Function Mise_en_forme()
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
End Function
Function Colour()
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="1"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With
Selection.Font.ColorIndex = 3
Selection.FormatConditions(1).Interior.ColorIndex = 3
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="2"
With Selection.FormatConditions(2).Font
.Bold = True
.Italic = False
End With
Selection.Font.ColorIndex = 44
Selection.FormatConditions(2).Interior.ColorIndex = 44
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="3"
With Selection.FormatConditions(3).Font
.Bold = True
.Italic = False
End With
Selection.Font.ColorIndex = 4
Selection.FormatConditions(3).Interior.ColorIndex = 4
End Function
If Sheets("données").Range("n1") = "Tous les bâtiments administratifs" Then
Dim nuli As Integer
nuli = Sheets("administratif").Cells.Find(What:="Tous les bâtiments administratifs", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("administratif").Range("A" & nuli).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("administratif").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli).Offset(1, 0)
Range(Cells(nuli + 1, 1), Cells(nuli + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli + 1).Select
Call Colour
End If
J'ai essayé de l'adapter pour faire la mise en forme de ma ligne mais ça ne marche point:
Sheets("suivi").Select
Dim o As Integer
o = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("A" & o) = Sheets("données").Range("n1")
Range("B" & o) = Sheets("données").Range("o1")
Range("C" & o) = Sheets("données").Range("x1")
Range("D" & o) = Sheets("données").Range("u1")
Range("A" & o & ":D" & o).Select
Call Mise_en_forme
Range("C" & o).Select
Call Colour
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
19 janv. 2010 à 10:59
19 janv. 2010 à 10:59
Re,
La fonction "miseenforme est inutile dans ce cas:
Range(Cells(o, 1), Cells(o, 4)).Borders.Weight = xlThin
le select est inutile comme presque toujours
remarque (facultatif): évite range("A" &.....) qui montre le débutant (question appréciation de tes compétences au boulot)
les variables à 1 lettre sont à proscrire, question maintenance ; il aurait été + lisible pour la maintenance de lire "ligne" ou "lig" plutôt que "o"; d'autre part si on change le nom de la variable, on est obligé de le faire 1 par 1 au lieu de "remplacer tout". on tolère toutefois i, j, k dans des boucles bien définies.
La maintenance et évolution représente 80% de la vie de l'application...
je regarde pour la mise en conditionnelle, bien que toujours dans la colonne C,mais il serait peut-être préférable de gérer la MFC par XL que VBA pour toute la colonne ou le + grand nombre de ligne prévu + 20%
La fonction "miseenforme est inutile dans ce cas:
Range(Cells(o, 1), Cells(o, 4)).Borders.Weight = xlThin
le select est inutile comme presque toujours
remarque (facultatif): évite range("A" &.....) qui montre le débutant (question appréciation de tes compétences au boulot)
les variables à 1 lettre sont à proscrire, question maintenance ; il aurait été + lisible pour la maintenance de lire "ligne" ou "lig" plutôt que "o"; d'autre part si on change le nom de la variable, on est obligé de le faire 1 par 1 au lieu de "remplacer tout". on tolère toutefois i, j, k dans des boucles bien définies.
La maintenance et évolution représente 80% de la vie de l'application...
je regarde pour la mise en conditionnelle, bien que toujours dans la colonne C,mais il serait peut-être préférable de gérer la MFC par XL que VBA pour toute la colonne ou le + grand nombre de ligne prévu + 20%
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 369
19 janv. 2010 à 11:29
19 janv. 2010 à 11:29
Alors j'ai essayé de remplacer
Range("A" & o & ":D" & o).Select
Call Mise_en_forme
par
Range(Cells(o, 1), Cells(o, 4)).Borders.Weight = xlThin
et ça ne marche pas (cases sans bordure)
Et sinon pour le côté débutant cela ne pose pas de problème puisque j'utilise les macros d'Excel uniquement pour rendre mes outils plus pratiques et mes compétences informatiques sont fort peu importantes :D
Mais concernant les variables (ici "o") je pensait que choisir des lettres était adapté
Et finalement, pour la mise en forme conditionnelle, elle ne marche pas avec seulement excel car elle est appliquée sur une case coupée à partir d'une autre feuille,collée et déplacée. Du coup impossible de la maintenir à chaque fois
Range("A" & o & ":D" & o).Select
Call Mise_en_forme
par
Range(Cells(o, 1), Cells(o, 4)).Borders.Weight = xlThin
et ça ne marche pas (cases sans bordure)
Et sinon pour le côté débutant cela ne pose pas de problème puisque j'utilise les macros d'Excel uniquement pour rendre mes outils plus pratiques et mes compétences informatiques sont fort peu importantes :D
Mais concernant les variables (ici "o") je pensait que choisir des lettres était adapté
Et finalement, pour la mise en forme conditionnelle, elle ne marche pas avec seulement excel car elle est appliquée sur une case coupée à partir d'une autre feuille,collée et déplacée. Du coup impossible de la maintenir à chaque fois
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
19 janv. 2010 à 12:02
19 janv. 2010 à 12:02
Range(Cells(o, 1), Cells(o, 4)).Borders.Weight = xlThin
et ça ne marche pas (cases sans bordure)
Curieux, ca marchait chez moi (XL2003)
pour la mfc je ne suis pas là cet aprèm... mais il y aura bien qqn pour t'aider.
et ça ne marche pas (cases sans bordure)
Curieux, ca marchait chez moi (XL2003)
pour la mfc je ne suis pas là cet aprèm... mais il y aura bien qqn pour t'aider.
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 369
19 janv. 2010 à 12:06
19 janv. 2010 à 12:06
Ok merci quand même
Quelqu'un d'autre? ;)
Quelqu'un d'autre? ;)
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
19 janv. 2010 à 13:27
19 janv. 2010 à 13:27
Avant de partir
petite demo sur le contour qui marche
https://www.cjoint.com/?btnAxx8cel
petite demo sur le contour qui marche
https://www.cjoint.com/?btnAxx8cel
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 369
19 janv. 2010 à 13:31
19 janv. 2010 à 13:31
merci bien, je t'écris ce qui ne marche pas sur le mien et si personne ne réagit j'attendrai ton aide prochaine.Bonne journée
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 369
19 janv. 2010 à 14:33
19 janv. 2010 à 14:33
Ca ne marche toujours pas: une idée?
Function Mise_en_forme()
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
End Function
Function Colour()
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="1"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With
Selection.Font.ColorIndex = 3
Selection.FormatConditions(1).Interior.ColorIndex = 3
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="2"
With Selection.FormatConditions(2).Font
.Bold = True
.Italic = False
End With
Selection.Font.ColorIndex = 44
Selection.FormatConditions(2).Interior.ColorIndex = 44
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="3"
With Selection.FormatConditions(3).Font
.Bold = True
.Italic = False
End With
Selection.Font.ColorIndex = 4
Selection.FormatConditions(3).Interior.ColorIndex = 4
End Function
Private Sub CommandButton1_Click()
Sheets("données").Range("m1") = ComboBox1.Value
Sheets("données").Range("n1") = ComboBox2.Value
Sheets("données").Range("o1") = TextBox1.Value
Sheets("données").Range("p1") = ComboBox4.Value
Sheets("données").Range("q2") = ComboBox5.Value
Sheets("données").Range("r2") = ComboBox6.Value
Sheets("données").Range("s1") = TextBox2.Value
Sheets("données").Range("t2") = ComboBox7.Value
Sheets("données").Range("u1") = TextBox3.Value
If Sheets("données").Range("m1") = "Administratif" Then
Sheets("Administratif").Select
Dim a As Integer
a = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("a" & a) = Sheets("données").Range("o1")
Sheets("données").Range("l1").Copy
Range("b" & a).Select
ActiveCell.PasteSpecial
If ActiveCell.Value = "Photo" Then ActiveCell.Comment.Visible = False
Range("c" & a) = Sheets("données").Range("p1").Value
Range("d" & a) = Sheets("données").Range("q1").Value
Range("e" & a) = Sheets("données").Range("r1").Value
Range("f" & a) = Sheets("données").Range("w1").Value
Range("h" & a) = Sheets("données").Range("t1").Value
Range("i" & a) = Sheets("données").Range("w1").Value
Range("l" & a) = Sheets("données").Range("u1").Value
Range("g" & a) = Sheets("données").Range("s1").Value
Range("j" & a) = Sheets("données").Range("x1").Value
Range("k" & a) = Sheets("données").Range("y1").Value
If Sheets("données").Range("n1") = "Tous les bâtiments administratifs" Then
Dim nuli As Integer
nuli = Sheets("administratif").Cells.Find(What:="Tous les bâtiments administratifs", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("administratif").Range("A" & nuli).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("administratif").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli).Offset(1, 0)
Range(Cells(nuli + 1, 1), Cells(nuli + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Poste de travail informatique" Then
Dim nuli1 As Integer
nuli1 = Sheets("administratif").Cells.Find(What:="Poste de travail informatique", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("administratif").Range("A" & nuli1).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("administratif").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli1).Offset(1, 0)
Range(Cells(nuli1 + 1, 1), Cells(nuli1 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli1 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Salle de repas" Then
Dim nuli2 As Integer
nuli2 = Sheets("administratif").Cells.Find(What:="Salle de repas", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("administratif").Range("A" & nuli2).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("administratif").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli2).Offset(1, 0)
Range(Cells(nuli2 + 1, 1), Cells(nuli2 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli2 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Vestiaires" Then
Dim nuli3 As Integer
nuli3 = Sheets("administratif").Cells.Find(What:="Vestiaires", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("administratif").Range("A" & nuli3).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("administratif").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli3).Offset(1, 0)
Range(Cells(nuli2 + 1, 1), Cells(nuli2 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli2 + 1).Select
Call Colour
End If
Sheets("suivi").Select
Dim i As Integer
i = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("A" & i) = Sheets("données").Range("n1")
Range("B" & i) = Sheets("données").Range("o1")
Range("C" & i) = Sheets("données").Range("x1")
Range("D" & i) = Sheets("données").Range("u1")
Dim numlig As Integer
numlig = Sheets("suivi").Cells.Find(What:="administratif", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("suivi").Range("A" & numlig).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("suivi").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & numlig).Offset(1, 0)
End If
If Sheets("données").Range("m1") = "Extérieur" Then
Sheets("Extérieur").Select
Dim z As Integer
z = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("a" & z) = Sheets("données").Range("o1")
Sheets("données").Range("l1").Copy
Range("b" & z).Select
ActiveCell.PasteSpecial
If ActiveCell.Value = "Photo" Then ActiveCell.Comment.Visible = False
Range("c" & z) = Sheets("données").Range("p1").Value
Range("d" & z) = Sheets("données").Range("q1").Value
Range("e" & z) = Sheets("données").Range("r1").Value
Range("f" & z) = Sheets("données").Range("w1").Value
Range("h" & z) = Sheets("données").Range("t1").Value
Range("i" & z) = Sheets("données").Range("w1").Value
Range("l" & z) = Sheets("données").Range("u1").Value
Range("g" & z) = Sheets("données").Range("s1").Value
Range("j" & z) = Sheets("données").Range("x1").Value
Range("k" & z) = Sheets("données").Range("y1").Value
If Sheets("données").Range("n1") = "Stockage déchets et bennes" Then
Dim nuli4 As Integer
nuli4 = Sheets("Extérieur").Cells.Find(What:="Stockage déchets et bennes", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Extérieur").Range("A" & nuli4).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Extérieur").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli4).Offset(1, 0)
Range(Cells(nuli4 + 1, 1), Cells(nuli4 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli4 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Stockage des bouteilles de gaz" Then
Dim nuli5 As Integer
nuli5 = Sheets("Extérieur").Cells.Find(What:="Stockage des bouteilles de gaz", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Extérieur").Range("A" & nuli5).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Extérieur").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli5).Offset(1, 0)
Range(Cells(nuli5 + 1, 1), Cells(nuli5 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli5 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Stockage de gaz en citerne aérienne" Then
Dim nuli6 As Integer
nuli6 = Sheets("Extérieur").Cells.Find(What:="Stockage de gaz en citerne aérienne", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Extérieur").Range("A" & nuli6).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Extérieur").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli6).Offset(1, 0)
Range(Cells(nuli6 + 1, 1), Cells(nuli6 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli6 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Stockage de fuel en citerne aérienne" Then
Dim nuli7 As Integer
nuli7 = Sheets("Extérieur").Cells.Find(What:="Stockage de fuel en citerne aérienne", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Extérieur").Range("A" & nuli7).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Extérieur").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli7).Offset(1, 0)
Range(Cells(nuli7 + 1, 1), Cells(nuli7 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli7 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Transformateur électrique" Then
Dim nuli8 As Integer
nuli8 = Sheets("Extérieur").Cells.Find(What:="Transformateur électrique", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Extérieur").Range("A" & nuli8).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Extérieur").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli8).Offset(1, 0)
Range(Cells(nuli8 + 1, 1), Cells(nuli8 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli8 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Voies de circulation véhicules" Then
Dim nuli10 As Integer
nuli10 = Sheets("Extérieur").Cells.Find(What:="Voies de circulation véhicules", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Extérieur").Range("A" & nuli10).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Extérieur").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli10).Offset(1, 0)
Range(Cells(nuli10 + 1, 1), Cells(nuli10 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli10 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Voies de circulation piétons" Then
Dim nuli9 As Integer
nuli9 = Sheets("Extérieur").Cells.Find(What:="Voies de circulation piétons", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Extérieur").Range("A" & nuli9).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Extérieur").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli9).Offset(1, 0)
Range(Cells(nuli9 + 1, 1), Cells(nuli9 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli9 + 1).Select
Call Colour
End If
Sheets("suivi").Select
Dim j As Integer
j = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("A" & j) = Sheets("données").Range("n1")
Range("B" & j) = Sheets("données").Range("o1")
Range("C" & j) = Sheets("données").Range("x1")
Range("D" & j) = Sheets("données").Range("u1")
Dim numlig2 As Integer
numlig2 = Sheets("suivi").Cells.Find(What:="Extérieur", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("suivi").Range("A" & numlig2).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("suivi").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & numlig2).Offset(1, 0)
End If
If Sheets("données").Range("m1") = "Magasin" Then
Sheets("Magasin").Select
Dim e As Integer
e = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("a" & e) = Sheets("données").Range("o1")
Sheets("données").Range("l1").Copy
Range("b" & e).Select
ActiveCell.PasteSpecial
If ActiveCell.Value = "Photo" Then ActiveCell.Comment.Visible = False
Range("c" & e) = Sheets("données").Range("p1").Value
Range("d" & e) = Sheets("données").Range("q1").Value
Range("e" & e) = Sheets("données").Range("r1").Value
Range("f" & e) = Sheets("données").Range("w1").Value
Range("h" & e) = Sheets("données").Range("t1").Value
Range("i" & e) = Sheets("données").Range("w1").Value
Range("l" & e) = Sheets("données").Range("u1").Value
Range("g" & e) = Sheets("données").Range("s1").Value
Range("j" & e) = Sheets("données").Range("x1").Value
Range("k" & e) = Sheets("données").Range("y1").Value
If Sheets("données").Range("n1") = "Tout l'atelier" Then
Dim nuli11 As Integer
nuli11 = Sheets("Magasin").Cells.Find(What:="Tout l'atelier", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Magasin").Range("A" & nuli11).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Magasin").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli11).Offset(1, 0)
Range(Cells(nuli11 + 1, 1), Cells(nuli11 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli11 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Local achats et réception" Then
Dim nuli12 As Integer
nuli12 = Sheets("Magasin").Cells.Find(What:="Local achats et réception", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Magasin").Range("A" & nuli12).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Magasin").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli12).Offset(1, 0)
Range(Cells(nuli12 + 1, 1), Cells(nuli12 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli12 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "SAV contrôle" Then
Dim nuli13 As Integer
nuli13 = Sheets("Magasin").Cells.Find(What:="SAV contrôle", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Magasin").Range("A" & nuli13).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Magasin").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli13).Offset(1, 0)
Range(Cells(nuli13 + 1, 1), Cells(nuli13 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli13 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Zone de préparation/expédition" Then
Dim nuli14 As Integer
nuli14 = Sheets("Magasin").Cells.Find(What:="Zone de préparation/expédition", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Magasin").Range("A" & nuli14).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Magasin").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli14).Offset(1, 0)
Range(Cells(nuli14 + 1, 1), Cells(nuli14 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli14 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Zone de réparation" Then
Dim nuli15 As Integer
nuli15 = Sheets("Magasin").Cells.Find(What:="Zone de réparation", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Magasin").Range("A" & nuli15).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Magasin").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli15).Offset(1, 0)
Range(Cells(nuli15 + 1, 1), Cells(nuli15 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli15 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Zone de stockage au sol" Then
Dim nuli16 As Integer
nuli16 = Sheets("Magasin").Cells.Find(What:="Zone de stockage au sol", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Magasin").Range("A" & nuli16).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Magasin").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli16).Offset(1, 0)
Range(Cells(nuli16 + 1, 1), Cells(nuli16 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli16 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Zone de stockage divers à l'étage" Then
Dim nuli17 As Integer
nuli17 = Sheets("Magasin").Cells.Find(What:="Zone de stockage divers à l'étage", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Magasin").Range("A" & nuli17).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Magasin").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli17).Offset(1, 0)
Range(Cells(nuli17 + 1, 1), Cells(nuli17 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli17 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Zone de stockage sur racks" Then
Dim nuli18 As Integer
nuli18 = Sheets("Magasin").Cells.Find(What:="Zone de stockage sur racks", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Magasin").Range("A" & nuli18).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Magasin").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli18).Offset(1, 0)
Range(Cells(nuli18 + 1, 1), Cells(nuli18 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli18 + 1).Select
Call Colour
End If
Sheets("suivi").Select
Dim k As Integer
k = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("A" & k) = Sheets("données").Range("n1")
Range("B" & k) = Sheets("données").Range("o1")
Range("C" & k) = Sheets("données").Range("x1")
Range("D" & k) = Sheets("données").Range("u1")
Dim numlig3 As Integer
numlig3 = Sheets("suivi").Cells.Find(What:="magasin", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("suivi").Range("A" & numlig3).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("suivi").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & numlig3).Offset(1, 0)
End If
If Sheets("données").Range("m1") = "Montage" Then
Sheets("Montage").Select
Dim r As Integer
r = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("a" & r) = Sheets("données").Range("o1")
Sheets("données").Range("l1").Copy
Range("b" & r).Select
ActiveCell.PasteSpecial
If ActiveCell.Value = "Photo" Then ActiveCell.Comment.Visible = False
Range("c" & r) = Sheets("données").Range("p1").Value
Range("d" & r) = Sheets("données").Range("q1").Value
Range("e" & r) = Sheets("données").Range("r1").Value
Range("f" & r) = Sheets("données").Range("w1").Value
Range("h" & r) = Sheets("données").Range("t1").Value
Range("i" & r) = Sheets("données").Range("w1").Value
Range("l" & r) = Sheets("données").Range("u1").Value
Range("g" & r) = Sheets("données").Range("s1").Value
Range("j" & r) = Sheets("données").Range("x1").Value
Range("k" & r) = Sheets("données").Range("y1").Value
If Sheets("données").Range("n1") = "Tout l'atelier" Then
Dim nuli19 As Integer
nuli19 = Sheets("Montage").Cells.Find(What:="Tout l'atelier", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage").Range("A" & nuli19).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli19).Offset(1, 0)
Range(Cells(nuli19 + 1, 1), Cells(nuli19 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli19 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Traitement des corps creux" Then
Dim nuli20 As Integer
nuli20 = Sheets("Montage").Cells.Find(What:="Traitement des corps creux", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage").Range("A" & nuli20).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli20).Offset(1, 0)
Range(Cells(nuli20 + 1, 1), Cells(nuli20 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli20 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Poste de montage des pneus" Then
Dim nuli21 As Integer
nuli21 = Sheets("Montage").Cells.Find(What:="Poste de montage des pneus", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage").Range("A" & nuli21).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli21).Offset(1, 0)
Range(Cells(nuli21 + 1, 1), Cells(nuli21 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli21 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Presse / emboutisseuse" Then
Dim nuli22 As Integer
nuli22 = Sheets("Montage").Cells.Find(What:="Presse / emboutisseuse", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage").Range("A" & nuli22).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli22).Offset(1, 0)
Range(Cells(nuli22 + 1, 1), Cells(nuli22 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli22 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Poste de montage GMP" Then
Dim nuli23 As Integer
nuli23 = Sheets("Montage").Cells.Find(What:="Poste de montage GMP", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage").Range("A" & nuli23).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli23).Offset(1, 0)
Range(Cells(nuli23 + 1, 1), Cells(nuli23 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli23 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Bureau de câblage des tableaux de bord" Then
Dim nuli24 As Integer
nuli24 = Sheets("Montage").Cells.Find(What:="Bureau de câblage des tableaux de bord", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage").Range("A" & nuli24).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli24).Offset(1, 0)
Range(Cells(nuli24 + 1, 1), Cells(nuli24 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli24 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Ligne de montage" Then
Dim nuli25 As Integer
nuli25 = Sheets("Montage").Cells.Find(What:="Ligne de montage", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage").Range("A" & nuli25).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli25).Offset(1, 0)
Range(Cells(nuli25 + 1, 1), Cells(nuli25 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli25 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Zone de prototypes" Then
Dim nuli26 As Integer
nuli26 = Sheets("Montage").Cells.Find(What:="Zone de prototypes", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage").Range("A" & nuli26).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli26).Offset(1, 0)
Range(Cells(nuli26 + 1, 1), Cells(nuli26 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli26 + 1).Select
Call Colour
End If
Function Mise_en_forme()
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
End Function
Function Colour()
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="1"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With
Selection.Font.ColorIndex = 3
Selection.FormatConditions(1).Interior.ColorIndex = 3
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="2"
With Selection.FormatConditions(2).Font
.Bold = True
.Italic = False
End With
Selection.Font.ColorIndex = 44
Selection.FormatConditions(2).Interior.ColorIndex = 44
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="3"
With Selection.FormatConditions(3).Font
.Bold = True
.Italic = False
End With
Selection.Font.ColorIndex = 4
Selection.FormatConditions(3).Interior.ColorIndex = 4
End Function
Private Sub CommandButton1_Click()
Sheets("données").Range("m1") = ComboBox1.Value
Sheets("données").Range("n1") = ComboBox2.Value
Sheets("données").Range("o1") = TextBox1.Value
Sheets("données").Range("p1") = ComboBox4.Value
Sheets("données").Range("q2") = ComboBox5.Value
Sheets("données").Range("r2") = ComboBox6.Value
Sheets("données").Range("s1") = TextBox2.Value
Sheets("données").Range("t2") = ComboBox7.Value
Sheets("données").Range("u1") = TextBox3.Value
If Sheets("données").Range("m1") = "Administratif" Then
Sheets("Administratif").Select
Dim a As Integer
a = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("a" & a) = Sheets("données").Range("o1")
Sheets("données").Range("l1").Copy
Range("b" & a).Select
ActiveCell.PasteSpecial
If ActiveCell.Value = "Photo" Then ActiveCell.Comment.Visible = False
Range("c" & a) = Sheets("données").Range("p1").Value
Range("d" & a) = Sheets("données").Range("q1").Value
Range("e" & a) = Sheets("données").Range("r1").Value
Range("f" & a) = Sheets("données").Range("w1").Value
Range("h" & a) = Sheets("données").Range("t1").Value
Range("i" & a) = Sheets("données").Range("w1").Value
Range("l" & a) = Sheets("données").Range("u1").Value
Range("g" & a) = Sheets("données").Range("s1").Value
Range("j" & a) = Sheets("données").Range("x1").Value
Range("k" & a) = Sheets("données").Range("y1").Value
If Sheets("données").Range("n1") = "Tous les bâtiments administratifs" Then
Dim nuli As Integer
nuli = Sheets("administratif").Cells.Find(What:="Tous les bâtiments administratifs", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("administratif").Range("A" & nuli).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("administratif").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli).Offset(1, 0)
Range(Cells(nuli + 1, 1), Cells(nuli + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Poste de travail informatique" Then
Dim nuli1 As Integer
nuli1 = Sheets("administratif").Cells.Find(What:="Poste de travail informatique", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("administratif").Range("A" & nuli1).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("administratif").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli1).Offset(1, 0)
Range(Cells(nuli1 + 1, 1), Cells(nuli1 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli1 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Salle de repas" Then
Dim nuli2 As Integer
nuli2 = Sheets("administratif").Cells.Find(What:="Salle de repas", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("administratif").Range("A" & nuli2).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("administratif").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli2).Offset(1, 0)
Range(Cells(nuli2 + 1, 1), Cells(nuli2 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli2 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Vestiaires" Then
Dim nuli3 As Integer
nuli3 = Sheets("administratif").Cells.Find(What:="Vestiaires", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("administratif").Range("A" & nuli3).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("administratif").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli3).Offset(1, 0)
Range(Cells(nuli2 + 1, 1), Cells(nuli2 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli2 + 1).Select
Call Colour
End If
Sheets("suivi").Select
Dim i As Integer
i = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("A" & i) = Sheets("données").Range("n1")
Range("B" & i) = Sheets("données").Range("o1")
Range("C" & i) = Sheets("données").Range("x1")
Range("D" & i) = Sheets("données").Range("u1")
Dim numlig As Integer
numlig = Sheets("suivi").Cells.Find(What:="administratif", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("suivi").Range("A" & numlig).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("suivi").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & numlig).Offset(1, 0)
End If
If Sheets("données").Range("m1") = "Extérieur" Then
Sheets("Extérieur").Select
Dim z As Integer
z = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("a" & z) = Sheets("données").Range("o1")
Sheets("données").Range("l1").Copy
Range("b" & z).Select
ActiveCell.PasteSpecial
If ActiveCell.Value = "Photo" Then ActiveCell.Comment.Visible = False
Range("c" & z) = Sheets("données").Range("p1").Value
Range("d" & z) = Sheets("données").Range("q1").Value
Range("e" & z) = Sheets("données").Range("r1").Value
Range("f" & z) = Sheets("données").Range("w1").Value
Range("h" & z) = Sheets("données").Range("t1").Value
Range("i" & z) = Sheets("données").Range("w1").Value
Range("l" & z) = Sheets("données").Range("u1").Value
Range("g" & z) = Sheets("données").Range("s1").Value
Range("j" & z) = Sheets("données").Range("x1").Value
Range("k" & z) = Sheets("données").Range("y1").Value
If Sheets("données").Range("n1") = "Stockage déchets et bennes" Then
Dim nuli4 As Integer
nuli4 = Sheets("Extérieur").Cells.Find(What:="Stockage déchets et bennes", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Extérieur").Range("A" & nuli4).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Extérieur").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli4).Offset(1, 0)
Range(Cells(nuli4 + 1, 1), Cells(nuli4 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli4 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Stockage des bouteilles de gaz" Then
Dim nuli5 As Integer
nuli5 = Sheets("Extérieur").Cells.Find(What:="Stockage des bouteilles de gaz", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Extérieur").Range("A" & nuli5).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Extérieur").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli5).Offset(1, 0)
Range(Cells(nuli5 + 1, 1), Cells(nuli5 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli5 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Stockage de gaz en citerne aérienne" Then
Dim nuli6 As Integer
nuli6 = Sheets("Extérieur").Cells.Find(What:="Stockage de gaz en citerne aérienne", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Extérieur").Range("A" & nuli6).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Extérieur").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli6).Offset(1, 0)
Range(Cells(nuli6 + 1, 1), Cells(nuli6 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli6 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Stockage de fuel en citerne aérienne" Then
Dim nuli7 As Integer
nuli7 = Sheets("Extérieur").Cells.Find(What:="Stockage de fuel en citerne aérienne", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Extérieur").Range("A" & nuli7).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Extérieur").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli7).Offset(1, 0)
Range(Cells(nuli7 + 1, 1), Cells(nuli7 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli7 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Transformateur électrique" Then
Dim nuli8 As Integer
nuli8 = Sheets("Extérieur").Cells.Find(What:="Transformateur électrique", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Extérieur").Range("A" & nuli8).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Extérieur").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli8).Offset(1, 0)
Range(Cells(nuli8 + 1, 1), Cells(nuli8 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli8 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Voies de circulation véhicules" Then
Dim nuli10 As Integer
nuli10 = Sheets("Extérieur").Cells.Find(What:="Voies de circulation véhicules", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Extérieur").Range("A" & nuli10).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Extérieur").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli10).Offset(1, 0)
Range(Cells(nuli10 + 1, 1), Cells(nuli10 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli10 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Voies de circulation piétons" Then
Dim nuli9 As Integer
nuli9 = Sheets("Extérieur").Cells.Find(What:="Voies de circulation piétons", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Extérieur").Range("A" & nuli9).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Extérieur").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli9).Offset(1, 0)
Range(Cells(nuli9 + 1, 1), Cells(nuli9 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli9 + 1).Select
Call Colour
End If
Sheets("suivi").Select
Dim j As Integer
j = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("A" & j) = Sheets("données").Range("n1")
Range("B" & j) = Sheets("données").Range("o1")
Range("C" & j) = Sheets("données").Range("x1")
Range("D" & j) = Sheets("données").Range("u1")
Dim numlig2 As Integer
numlig2 = Sheets("suivi").Cells.Find(What:="Extérieur", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("suivi").Range("A" & numlig2).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("suivi").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & numlig2).Offset(1, 0)
End If
If Sheets("données").Range("m1") = "Magasin" Then
Sheets("Magasin").Select
Dim e As Integer
e = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("a" & e) = Sheets("données").Range("o1")
Sheets("données").Range("l1").Copy
Range("b" & e).Select
ActiveCell.PasteSpecial
If ActiveCell.Value = "Photo" Then ActiveCell.Comment.Visible = False
Range("c" & e) = Sheets("données").Range("p1").Value
Range("d" & e) = Sheets("données").Range("q1").Value
Range("e" & e) = Sheets("données").Range("r1").Value
Range("f" & e) = Sheets("données").Range("w1").Value
Range("h" & e) = Sheets("données").Range("t1").Value
Range("i" & e) = Sheets("données").Range("w1").Value
Range("l" & e) = Sheets("données").Range("u1").Value
Range("g" & e) = Sheets("données").Range("s1").Value
Range("j" & e) = Sheets("données").Range("x1").Value
Range("k" & e) = Sheets("données").Range("y1").Value
If Sheets("données").Range("n1") = "Tout l'atelier" Then
Dim nuli11 As Integer
nuli11 = Sheets("Magasin").Cells.Find(What:="Tout l'atelier", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Magasin").Range("A" & nuli11).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Magasin").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli11).Offset(1, 0)
Range(Cells(nuli11 + 1, 1), Cells(nuli11 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli11 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Local achats et réception" Then
Dim nuli12 As Integer
nuli12 = Sheets("Magasin").Cells.Find(What:="Local achats et réception", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Magasin").Range("A" & nuli12).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Magasin").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli12).Offset(1, 0)
Range(Cells(nuli12 + 1, 1), Cells(nuli12 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli12 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "SAV contrôle" Then
Dim nuli13 As Integer
nuli13 = Sheets("Magasin").Cells.Find(What:="SAV contrôle", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Magasin").Range("A" & nuli13).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Magasin").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli13).Offset(1, 0)
Range(Cells(nuli13 + 1, 1), Cells(nuli13 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli13 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Zone de préparation/expédition" Then
Dim nuli14 As Integer
nuli14 = Sheets("Magasin").Cells.Find(What:="Zone de préparation/expédition", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Magasin").Range("A" & nuli14).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Magasin").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli14).Offset(1, 0)
Range(Cells(nuli14 + 1, 1), Cells(nuli14 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli14 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Zone de réparation" Then
Dim nuli15 As Integer
nuli15 = Sheets("Magasin").Cells.Find(What:="Zone de réparation", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Magasin").Range("A" & nuli15).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Magasin").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli15).Offset(1, 0)
Range(Cells(nuli15 + 1, 1), Cells(nuli15 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli15 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Zone de stockage au sol" Then
Dim nuli16 As Integer
nuli16 = Sheets("Magasin").Cells.Find(What:="Zone de stockage au sol", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Magasin").Range("A" & nuli16).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Magasin").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli16).Offset(1, 0)
Range(Cells(nuli16 + 1, 1), Cells(nuli16 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli16 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Zone de stockage divers à l'étage" Then
Dim nuli17 As Integer
nuli17 = Sheets("Magasin").Cells.Find(What:="Zone de stockage divers à l'étage", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Magasin").Range("A" & nuli17).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Magasin").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli17).Offset(1, 0)
Range(Cells(nuli17 + 1, 1), Cells(nuli17 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli17 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Zone de stockage sur racks" Then
Dim nuli18 As Integer
nuli18 = Sheets("Magasin").Cells.Find(What:="Zone de stockage sur racks", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Magasin").Range("A" & nuli18).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Magasin").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli18).Offset(1, 0)
Range(Cells(nuli18 + 1, 1), Cells(nuli18 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli18 + 1).Select
Call Colour
End If
Sheets("suivi").Select
Dim k As Integer
k = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("A" & k) = Sheets("données").Range("n1")
Range("B" & k) = Sheets("données").Range("o1")
Range("C" & k) = Sheets("données").Range("x1")
Range("D" & k) = Sheets("données").Range("u1")
Dim numlig3 As Integer
numlig3 = Sheets("suivi").Cells.Find(What:="magasin", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("suivi").Range("A" & numlig3).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("suivi").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & numlig3).Offset(1, 0)
End If
If Sheets("données").Range("m1") = "Montage" Then
Sheets("Montage").Select
Dim r As Integer
r = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("a" & r) = Sheets("données").Range("o1")
Sheets("données").Range("l1").Copy
Range("b" & r).Select
ActiveCell.PasteSpecial
If ActiveCell.Value = "Photo" Then ActiveCell.Comment.Visible = False
Range("c" & r) = Sheets("données").Range("p1").Value
Range("d" & r) = Sheets("données").Range("q1").Value
Range("e" & r) = Sheets("données").Range("r1").Value
Range("f" & r) = Sheets("données").Range("w1").Value
Range("h" & r) = Sheets("données").Range("t1").Value
Range("i" & r) = Sheets("données").Range("w1").Value
Range("l" & r) = Sheets("données").Range("u1").Value
Range("g" & r) = Sheets("données").Range("s1").Value
Range("j" & r) = Sheets("données").Range("x1").Value
Range("k" & r) = Sheets("données").Range("y1").Value
If Sheets("données").Range("n1") = "Tout l'atelier" Then
Dim nuli19 As Integer
nuli19 = Sheets("Montage").Cells.Find(What:="Tout l'atelier", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage").Range("A" & nuli19).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli19).Offset(1, 0)
Range(Cells(nuli19 + 1, 1), Cells(nuli19 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli19 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Traitement des corps creux" Then
Dim nuli20 As Integer
nuli20 = Sheets("Montage").Cells.Find(What:="Traitement des corps creux", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage").Range("A" & nuli20).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli20).Offset(1, 0)
Range(Cells(nuli20 + 1, 1), Cells(nuli20 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli20 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Poste de montage des pneus" Then
Dim nuli21 As Integer
nuli21 = Sheets("Montage").Cells.Find(What:="Poste de montage des pneus", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage").Range("A" & nuli21).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli21).Offset(1, 0)
Range(Cells(nuli21 + 1, 1), Cells(nuli21 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli21 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Presse / emboutisseuse" Then
Dim nuli22 As Integer
nuli22 = Sheets("Montage").Cells.Find(What:="Presse / emboutisseuse", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage").Range("A" & nuli22).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli22).Offset(1, 0)
Range(Cells(nuli22 + 1, 1), Cells(nuli22 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli22 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Poste de montage GMP" Then
Dim nuli23 As Integer
nuli23 = Sheets("Montage").Cells.Find(What:="Poste de montage GMP", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage").Range("A" & nuli23).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli23).Offset(1, 0)
Range(Cells(nuli23 + 1, 1), Cells(nuli23 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli23 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Bureau de câblage des tableaux de bord" Then
Dim nuli24 As Integer
nuli24 = Sheets("Montage").Cells.Find(What:="Bureau de câblage des tableaux de bord", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage").Range("A" & nuli24).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli24).Offset(1, 0)
Range(Cells(nuli24 + 1, 1), Cells(nuli24 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli24 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Ligne de montage" Then
Dim nuli25 As Integer
nuli25 = Sheets("Montage").Cells.Find(What:="Ligne de montage", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage").Range("A" & nuli25).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli25).Offset(1, 0)
Range(Cells(nuli25 + 1, 1), Cells(nuli25 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli25 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Zone de prototypes" Then
Dim nuli26 As Integer
nuli26 = Sheets("Montage").Cells.Find(What:="Zone de prototypes", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage").Range("A" & nuli26).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli26).Offset(1, 0)
Range(Cells(nuli26 + 1, 1), Cells(nuli26 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli26 + 1).Select
Call Colour
End If
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 369
19 janv. 2010 à 14:35
19 janv. 2010 à 14:35
La suite:
If Sheets("données").Range("n1") = "Zone de stockage des véhicules et des pièces" Then
Dim nuli27 As Integer
nuli27 = Sheets("Montage").Cells.Find(What:="Zone de stockage des véhicules et des pièces", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage").Range("A" & nuli27).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli27).Offset(1, 0)
Range(Cells(nuli27 + 1, 1), Cells(nuli27 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli27 + 1).Select
Call Colour
End If
Sheets("suivi").Select
Dim l As Integer
l = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("A" & l) = Sheets("données").Range("n1")
Range("B" & l) = Sheets("données").Range("o1")
Range("C" & l) = Sheets("données").Range("x1")
Range("D" & l) = Sheets("données").Range("u1")
Dim numlig4 As Integer
numlig4 = Sheets("suivi").Cells.Find(What:="montage", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("suivi").Range("A" & numlig4).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("suivi").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & numlig4).Offset(1, 0)
End If
If Sheets("données").Range("m1") = "Montage PVP" Then
Sheets("Montage PVP").Select
Dim t As Integer
t = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("a" & t) = Sheets("données").Range("o1")
Sheets("données").Range("l1").Copy
Range("b" & t).Select
ActiveCell.PasteSpecial
If ActiveCell.Value = "Photo" Then ActiveCell.Comment.Visible = False
Range("c" & t) = Sheets("données").Range("p1").Value
Range("d" & t) = Sheets("données").Range("q1").Value
Range("e" & t) = Sheets("données").Range("r1").Value
Range("f" & t) = Sheets("données").Range("w1").Value
Range("h" & t) = Sheets("données").Range("t1").Value
Range("i" & t) = Sheets("données").Range("w1").Value
Range("l" & t) = Sheets("données").Range("u1").Value
Range("g" & t) = Sheets("données").Range("s1").Value
Range("j" & t) = Sheets("données").Range("x1").Value
Range("k" & t) = Sheets("données").Range("y1").Value
If Sheets("données").Range("n1") = "Tout l'atelier" Then
Dim nuli28 As Integer
nuli28 = Sheets("Montage PVP").Cells.Find(What:="Tout l'atelier", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage PVP").Range("A" & nuli28).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage PVP").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli28).Offset(1, 0)
Range(Cells(nuli28 + 1, 1), Cells(nuli28 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli28 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Poste sous-blindage" Then
Dim nuli29 As Integer
nuli29 = Sheets("Montage PVP").Cells.Find(What:="Poste sous-blindage", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage PVP").Range("A" & nuli29).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage PVP").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli29).Offset(1, 0)
Range(Cells(nuli29 + 1, 1), Cells(nuli29 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli29 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Poste de préparation des capots" Then
Dim nuli30 As Integer
nuli30 = Sheets("Montage PVP").Cells.Find(What:="Poste de préparation des capots", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage PVP").Range("A" & nuli30).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage PVP").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli30).Offset(1, 0)
Range(Cells(nuli30 + 1, 1), Cells(nuli30 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli30 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Poste de préparation des portes" Then
Dim nuli31 As Integer
nuli31 = Sheets("Montage PVP").Cells.Find(What:="Poste de préparation des portes", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage PVP").Range("A" & nuli31).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage PVP").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli31).Offset(1, 0)
Range(Cells(nuli31 + 1, 1), Cells(nuli31 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli31 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Poste de préparation des vitres" Then
Dim nuli32 As Integer
nuli32 = Sheets("Montage PVP").Cells.Find(What:="Poste de préparation des vitres", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage PVP").Range("A" & nuli32).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage PVP").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli32).Offset(1, 0)
Range(Cells(nuli32 + 1, 1), Cells(nuli32 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli32 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Ligne de montage" Then
Dim nuli33 As Integer
nuli33 = Sheets("Montage PVP").Cells.Find(What:="Ligne de montage", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage PVP").Range("A" & nuli33).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage PVP").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli33).Offset(1, 0)
Range(Cells(nuli33 + 1, 1), Cells(nuli33 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli33 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Zone de stockage" Then
Dim nuli34 As Integer
nuli34 = Sheets("Montage PVP").Cells.Find(What:="Zone de stockage", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage PVP").Range("A" & nuli34).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage PVP").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli34).Offset(1, 0)
Range(Cells(nuli34 + 1, 1), Cells(nuli34 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli34 + 1).Select
Call Colour
End If
Sheets("suivi").Select
Dim m As Integer
m = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("A" & m) = Sheets("données").Range("n1")
Range("B" & m) = Sheets("données").Range("o1")
Range("C" & m) = Sheets("données").Range("x1")
Range("D" & m) = Sheets("données").Range("u1")
Dim numlig5 As Integer
numlig5 = Sheets("suivi").Cells.Find(What:="montage PVP", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("suivi").Range("A" & numlig5).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("suivi").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & numlig5).Offset(1, 0)
End If
If Sheets("données").Range("m1") = "Peinture" Then
Sheets("Peinture").Select
Dim y As Integer
y = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("a" & y) = Sheets("données").Range("o1")
Sheets("données").Range("l1").Copy
Range("b" & y).Select
ActiveCell.PasteSpecial
If ActiveCell.Value = "Photo" Then ActiveCell.Comment.Visible = False
Range("c" & y) = Sheets("données").Range("p1").Value
Range("d" & y) = Sheets("données").Range("q1").Value
Range("e" & y) = Sheets("données").Range("r1").Value
Range("f" & y) = Sheets("données").Range("w1").Value
Range("h" & y) = Sheets("données").Range("t1").Value
Range("i" & y) = Sheets("données").Range("w1").Value
Range("l" & y) = Sheets("données").Range("u1").Value
Range("g" & y) = Sheets("données").Range("s1").Value
Range("j" & y) = Sheets("données").Range("x1").Value
Range("k" & y) = Sheets("données").Range("y1").Value
If Sheets("données").Range("n1") = "Tout l'atelier" Then
Dim nuli35 As Integer
nuli35 = Sheets("Peinture").Cells.Find(What:="Tout l'atelier", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Peinture").Range("A" & nuli35).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Peinture").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli35).Offset(1, 0)
Range(Cells(nuli35 + 1, 1), Cells(nuli35 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli35 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Cabine de grenaillage" Then
Dim nuli36 As Integer
nuli36 = Sheets("Peinture").Cells.Find(What:="Cabine de grenaillage", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Peinture").Range("A" & nuli36).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Peinture").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli36).Offset(1, 0)
Range(Cells(nuli36 + 1, 1), Cells(nuli36 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli36 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Cabine de peinture" Then
Dim nuli37 As Integer
nuli37 = Sheets("Peinture").Cells.Find(What:="Cabine de peinture", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Peinture").Range("A" & nuli37).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Peinture").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli37).Offset(1, 0)
Range(Cells(nuli37 + 1, 1), Cells(nuli37 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli37 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Cabine de préparation" Then
Dim nuli38 As Integer
nuli38 = Sheets("Peinture").Cells.Find(What:="Cabine de préparation", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Peinture").Range("A" & nuli38).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Peinture").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli38).Offset(1, 0)
Range(Cells(nuli38 + 1, 1), Cells(nuli38 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli38 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Dégraissage et phosphatation des pièces" Then
Dim nuli39 As Integer
nuli39 = Sheets("Peinture").Cells.Find(What:="Dégraissage et phosphatation des pièces", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Peinture").Range("A" & nuli39).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Peinture").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli39).Offset(1, 0)
Range(Cells(nuli39 + 1, 1), Cells(nuli39 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli39 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Ligne de peinture" Then
Dim nuli40 As Integer
nuli40 = Sheets("Peinture").Cells.Find(What:="Ligne de peinture", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Peinture").Range("A" & nuli40).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Peinture").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli40).Offset(1, 0)
Range(Cells(nuli40 + 1, 1), Cells(nuli40 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli40 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Zone de stockage des pièces et véhicules" Then
Dim nuli41 As Integer
nuli41 = Sheets("Peinture").Cells.Find(What:="Zone de stockage des pièces et véhicules", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Peinture").Range("A" & nuli41).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Peinture").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli41).Offset(1, 0)
Range(Cells(nuli41 + 1, 1), Cells(nuli41 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli41 + 1).Select
Call Colour
End If
Sheets("suivi").Select
Dim n As Integer
n = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("A" & n) = Sheets("données").Range("n1")
Range("B" & n) = Sheets("données").Range("o1")
Range("C" & n) = Sheets("données").Range("x1")
Range("D" & n) = Sheets("données").Range("u1")
Dim numlig6 As Integer
numlig6 = Sheets("suivi").Cells.Find(What:="Peinture", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("suivi").Range("A" & numlig6).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("suivi").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & numlig6).Offset(1, 0)
End If
If Sheets("données").Range("m1") = "Tôlerie" Then
Sheets("Tôlerie").Select
Dim u As Integer
u = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("a" & u) = Sheets("données").Range("o1")
Sheets("données").Range("l1").Copy
Range("b" & u).Select
ActiveCell.PasteSpecial
If ActiveCell.Value = "Photo" Then ActiveCell.Comment.Visible = False
Range("c" & u) = Sheets("données").Range("p1").Value
Range("d" & u) = Sheets("données").Range("q1").Value
Range("e" & u) = Sheets("données").Range("r1").Value
Range("f" & u) = Sheets("données").Range("w1").Value
Range("h" & u) = Sheets("données").Range("t1").Value
Range("i" & u) = Sheets("données").Range("w1").Value
Range("l" & u) = Sheets("données").Range("u1").Value
Range("g" & u) = Sheets("données").Range("s1").Value
Range("j" & u) = Sheets("données").Range("x1").Value
Range("k" & u) = Sheets("données").Range("y1").Value
If Sheets("données").Range("n1") = "Tout l'atelier" Then
Dim nuli42 As Integer
nuli42 = Sheets("Tôlerie").Cells.Find(What:="Tout l'atelier", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli42).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli42).Offset(1, 0)
Range(Cells(nuli42 + 1, 1), Cells(nuli42 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli42 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Cisaille / guillotine" Then
Dim nuli43 As Integer
nuli43 = Sheets("Tôlerie").Cells.Find(What:="Cisaille / guillotine", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli43).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli43).Offset(1, 0)
Range(Cells(nuli43 + 1, 1), Cells(nuli43 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli43 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Découpe plasma/Oxycoupage" Then
Dim nuli44 As Integer
nuli44 = Sheets("Tôlerie").Cells.Find(What:="Découpe plasma/Oxycoupage", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli44).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli44).Offset(1, 0)
Range(Cells(nuli44 + 1, 1), Cells(nuli44 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli44 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Meuleuse" Then
Dim nuli45 As Integer
nuli45 = Sheets("Tôlerie").Cells.Find(What:="Meuleuse", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli45).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli45).Offset(1, 0)
Range(Cells(nuli45 + 1, 1), Cells(nuli45 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli45 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Poinçonneuse" Then
Dim nuli46 As Integer
nuli46 = Sheets("Tôlerie").Cells.Find(What:="Poinçonneuse", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli46).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli46).Offset(1, 0)
Range(Cells(nuli46 + 1, 1), Cells(nuli46 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli46 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Poste de soudure" Then
Dim nuli47 As Integer
nuli47 = Sheets("Tôlerie").Cells.Find(What:="Poste de soudure", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli47).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli47).Offset(1, 0)
Range(Cells(nuli47 + 1, 1), Cells(nuli47 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli47 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Presse plieuse" Then
Dim nuli48 As Integer
nuli48 = Sheets("Tôlerie").Cells.Find(What:="Presse plieuse", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli48).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli48).Offset(1, 0)
Range(Cells(nuli48 + 1, 1), Cells(nuli48 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli48 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Robot de soudure" Then
Dim nuli49 As Integer
nuli49 = Sheets("Tôlerie").Cells.Find(What:="Robot de soudure", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli49).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli49).Offset(1, 0)
Range(Cells(nuli49 + 1, 1), Cells(nuli49 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli49 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Scie à ruban" Then
Dim nuli50 As Integer
nuli50 = Sheets("Tôlerie").Cells.Find(What:="Scie à ruban", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli50).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli50).Offset(1, 0)
Range(Cells(nuli50 + 1, 1), Cells(nuli50 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli50 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Tonneau d'ébavurage" Then
Dim nuli51 As Integer
nuli51 = Sheets("Tôlerie").Cells.Find(What:="Tonneau d'ébavurage", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli51).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli51).Offset(1, 0)
Range(Cells(nuli51 + 1, 1), Cells(nuli51 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli51 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Vireur" Then
Dim nuli52 As Integer
nuli52 = Sheets("Tôlerie").Cells.Find(What:="Vireur", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli52).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli52).Offset(1, 0)
Range(Cells(nuli52 + 1, 1), Cells(nuli52 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli52 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Zone de stockage" Then
Dim nuli53 As Integer
nuli53 = Sheets("Tôlerie").Cells.Find(What:="Zone de stockage", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli53).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli53).Offset(1, 0)
Range(Cells(nuli53 + 1, 1), Cells(nuli53 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli53 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Découpe laser" Then
Dim nuli54 As Integer
nuli54 = Sheets("Tôlerie").Cells.Find(What:="Découpe laser", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli54).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli54).Offset(1, 0)
Range(Cells(nuli54 + 1, 1), Cells(nuli54 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli54 + 1).Select
Call Colour
End If
Sheets("suivi").Select
Dim o As Integer
o = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("A" & o) = Sheets("données").Range("n1")
Range("B" & o) = Sheets("données").Range("o1")
Range("C" & o) = Sheets("données").Range("x1")
Range("D" & o) = Sheets("données").Range("u1")
Range(Cells(o, 1), Cells(o, 4)).Borders.Weight = xlThin
Range("C" & o).Select
Call Colour
Dim numlig7 As Integer
numlig7 = Sheets("suivi").Cells.Find(What:="Tôlerie", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("suivi").Range("A" & numlig7).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("suivi").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & numlig7).Offset(1, 0)
End If
Sheets("accueil").Select
Unload UserForm1
End Sub
If Sheets("données").Range("n1") = "Zone de stockage des véhicules et des pièces" Then
Dim nuli27 As Integer
nuli27 = Sheets("Montage").Cells.Find(What:="Zone de stockage des véhicules et des pièces", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage").Range("A" & nuli27).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli27).Offset(1, 0)
Range(Cells(nuli27 + 1, 1), Cells(nuli27 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli27 + 1).Select
Call Colour
End If
Sheets("suivi").Select
Dim l As Integer
l = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("A" & l) = Sheets("données").Range("n1")
Range("B" & l) = Sheets("données").Range("o1")
Range("C" & l) = Sheets("données").Range("x1")
Range("D" & l) = Sheets("données").Range("u1")
Dim numlig4 As Integer
numlig4 = Sheets("suivi").Cells.Find(What:="montage", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("suivi").Range("A" & numlig4).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("suivi").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & numlig4).Offset(1, 0)
End If
If Sheets("données").Range("m1") = "Montage PVP" Then
Sheets("Montage PVP").Select
Dim t As Integer
t = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("a" & t) = Sheets("données").Range("o1")
Sheets("données").Range("l1").Copy
Range("b" & t).Select
ActiveCell.PasteSpecial
If ActiveCell.Value = "Photo" Then ActiveCell.Comment.Visible = False
Range("c" & t) = Sheets("données").Range("p1").Value
Range("d" & t) = Sheets("données").Range("q1").Value
Range("e" & t) = Sheets("données").Range("r1").Value
Range("f" & t) = Sheets("données").Range("w1").Value
Range("h" & t) = Sheets("données").Range("t1").Value
Range("i" & t) = Sheets("données").Range("w1").Value
Range("l" & t) = Sheets("données").Range("u1").Value
Range("g" & t) = Sheets("données").Range("s1").Value
Range("j" & t) = Sheets("données").Range("x1").Value
Range("k" & t) = Sheets("données").Range("y1").Value
If Sheets("données").Range("n1") = "Tout l'atelier" Then
Dim nuli28 As Integer
nuli28 = Sheets("Montage PVP").Cells.Find(What:="Tout l'atelier", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage PVP").Range("A" & nuli28).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage PVP").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli28).Offset(1, 0)
Range(Cells(nuli28 + 1, 1), Cells(nuli28 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli28 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Poste sous-blindage" Then
Dim nuli29 As Integer
nuli29 = Sheets("Montage PVP").Cells.Find(What:="Poste sous-blindage", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage PVP").Range("A" & nuli29).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage PVP").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli29).Offset(1, 0)
Range(Cells(nuli29 + 1, 1), Cells(nuli29 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli29 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Poste de préparation des capots" Then
Dim nuli30 As Integer
nuli30 = Sheets("Montage PVP").Cells.Find(What:="Poste de préparation des capots", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage PVP").Range("A" & nuli30).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage PVP").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli30).Offset(1, 0)
Range(Cells(nuli30 + 1, 1), Cells(nuli30 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli30 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Poste de préparation des portes" Then
Dim nuli31 As Integer
nuli31 = Sheets("Montage PVP").Cells.Find(What:="Poste de préparation des portes", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage PVP").Range("A" & nuli31).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage PVP").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli31).Offset(1, 0)
Range(Cells(nuli31 + 1, 1), Cells(nuli31 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli31 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Poste de préparation des vitres" Then
Dim nuli32 As Integer
nuli32 = Sheets("Montage PVP").Cells.Find(What:="Poste de préparation des vitres", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage PVP").Range("A" & nuli32).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage PVP").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli32).Offset(1, 0)
Range(Cells(nuli32 + 1, 1), Cells(nuli32 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli32 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Ligne de montage" Then
Dim nuli33 As Integer
nuli33 = Sheets("Montage PVP").Cells.Find(What:="Ligne de montage", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage PVP").Range("A" & nuli33).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage PVP").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli33).Offset(1, 0)
Range(Cells(nuli33 + 1, 1), Cells(nuli33 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli33 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Zone de stockage" Then
Dim nuli34 As Integer
nuli34 = Sheets("Montage PVP").Cells.Find(What:="Zone de stockage", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Montage PVP").Range("A" & nuli34).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Montage PVP").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli34).Offset(1, 0)
Range(Cells(nuli34 + 1, 1), Cells(nuli34 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli34 + 1).Select
Call Colour
End If
Sheets("suivi").Select
Dim m As Integer
m = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("A" & m) = Sheets("données").Range("n1")
Range("B" & m) = Sheets("données").Range("o1")
Range("C" & m) = Sheets("données").Range("x1")
Range("D" & m) = Sheets("données").Range("u1")
Dim numlig5 As Integer
numlig5 = Sheets("suivi").Cells.Find(What:="montage PVP", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("suivi").Range("A" & numlig5).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("suivi").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & numlig5).Offset(1, 0)
End If
If Sheets("données").Range("m1") = "Peinture" Then
Sheets("Peinture").Select
Dim y As Integer
y = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("a" & y) = Sheets("données").Range("o1")
Sheets("données").Range("l1").Copy
Range("b" & y).Select
ActiveCell.PasteSpecial
If ActiveCell.Value = "Photo" Then ActiveCell.Comment.Visible = False
Range("c" & y) = Sheets("données").Range("p1").Value
Range("d" & y) = Sheets("données").Range("q1").Value
Range("e" & y) = Sheets("données").Range("r1").Value
Range("f" & y) = Sheets("données").Range("w1").Value
Range("h" & y) = Sheets("données").Range("t1").Value
Range("i" & y) = Sheets("données").Range("w1").Value
Range("l" & y) = Sheets("données").Range("u1").Value
Range("g" & y) = Sheets("données").Range("s1").Value
Range("j" & y) = Sheets("données").Range("x1").Value
Range("k" & y) = Sheets("données").Range("y1").Value
If Sheets("données").Range("n1") = "Tout l'atelier" Then
Dim nuli35 As Integer
nuli35 = Sheets("Peinture").Cells.Find(What:="Tout l'atelier", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Peinture").Range("A" & nuli35).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Peinture").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli35).Offset(1, 0)
Range(Cells(nuli35 + 1, 1), Cells(nuli35 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli35 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Cabine de grenaillage" Then
Dim nuli36 As Integer
nuli36 = Sheets("Peinture").Cells.Find(What:="Cabine de grenaillage", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Peinture").Range("A" & nuli36).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Peinture").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli36).Offset(1, 0)
Range(Cells(nuli36 + 1, 1), Cells(nuli36 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli36 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Cabine de peinture" Then
Dim nuli37 As Integer
nuli37 = Sheets("Peinture").Cells.Find(What:="Cabine de peinture", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Peinture").Range("A" & nuli37).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Peinture").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli37).Offset(1, 0)
Range(Cells(nuli37 + 1, 1), Cells(nuli37 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli37 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Cabine de préparation" Then
Dim nuli38 As Integer
nuli38 = Sheets("Peinture").Cells.Find(What:="Cabine de préparation", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Peinture").Range("A" & nuli38).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Peinture").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli38).Offset(1, 0)
Range(Cells(nuli38 + 1, 1), Cells(nuli38 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli38 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Dégraissage et phosphatation des pièces" Then
Dim nuli39 As Integer
nuli39 = Sheets("Peinture").Cells.Find(What:="Dégraissage et phosphatation des pièces", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Peinture").Range("A" & nuli39).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Peinture").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli39).Offset(1, 0)
Range(Cells(nuli39 + 1, 1), Cells(nuli39 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli39 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Ligne de peinture" Then
Dim nuli40 As Integer
nuli40 = Sheets("Peinture").Cells.Find(What:="Ligne de peinture", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Peinture").Range("A" & nuli40).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Peinture").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli40).Offset(1, 0)
Range(Cells(nuli40 + 1, 1), Cells(nuli40 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli40 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Zone de stockage des pièces et véhicules" Then
Dim nuli41 As Integer
nuli41 = Sheets("Peinture").Cells.Find(What:="Zone de stockage des pièces et véhicules", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Peinture").Range("A" & nuli41).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Peinture").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli41).Offset(1, 0)
Range(Cells(nuli41 + 1, 1), Cells(nuli41 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli41 + 1).Select
Call Colour
End If
Sheets("suivi").Select
Dim n As Integer
n = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("A" & n) = Sheets("données").Range("n1")
Range("B" & n) = Sheets("données").Range("o1")
Range("C" & n) = Sheets("données").Range("x1")
Range("D" & n) = Sheets("données").Range("u1")
Dim numlig6 As Integer
numlig6 = Sheets("suivi").Cells.Find(What:="Peinture", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("suivi").Range("A" & numlig6).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("suivi").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & numlig6).Offset(1, 0)
End If
If Sheets("données").Range("m1") = "Tôlerie" Then
Sheets("Tôlerie").Select
Dim u As Integer
u = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("a" & u) = Sheets("données").Range("o1")
Sheets("données").Range("l1").Copy
Range("b" & u).Select
ActiveCell.PasteSpecial
If ActiveCell.Value = "Photo" Then ActiveCell.Comment.Visible = False
Range("c" & u) = Sheets("données").Range("p1").Value
Range("d" & u) = Sheets("données").Range("q1").Value
Range("e" & u) = Sheets("données").Range("r1").Value
Range("f" & u) = Sheets("données").Range("w1").Value
Range("h" & u) = Sheets("données").Range("t1").Value
Range("i" & u) = Sheets("données").Range("w1").Value
Range("l" & u) = Sheets("données").Range("u1").Value
Range("g" & u) = Sheets("données").Range("s1").Value
Range("j" & u) = Sheets("données").Range("x1").Value
Range("k" & u) = Sheets("données").Range("y1").Value
If Sheets("données").Range("n1") = "Tout l'atelier" Then
Dim nuli42 As Integer
nuli42 = Sheets("Tôlerie").Cells.Find(What:="Tout l'atelier", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli42).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli42).Offset(1, 0)
Range(Cells(nuli42 + 1, 1), Cells(nuli42 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli42 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Cisaille / guillotine" Then
Dim nuli43 As Integer
nuli43 = Sheets("Tôlerie").Cells.Find(What:="Cisaille / guillotine", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli43).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli43).Offset(1, 0)
Range(Cells(nuli43 + 1, 1), Cells(nuli43 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli43 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Découpe plasma/Oxycoupage" Then
Dim nuli44 As Integer
nuli44 = Sheets("Tôlerie").Cells.Find(What:="Découpe plasma/Oxycoupage", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli44).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli44).Offset(1, 0)
Range(Cells(nuli44 + 1, 1), Cells(nuli44 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli44 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Meuleuse" Then
Dim nuli45 As Integer
nuli45 = Sheets("Tôlerie").Cells.Find(What:="Meuleuse", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli45).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli45).Offset(1, 0)
Range(Cells(nuli45 + 1, 1), Cells(nuli45 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli45 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Poinçonneuse" Then
Dim nuli46 As Integer
nuli46 = Sheets("Tôlerie").Cells.Find(What:="Poinçonneuse", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli46).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli46).Offset(1, 0)
Range(Cells(nuli46 + 1, 1), Cells(nuli46 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli46 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Poste de soudure" Then
Dim nuli47 As Integer
nuli47 = Sheets("Tôlerie").Cells.Find(What:="Poste de soudure", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli47).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli47).Offset(1, 0)
Range(Cells(nuli47 + 1, 1), Cells(nuli47 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli47 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Presse plieuse" Then
Dim nuli48 As Integer
nuli48 = Sheets("Tôlerie").Cells.Find(What:="Presse plieuse", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli48).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli48).Offset(1, 0)
Range(Cells(nuli48 + 1, 1), Cells(nuli48 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli48 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Robot de soudure" Then
Dim nuli49 As Integer
nuli49 = Sheets("Tôlerie").Cells.Find(What:="Robot de soudure", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli49).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli49).Offset(1, 0)
Range(Cells(nuli49 + 1, 1), Cells(nuli49 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli49 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Scie à ruban" Then
Dim nuli50 As Integer
nuli50 = Sheets("Tôlerie").Cells.Find(What:="Scie à ruban", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli50).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli50).Offset(1, 0)
Range(Cells(nuli50 + 1, 1), Cells(nuli50 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli50 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Tonneau d'ébavurage" Then
Dim nuli51 As Integer
nuli51 = Sheets("Tôlerie").Cells.Find(What:="Tonneau d'ébavurage", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli51).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli51).Offset(1, 0)
Range(Cells(nuli51 + 1, 1), Cells(nuli51 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli51 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Vireur" Then
Dim nuli52 As Integer
nuli52 = Sheets("Tôlerie").Cells.Find(What:="Vireur", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli52).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli52).Offset(1, 0)
Range(Cells(nuli52 + 1, 1), Cells(nuli52 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli52 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Zone de stockage" Then
Dim nuli53 As Integer
nuli53 = Sheets("Tôlerie").Cells.Find(What:="Zone de stockage", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli53).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli53).Offset(1, 0)
Range(Cells(nuli53 + 1, 1), Cells(nuli53 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli53 + 1).Select
Call Colour
End If
If Sheets("données").Range("n1") = "Découpe laser" Then
Dim nuli54 As Integer
nuli54 = Sheets("Tôlerie").Cells.Find(What:="Découpe laser", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("Tôlerie").Range("A" & nuli54).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("Tôlerie").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & nuli54).Offset(1, 0)
Range(Cells(nuli54 + 1, 1), Cells(nuli54 + 1, 12)).Select
Call Mise_en_forme
Range("k" & nuli54 + 1).Select
Call Colour
End If
Sheets("suivi").Select
Dim o As Integer
o = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("A" & o) = Sheets("données").Range("n1")
Range("B" & o) = Sheets("données").Range("o1")
Range("C" & o) = Sheets("données").Range("x1")
Range("D" & o) = Sheets("données").Range("u1")
Range(Cells(o, 1), Cells(o, 4)).Borders.Weight = xlThin
Range("C" & o).Select
Call Colour
Dim numlig7 As Integer
numlig7 = Sheets("suivi").Cells.Find(What:="Tôlerie", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Sheets("suivi").Range("A" & numlig7).Offset(1, 0).EntireRow.Insert Shift:=xlDown
Sheets("suivi").Range("A65536").End(xlUp).EntireRow.Cut Range("A" & numlig7).Offset(1, 0)
End If
Sheets("accueil").Select
Unload UserForm1
End Sub
OOoForum
Messages postés
3871
Date d'inscription
jeudi 20 mars 2008
Statut
Membre
Dernière intervention
10 juin 2024
960
20 janv. 2010 à 12:30
20 janv. 2010 à 12:30
Franchement, balancer 200 lignes de code en disant "ça marche pas"...
Pourquoi ne pas joindre un fichier contenant votre macro afin que l'on puisse tester ?
Pourquoi ne pas joindre un fichier contenant votre macro afin que l'on puisse tester ?
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 369
20 janv. 2010 à 12:40
20 janv. 2010 à 12:40
Parce que c'est un fichier que j'ai créé pour mon entreprise et il contient des données à caractère "privées" mais j'en fait une copie vierge et vous le joint.
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 369
20 janv. 2010 à 12:48
20 janv. 2010 à 12:48
Problème d'accès sur cijoint.fr. IE ne peut afficher la page quand je dépose mon dossier.
Possibilité de l'envoyer par mail. Intéressé de jeter un oeil pour m'aider?
Possibilité de l'envoyer par mail. Intéressé de jeter un oeil pour m'aider?
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 369
21 janv. 2010 à 11:55
21 janv. 2010 à 11:55
Je crois avoir compris ce qui ne va pas:
Regardez cette ligne de code:
Sheets("suivi").Select
Dim o As Integer
o = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("A" & o) = Sheets("données").Range("n1")
Range("B" & o) = Sheets("données").Range("o1")
Range("C" & o) = Sheets("données").Range("x1")
Range("D" & o) = Sheets("données").Range("u1")
Range(Cells(o, 1), Cells(o, 4)).Borders.Weight = xlThin
Range("C" & o).Select
Call Colour
Mon o renvoie à chaque fois à la dernière ligne vide de la colonne A or la les contours doivent êtres appliqués de A à D et la couleur en C
Comment corriger l'erreur?
Regardez cette ligne de code:
Sheets("suivi").Select
Dim o As Integer
o = Range("a65536").End(xlUp).Offset(1, 0).Row
Range("A" & o) = Sheets("données").Range("n1")
Range("B" & o) = Sheets("données").Range("o1")
Range("C" & o) = Sheets("données").Range("x1")
Range("D" & o) = Sheets("données").Range("u1")
Range(Cells(o, 1), Cells(o, 4)).Borders.Weight = xlThin
Range("C" & o).Select
Call Colour
Mon o renvoie à chaque fois à la dernière ligne vide de la colonne A or la les contours doivent êtres appliqués de A à D et la couleur en C
Comment corriger l'erreur?