Bonjour, Voici une autre débutante à la recherche d'une solution pour ma macro de mise en forme de budget. Ci-dessous le 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
 Dim ws As Worksheet
 'rafraîchissement de la page pour faciliter l'execution de la macro
Application.ScreenUpdating = False
 
'déclaration variables pour itération sur la feuille d'après le résultat DligneVid
Dim CellBud As Integer
Dim DligneBud As Range
CellBud = 1
Set DligneBud = Range("A" & Rows.Count).End(xlUp)
 
    For CellBud = DligneBud To 1 Step -1
        If Cells(CellBud, 1) = "NETTOYAGE" Or "ELIMINATION DES DECHETS" Or "FONCT & ENTRETIEN IMMEUBL" Then
           If Cells(CellBud, 1) = "LIAISONS MECANIQUES" Or "ESPACES VERTS" Or "SECURITE INCENDIE" Then
              If Cells(CellBud, 1) = "SURVEILLANCE" Or "CLIMATISATION PARTIES COM" Or "FONCTIONNEMENT GENERAL" Then
                If Cells(CellBud, 1) = "ETAT ET COLLECTIVITES" Or "HONORAIRES" Or "RECETTES" Then
                    If Cells(CellBud, 1) = "PRIVATIFS" Or "CHARGES NON RECURRENTES" Then
                       Cells(CellBud, 12).Value = Cells(CellBud, 1).Value
                    End If
                End If
              End If
           End If
        End If
    Next CellBud
Avec ce code j'obtiens : Erreur d’exécution '13": "incompatibilité de type"
Pourriez vous me recommander lecture pour le résoudre ou me dire ce qui ne va pas?

Bien cordialement,
Victoria