annee 2017

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

Image 1

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Image 2

Musee

Visitez le "Musee VeriTi" 24h/24 - 7j/7, des "pepites" vous y attendent

Voir la suite
Image 3

Hommage

Thierry POURTIER alias 'Ti'
s'en est alle brutalement le samedi 13 novembre 2010...

Voir la suite
Image 4

Historique

Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel

Voir la suite

Membre

+ Enregistrement
Message du rapport :*
Code de Confirmation*
2 + 3 = ?  
Entrez le résultat de l'expression
Maximum de tentatives que vous pouvez essayer : 10
 

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

Copyright 2013 Powered by XOOPS © 2001-2013