Discussion :

[NEC14]

Bonjour le forum,

Voilà, dans une feuille de calcul, la cellule A4 est nommée "an".
Je souhaite que lorsque je modifie celle-ci, toutes les cellules se trouvant dans la zone B6:GC50 des feuilles "1T" "2T" "3T" et "4T" soient effacée de leur contenu, c'est à dire enlever la couleur et le texte.
Je souhaiterai faire cela en Vba biensûr, j'ai essayé avec SélectionChange mais sans succès.
Pouvez-vous m'aider à mettre se code en place s'il vous plait ?
Merci par avance

[drakkar_agfa]

Bonjour,

Essais avec

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
 
End Sub

Il s'active au changement d'une cellule (pas la sélection mais le contenu).

As-tu d'autres problèmes?
(pour le range, pour les feuilles?)

[casefayere]

Bonjour,
J'ajouterais à drakkar, pour avancer :

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
target = range("a4")
End Sub

[NEC14]

Bonjour,

Merci pour votre début de réponse, mais je n'arrive pas à sélectionner les cellules "B6:GC50" des feuilles 1T, 2T, 3T, 4T est en supprimer le contenu comme indiqué dans mon premier post

[Invité]

Bonjour,

Pour la feuille contenant la cellule à modifier vous pouvez essayer ce code :

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 4 And Target.Column = 1 Then
Call Vider
Exit Sub
End If
End Sub

Ensuite dans un module le code suivant :

Code :

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

1
2
3
4
5
6
7
8
Sub Vider()
For i = 1 To 4
Sheets(CStr(i) & "T").Select
Range("B6:GC50").Select
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Next i
End Sub

[NEC14]

L'effacement fonctionne bien, mais par contre il bug sur ce code sur la ligne en gras. Je ne comprends pas.

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim COL As Long
Dim LIG As Long
Dim A As Long
    If Intersect(Range("B6:FY50"), ActiveCell) Is Nothing Then Exit Sub
        If IsEmpty(ActiveCell.Value) Then
    LIG = 4
    COL = ActiveCell.Column
    A = Cells(LIG, COL).Value
        If A = 0 Then COL = COL - 1
        If Weekday(Cells(LIG, COL).Value, 2) < 6 Then
        If IsNumeric(Application.Match(Cells(LIG, COL), Sheets("Don").Range("fériés"), 0)) Then Exit Sub
    End If
    Unload UserForm1
    Load FrmAbs
    FrmAbs.Show
    End If
End Sub

[laetitia]

bonjour le fil le forum tu peus faire peut etre comme cela !!!

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim COL As Long
Dim LIG As Long
Dim A As Long
Dim P As Range
 Set P = Range("b6:fy50")
If Application.WorksheetFunction.CountA(P) = 0 Then Exit Sub
ect....

[NEC14]

Bonjour Laëtitia,

Super ça marche, merci beaucoup.