Bonjour à tous, j'ai besoin de votre aide svp
J'ai un tableau qui contient des lignes (Dépenses prévisionnelles, dépense réelles, écart) avec une mise en forme conditionnelle pour la ligne écart, les colonnes représentent les mois de l'année.
J'ai affecté une macro qui ajoute un nombre de ligne n entré par l'utilisateur à partir d'un tableau modèle dans une feuille à part.
NB: dan ma logique une ligne contient dépenses prévisionnelles, dépense réelles, écart.
Le problème c'est que ça me copie la mise en forme conditionnelle sur toutes les lignes alors que ça doit être seulement appliqué à la ligne écart.
voici mon code:
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
26
Sub Depenses_Bouton1_Clic()
 
On Error Resume Next
Application.ScreenUpdating = False
Dim w As Worksheet
Dim i As Integer
Dim nombre As Integer
Set w = Worksheets("Depenses")
nombre = InputBox("Veuillez saisir le nombre de ligne à ajouter entre 1 et 5")
If nombre > 0 And nombre < 6 Then
i = 0
While i < nombre
 
 Worksheets("Modèle").Rows("1:3").Copy                                                        'Copier les lignes à ajouter à partir de la feuille modèle
    With w
 
        .Rows(.Cells(.Rows.Count, 1).End(xlUp).Row + 1).Insert Shift:=xlDown                   'Insérer des lignes à partir de la cellule active
    End With
    i = i + 1
    Wend
 
    Else: MsgBox ("veuillez entrer un nombre entre 1 et 5")
    End If
Application.ScreenUpdating = True
Set w = Nothing
End Sub
Merci d'avance