Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel mise à jour de clonnes

mise à jour de clonnes

3 réponses
Avatar
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
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
karghyl
On 30 oct, 11:32, andre wrote:
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
Avatar
andre
Merci je vais corriger et je reviens pour dire
On 30 oct, 11:32, andre wrote:



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
Avatar
andre
helas
pas de changement
une autre solution à proposer
bonne soiree
On 30 oct, 11:32, andre wrote:



--
andre