Impossible de modifier une cellule fusionnée

Version imprimable

1 pièce(s) jointe(s)

Bonjour tout le monde,

SVP Je n'arrive pas à résoudre un problème de celluls dans feuilles excel

je voulais initialiser un Userform en vidant des cellules sur une feuille Excel mais le problème c que ces cellules ne sont pas toutes de la même taille
et jobtiens ce message d'erreur

je me demande déjà si cette écriture de range(" : ") est valable ou non sur Userform ??
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub UserForm_Initialize() ' reinitialiser Macro ' ' Touche de raccourci du clavier: Ctrl+a ' Sheets("5SProd").Range("C10:E29").ClearContents Sheets("5SProd").Range("F35:F39").Interior.ColorIndex = 2 Sheets("5SProd").Range("F3:F6").ClearContents .....
Remarque : ("C10:E29") sont de la même taille
("F35:F39")sont de la même taille
("F3:F6") sont de la même taille

Bonjour,

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
Sub EffacerLesCellules()
 
 Dim CelluleAEffacer As Range
 
     With Sheets("5SProd")
 
          For Each CelluleAEffacer In .Range("C10:E29")
              If CelluleAEffacer.MergeCells = True Then
                 CelluleAEffacer.MergeArea.ClearContents
              Else
                 CelluleAEffacer.ClearContents
              End If
          Next CelluleAEffacer
 
          .Range("F35:F39").Interior.ColorIndex = 2
 
          For Each CelluleAEffacer In .Range("F3:F6")
              If CelluleAEffacer.MergeCells = True Then
                 CelluleAEffacer.MergeArea.ClearContents
              End If
          Next CelluleAEffacer
 
     End With
 
End Sub

Cordialement.

03/04/2015, 11h32
Invité

Bonjour,

Avez-vous lu le message modifié ce matin ?

Cordialement.
03/04/2015, 12h19
rihab92

Bonjouuuur Ce problème est résolu en appelant une macro que j'ai déjà réalisé sur un module call macro :mouarf:

N.B: ces cellules ne sont pas fusionnées juste sont de taille différente , je ne sais pas pourquoi ils disent que c'est fusionné :weird:

En tout cas merciiiii