Discussion :

[rihab92]

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 vba :

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

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

[Invité]

Bonjour,

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
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.

[Invité]

Bonjour,

Avez-vous lu le message modifié ce matin ?

Cordialement.

[rihab92]

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

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é

En tout cas merciiiii