Discussion :

[AUPEDUO]

Bonjour à tous,

je recherche de l'aide concernant une macro qui effacerait certaines cellules sur une feuilles. En fait, toutes les cellules avec un fond jaune doivent être remise à 0. Cela ne me poserait pas de problème si dans ma feuille je n'avais pas de cellules fusionnées.

Ma macro ne fonctionne plus dès qu'elle se retrouve sur des cellules fusionnées.

Je suis preneuse de toutes les idées.

Merci par avance.

AUPEDUO

[bidou]

avec quel code ?

[AUPEDUO]

Désolée, mais je suis novice sur VB et sur le forum.

Qu'est ce tu entends par code?

Je travaille sur VB Excel

[AlainTech]

Ma macro ne fonctionne plus dès qu'elle se retrouve sur des cellules fusionnées.

Copie-nous ta macro dans un message en l'entourant de balises [code].
Pour les balises, c'est le bouton # au dessus de l'éditeur.

[AUPEDUO]

Voici la macro :

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
23
24
25
26
27
Sub Zap()
 
Dim monclasseur As Workbook
Dim mafeuille As Worksheet
Dim maPlage As Range
 
 
Set monclasseur = ThisWorkbook
Set mafeuille = monclasseur.Sheets("BD CIBLE")
Set maPlage = mafeuille.Range("A1:I158")
 
 
 
For i = 1 To maPlage.Cells.Count
 
If maPlage.Cells(i).Interior.ColorIndex = -4142 Then
       maPlage.Cells(i).ClearContents
 
ElseIf maPlage.Cells(i).Interior.ColorIndex = 34 Then
       maPlage.Cells(i).ClearContents
Else
 
    End If
 
Next i
 
End Sub

[ouskel'n'or]

Bon, le pb provient du fait qu'Excel semble ne pas reconnaître la cellule "de droite" dans une cellule fusionnée (je croyais le contraire mais comme je n'ai pas essayé...)
Tu as deux méthodes pour pallier le problème :
La méthode rapide (bourrin) avec une gestion d'erreur avec un "On error resume next" placé avant ta boucle
et la méthode soft qui est plus complexe car elle consisterait à identifier les cellules avant de faire ton test. Tu as un exemple là : http://www.developpez.net/forums/sho...ght=fusionn%E9
Quant à moi, j'utiliserais la gestion d'erreur
Tu dis

[AUPEDUO]

Merci pour les tuyaus, mais en fait je viens de m'apercevoir que j'ai un autre problème.

En fait celui qui a conçu la feuille Excel a appliqué une mise en forme conditionnelle sur les cellules.

Voici les conditions :
si la cellule est vide, alors la couleur de la cellule est verte,
si la cellule a une valeur, alors la couleur de la cellule est jaune.

Quand j'execute ma macro, elle ne fait pas de différence. Elle efface toutes les cellules, même celles qui n'ont pas de couleur pour le font.

J'espère me faire comprendre.