mise à jour de clonnes

Le
andre
Bonjour,
j'ai le code suivant dans une feuille
le probleme est que lorsque je supprime une ligne ou que j'efface des
donnees , je remonte le tableau je perds la mise en forme des colonnes
comment faire rapide pour remettre cette mise en forme merci a vous
tous
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Sheets("2009").Select '
On Error Resume Next
If Target.Value = "P" Then
Target.Interior.ColorIndex = 4
Target.Font.ColorIndex = 5
Target.Font.Bold = True
End If

If Target.Value = "E" Then
Target.Interior.ColorIndex = 6
Target.Font.ColorIndex = 3
Target.Font.Bold = True
End If

If Target.Value = "A" Then
Target.Interior.ColorIndex = 20
Target.Font.ColorIndex = 1
Target.Font.Bold = True
End If

If Target.Value = "V" Then
Target.Interior.ColorIndex = 43
Target.Font.ColorIndex = 1
Target.Font.Bold = True
End If

If Target.Value = "C" Then
Target.Interior.ColorIndex = 24
Target.Font.ColorIndex = 1
Target.Font.Bold = True
End If
Application.ScreenUpdating = True

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

--
andre
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
karghyl
Le #17692631
On 30 oct, 11:32, andre
Bonjour,
j'ai le code suivant dans une feuille
le probleme est que lorsque je supprime une ligne ou que j'efface des
donnees , je remonte le tableau je perds la mise en forme des colonnes
comment faire rapide pour remettre cette mise en forme  merci a vous
tous
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
   Sheets("2009").Select   '
       On Error Resume Next
        If Target.Value = "P" Then
        Target.Interior.ColorIndex = 4
        Target.Font.ColorIndex = 5
        Target.Font.Bold = True
        End If

        If Target.Value = "E" Then
        Target.Interior.ColorIndex = 6
        Target.Font.ColorIndex = 3
        Target.Font.Bold = True
        End If

        If Target.Value = "A" Then
        Target.Interior.ColorIndex = 20
        Target.Font.ColorIndex = 1
        Target.Font.Bold = True
        End If

        If Target.Value = "V" Then
        Target.Interior.ColorIndex = 43
        Target.Font.ColorIndex = 1
        Target.Font.Bold = True
        End If

        If Target.Value = "C" Then
        Target.Interior.ColorIndex = 24
        Target.Font.ColorIndex = 1
        Target.Font.Bold = True
        End If
  Application.ScreenUpdating = True

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Calculate
End Sub

--
andre




Bonjour,

c'est parce que lors de la suppression de colonne, la sélection
correspond à plusieurs cellules, et non à une seule. Donc Target.value
n'est pas égal à "P", ou "A", ou ...

Avant l'application des formats, vous pouvez conditionner

If Target.Cells.Count > 1 Then
Exit Sub
End If
andre
Le #17693931
Merci je vais corriger et je reviens pour dire
On 30 oct, 11:32, andre


Bonjour,

c'est parce que lors de la suppression de colonne, la sélection
correspond à plusieurs cellules, et non à une seule. Donc Target.value
n'est pas égal à "P", ou "A", ou ...

Avant l'application des formats, vous pouvez conditionner

If Target.Cells.Count > 1 Then
Exit Sub
End If



--
andre
andre
Le #17695611
helas
pas de changement
une autre solution à proposer
bonne soiree
On 30 oct, 11:32, andre


--
andre
Publicité
Poster une réponse
Anonyme