Re : Macro - creation date a partir du nom de fichier
Tototiti2008, merci pour ces remarques et corrections. En fait, j'ai utilise les informations sur le lien ci-dessous concerant l'utilisation de la fonction IsNumber :
Excel ISNUMBER Function - Excel Wiki
Avec la ligne " ISNUMBER(FIND("PUMP",.Cells(z, 4).Value ,1))=TRUE Then .Rows(z).Delete" , je cherche a supprimer les lignes pour lesquelles la colonne D contient la chaine de caractere "PUMP". Existe-t-il une syntaxe plus simple ?
Pour memoire, avec la macro ci-dessous, je cherche a rajouter une colonne "date" dans chaque page puis effacer les lignes qui repondent a l'une de ces conditions:
colonne A=0
(ou) colonne B et colonne C egales a zero
(ou) colonne D contient le texte "PUMP"
Je continue a bugger sur la section en rouge. Quelqu'un pourrait-il m'eclairer sur l'origine du pb ?
Sub Macro1()
Dim x As Byte 'déclare la variable x
Dim y As Byte 'déclare la variable y
Dim mois As String 'déclare la variable mois
Dim an As String 'déclare la variable an
an = Mid(Right(ThisWorkbook.Name, 8), 1, 4) 'définit la variable an
For x = 1 To 12 'boucle 1 : sur les 12 onglets
mois = CStr(x) & "/" 'définit la variable mois
Sheets(x).Select 'sélectionne l'onglet
Range("E1").Value = "Date" 'édite "Date" dans la cellule A1 (peut-être pas nécessaire ???)
rn = .Range("A65536").End(xlUp).Row
For y = rn To 2 Step -1
Cells(y, 5).Value = CDate("01/" & mois & an) 'place la date dans la cellule
If (.Cells(y, 1).Value = 0) OR (.Cells(y, 2).Value = 0 AND .Cells(y, 3).Value = 0) OR (ISNUMBER(FIND("PUMP",.Cells(y, 4).Value ,1))=TRUE) Then .Rows(y).Delete
Next y 'prochaine cellule de la boucle 2
Next x 'prochain onglet de la boucle 1
End Sub