TE = Feuil3.ListObjects(1).Range.Value
ReDim TR(1 To 50, 1 To 26)
InitialiserMiseEnPage Feuil2.[B134], 39, 5
LE = 1
Do:
TR(1, 1) = UCase("Liste des outils")
LR = 6: For C = 1 To 4
TR(LR - 4, Choose(C, 1, 24, 25, 26)) = Choose(C, "Outil", "position", "taille", "couleur")
Next C
Do: LR = LR + 1
For C = 1 To 4
TR(LR - 4, Choose(C, 1, 24, 25, 26)) = TE(LE, C)
Next C
LE = LE + 1: Loop Until LE > UBound(TE, 1)
Set Rng = PlageSuivante(TR, LR)
LTot = Rng.Rows.Count + 1
Rng(LTot - 3, 1).Value = "• Position : droit ou plat"
Rng(LTot - 2, 1).Value = "• Taille : en cm"
Rng(LTot - 1, 1).Value = "• couleur : couleur de l'objet"
Rng(LTot, 1).Value = "• couleur2 : couleur de l'objet"
Loop Until UBound(TE, 1)
ReDim TR(1 To 100, 1 To 26)
LE = 2
TR(1, 1) = UCase("Images particuliéres")
Set Rng = PlageSuivante(TR, LR)
LTot = Rng.Rows.Count + 1
If Range("AC27") = True Then
Range("AF27").Copy
Rng(4, 25).PasteSpecial xlPasteValues
Rng(6, 24).activSheet.Pictures("arbre").Value
End If
ReDim TR(1 To 100, 1 To 26)
LE = 2
TR(1, 1) = UCase("Images particuliéres")
Set Rng = PlageSuivante(TR, LR)
LTot = Rng.Rows.Count + 1
Sheets("Feuil2").Shapes("Image 5").Copy: Rng.Workseet.Paste: With Rng.Worksheet.Shapes(Rng.Worksheet.Shapes.Count): .Left = Rng(6, 8).Left:
End With
ReDim TR(1 To 100, 1 To 26)
LE = 2
TR(5, 1) = UCase("Images particuliéres")
Set Rng = PlageSuivante(TR, LR)
LTot = Rng.Rows.Count + 1
If Range("AC27") = True Then
Sheets("Feuil2").Shapes("Image 5").Copy
Rng.Worksheet.Paste
With Rng.Worksheet.Shapes(Rng.Worksheet.Shapes.Count)
.Left = Rng(10, 21).Left
End With
Range("AF27").Copy
Rng(10, 8).PasteSpecial xlPasteValues
End If