Discussion :

[spoutnikk]

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

[sabzzz]

bonjour spoutnikk,

essai comme ça,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each cellule In ActiveSheet.Range(plagecible.Address)

ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each cellule In ActiveSheet.Range("A8:I21")

[spoutnikk]

Bonjour Saabzz,

Merci, ca fonctionne nickel..! Peux tu m'expliquer la nuance entre ta proposition et la mienne: je ne comprends pas pourquoi la commande "For each cellule in plagepo" ne fonctionnait pas.

Merci

[sabzzz]

bonjour spoutnikk,

en attribuent la référence de cette façon,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set plagecible = Range("A8:I21")

tu sous entend d'attribuer la variable objet à Activesheet.Range("A8:I21")