Re : Besoin d'aide pour macro listing mise a jour auto
Publié par maximebart le 24/07/2014 09:48:09
Bon j'ai trouvé comment faire tout cela, ce qu'il me manque c'est d'integrer une fonction qui me permettrai d'ignores les cellules vides dans la colonne TAG, la misa a jour auto, et la mise a jour auto.
Public Sub MacroLast()
Dim NameSheet As String
Dim Sheetx As String
Dim y As Integer
Dim x As Integer
Dim Trouvé As Boolean
Dim deli As Long, i As Long
10 Trouvé = False
20 y = 1
30 Do
'Boucle tant que le compteur "x" est inférieur à 200
40 Do While x < 20
'Appele la macro de test
50 ActiveCell.Select
60 If ActiveCell.Value = "" Then
70 ActiveCell.Offset(1, 0).Select
80 Else
'incrémente "x" de 1 à chaque fois
90 x = x + 1
100 ActiveCell.Select
110 Selection.Copy
120 Sheets.Add after:=Worksheets(Worksheets.Count)
130 NameSheet = "Exemple" + CStr(y)
140 ActiveSheet.Name = NameSheet
150 Sheetx = ActiveSheet.Name
160 Range("A1").Select
170 ActiveSheet.Paste
180 Sheets("Feuil1").Select
190 ActiveCell.Offset(0, 1).Select
200 Application.CutCopyMode = False
210 Selection.Copy
220 Sheets(Sheetx).Select
230 Range("B1").Select
240 ActiveSheet.Paste
250 Sheets("Feuil1").Select
260 ActiveCell.Offset(0, -1).Select
270 ActiveCell.Offset(1, 0).Select
280 y = y + 1
290 End If
'vérifie le contenue de la cellule dans la colonne
300 If Cells(x, 1) = "FINISH" Then
'Attribut la valeur Vrai si le mot est trouvé
310 Trouvé = True
'Anticipe la sortie de la boucle
320 Exit Do
330 End If
340 Loop
350 Loop Until Trouvé = True Or x = 20
End Sub
Ce message est de : http://excel.veriti.net/modules/newbb/viewtopic.php?post_id=442