[VBA-E]Travail sur cellules fusionnées

Version imprimable

27/09/2006, 17h19
AUPEDUO

[VBA-E]Travail sur cellules fusionnées

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
27/09/2006, 18h13
bidou

avec quel code ?
28/09/2006, 08h25
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
28/09/2006, 08h51
AlainTech

Citation:

Envoyé par AUPEDUO

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.

Voici la macro :

Code:

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

28/09/2006, 10h15
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
28/09/2006, 11h35
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. 8O