Sub GenererCertifsA()
Dim i&, ws As Worksheet
Set ws = Feuil5
Application.ScreenUpdating = False
ws.Columns(1).Clear: ws.Columns(1).ColumnWidth = 117.86
With Sheets("Base")
j = ws.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To .Cells(Rows.Count, 1).End(3).Row
[CERTIF].Item(19) = .Cells(i, "J")
[CERTIF].Item(25) = .Cells(i, "C")
[CERTIF].Item(30) = .Cells(i, "A")
If Len(.Cells(i, "I")) > 1 Then
[CERTIF].Item(33) = "Avec: " & .Cells(i, "I").Text
End If
[CERTIF].Copy ws.Cells(j, 1)
Application.CutCopyMode = False
j = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
Next
End With
End Sub
Sub IndicesOuPas()
Dim t, i&, test$
[A1] = "Item1": [A1].AutoFill [A1:D1]
[A2:D7].FormulaR1C1 = "=CHAR(64+COLUMN())&ROW()"
For i = 2 To 6 Step 2
t = Cells(i, 1).Resize(2, 4)
test = t(1, 1) & Chr(13) & t(1, 2) & Chr(13) & t(1, 3) & Chr(13) & t(1, 4) & Chr(13) & _
t(2, 1) & Chr(13) & t(2, 2) & Chr(13) & t(2, 3) & Chr(13) & t(2, 4)
MsgBox test
Erase t
Next
End Sub