Discussion :

[greg hanssen]

Bonjour,

Ce code demande l'insertion de ligne que l'utilisateur à sélectionné, à la suite de ça j'aimerai que le code me colorie certaines cellules ( à définir) de la ligne inséré ( elle est aléatoire ) donc ex un range ( A1) ne peux pas être utilisé ici car la ligne peut ce trouver n'importe ou.
Le bout de code doit être à la ligne "'Insérer une couleur aux cellule à renseigner"
Merci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim response As VbMsgBoxResult

'Vérifier si l'utilisateur a cliqué sur une ligne entière
If Target.Rows.Count = 1 And Target.Columns.Count > 1 Then 'Exit Sub

'Demander à l'utilisateur de confirmer l'insertion de la line
response = MsgBox("Do you want to insert a new row above the line " & Target.Row & "?", vbYesNo + vbQuestion, "Insert a row")

'Insérer une nouvelle ligne si l'utilisateur a cliqué sur le bouton OUI
If response = vbYes Then
Rows(Target.Row).Insert Shift:=x1Down

'Insérer une couleur aux cellule à renseigner

Range(?).Interior.ColorIndex = 45

'Afficher une boîte de dialogue pour informer l'utilisateur que les champs de la ligné ajoutée sont à remplir
MsgBox "You have just added a row. Please manually fill in all fields of the added row and extend formulas. (From column D to column T)", vbInformation, "Empty fields detected"
End If
End If


End Sub

[Alex020181]

Bonjour,

Tu as déjà compris qu'il fallait accéder à la cellule que tu veux colorer avec une syntaxe du type

Code :

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

Range(?).Interior.ColorIndex = 45

Tu as également déjà compris comment isoler ton numéro de ligne précédent (donc celle que l'utilisateur a sélectionnée)

Code :

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

Target.Row

Ce sont 2 notions que tu utilises déjà.

Toi ce que tu veux c'est travailler sur la ligne d'en dessous. Il te suffit donc d'ajouter 1 au numéro de la ligne sélectionnée

Code :

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

Range("A" & Target.Row + 1).Interior.ColorIndex = 45

Ce qui te donne une modification de la couleur de ta cellule de la ligne sélectionnée + 1.

On peut reparler du reste du code mais pour ta question précise c'est tout ce que tu as à faire.

Teste et dis nous.

[Franc]

Salut, si j'ai bien compris, l'information qui te manque c'est la ligne qui a été insérée.
Disons que tu veux colorier la cellule B de ta nouvelle ligne, tu peux ajouter:

Code :

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

1
2
3
4
5
6
            'Obtenir le numéro de la ligne insérée
            Dim insertedRow As Long
            insertedRow = Target.Row
 
            'Colorier la cellule B de la ligne insérée
            Cells(insertedRow, "B").Interior.ColorIndex = 45

[greg hanssen]

Merci pour vos réponses les deux codes fonctionnent

[greg hanssen]

Est-il possible d'enlever la couleur automatiquement dès lors que la personne la remplis ?
merci

[Alex020181]

Tu as 2 solutions qui pourraient approcher ta demande:
- les mises en forme conditionnelles (directement dans le menu Excel pas besoin de VBA)
- du code VBA mais positionné dans les événements de la feuille (sur "On change" par exemple) et pas dans un module standard. Cela s'appelle une macro événementielle.

Ces 2 possibilités t'offrent trop de possibilités pour te les décrire ici. Je te laisse avec Google pour le coup.