Macro Résolu

Question

Salut à tous,

Range ("A" & o), Range("d" & o).Select

Cette formule est fausse. Pourquoi?

(je cherche à sélectionner les cases A,B,C et D à la ligne "o"

michel_m · Answer

bonjour
range("A" & o & ":D" & o).select
ou range(cells(o,1),cells(o,4)).select

Farfadet88 · Answer

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

michel_m · Answer

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%

Farfadet88 · Answer

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

michel_m · Answer

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.

Farfadet88 · Answer

Ok merci quand même

Quelqu'un d'autre? ;)

michel_m · Answer

Avant de partir

petite demo sur le contour qui marche
https://www.cjoint.com/?btnAxx8cel

Farfadet88 · Answer

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

Farfadet88 · Answer

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

OOoForum · Answer

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 ?

Farfadet88 · Answer

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 · Answer

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?

Farfadet88 · Answer

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?

Macro

13 réponses

Discussions similaires

Newsletters