EXCEL ANNEE 2017
L'heure est venue de vous presenter
Une excel et bonne annee 2017 !
De la part de toute l equipe de VeriTi
| Re : Besoin d'aide pour macro listing mise a jour auto |
Objet : Re : Besoin d'aide pour macro listing mise a jour auto par maximebart sur 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 |