Bonjour,

J'ai essayé d'automatiser le formatage de mes cellules en fonction du type de données contenu dans mes cellules, et à la condition que le nom de ma feuille respecte un critère: qu'elle commence par "PO".

Voici le code que j'ai élaboré, et qui ne fonctionne pas.
Je ne comprends pas pourquoi il ne fonctionne pas, ce qui est encore plus frustrant...! Je me dis que je dois passer à côté de quelque chose...

Voici le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub cellulesnumeriques()
 
Dim plagecible As Range, cellule As Range
Dim i As Integer, j As Integer
 
Set plagecible = Range("A8:I21")
i = Application.Worksheets.Count
 
 
For j = 1 To i
 
   If Left(Sheets(j).Name, 2) = "PO" Then
   Sheets(j).Select
      For Each cellule In plagecible
         If Not IsNumeric(cellule) Then
         cellule.ClearContents
         End If
      Next cellule
   End If
Next j
 
End Sub
But de la macro: 1)ne travailler que dans les feuilles dont le nom commence par "PO"
2) Dans une plage définie nommée plagecible, effacer systématiquement les données non numériques qui peuvent être dans les cellules.


Merci d'avance pour votre aide...!


Spoutnik