Discussion :

[naozumi8]

Bonjour à tous,

J'ai un souci au lancement de mon code, cela m'indique : Variable objet ou variable de bloc with non définie
Cela semble lié a la ligne :



J'avoue ne pas en comprendre la raison et que faire, si vous pouviez m'aider ?
Merci d'avance à vous

[jurassic pork]

Hello,
essaie :

Code :

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

For Each numCell In ws.Range("A2:A" & CStr(lastRowGlobal))

ou alors

Code :

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

Dim numCell

sans préciser as Range

Ami calmant, J.P

[naozumi8]

Hello,
essaie :

Code :

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

For Each numCell In ws.Range("A2:A" & CStr(lastRowGlobal))

ou alors

Code :

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

Dim numCell

sans préciser as Range

Ami calmant, J.P

Malheureusement cela ne change rien peu importe la solution

[mach1974]

Bonjour,
Il faut ajouter Set ws = nom de la feuille car ws n'est pas identifié

[naozumi8]

Bonjour,
Il faut ajouter Set ws = nom de la feuille car ws n'est pas identifié

C'est pourtant le cas :

Set ws = ThisWorkbook.Sheets("Global")

[Valtrase]

Salut,
Quelques réflexions :

Code :

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

 ActiveSheet.Name = "Global"

Ceci peu amener à des résultats inattendus. Si tu a créé un feuille en amont nommes-la lors de la création.

Code :

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

Cells.Select

Idem pour cela

Code :

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

If ActiveCell.Row <> lastRow Then

Ici tu déclares lastRow au niveau de la procédure et tu ne l'a pas affecter il est donc toujours égal à 0, l'utilisation de Activecell peut aussi provoquer des résultats inattendus.

Code :

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

Set ws = ThisWorkbook.Sheets("Global")

Ici tu affecte la variable ws c'est bien , mais plus bas tu utilises

Code :

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

Cells.Select

Là encore des résultats inattendus peuvent arrivés préfère lui

Code :

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

ws.Cells.Select

Et encore mieux null besoin de faire des Select.

Code :

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

Columns("B:B").ColumnWidth = 6#

Code :

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

1
2
3
4
    Dim sheetOld As Worksheet
    On Error Resume Next
    Set sheetOld = ThisWorkbook.Sheets("OLD")
    On Error GoTo 0

Ce n'est pas une bonne habitude que d'utiliser On Error pour ce type de contrôle, plus haut tu as fait une boucle tu peux refaire la boucle pour vérifier sa présence ou mieu te créer une fonction.

Code :

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

Set wsGlobal = ThisWorkbook.Sheets("Global")

Ici tu affectes une variable wsGlobal à la feuille "Global" alors que ws fait déjà référence à cette feuille.

Code :

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

lastRowGlobal = wsGlobal.Cells(wsGlobal.Rows.Count, "A").End(xlUp).Row

Puisque la feuille Global contient un tableau structuré utilises les outils adaptés aux tableaux structurés

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
    Dim MonTableau As ListObject    Set MonTableau = ThisWorkbook.Worksheets.Item("Global").ListObject
    With MonTableau
        Debug.Print .ListRows.Count        'Nombre de lignes
 
        Dim IDCell As Range
        For Each IDCell In .ListColumns.Item("ID").DataBodyRange        'boucle sur les cellules de la colonne "ID"
            Debug.Print IDCell.Value
        Next IDCell
 
        Dim NewRow As ListRow
        Set NewRow = .Add        'Ajoute une ligne à la fin
        With NewRow
            .Range(MonTableau.ListColumns("Total").Index).Value = 100        'Utilisation du nom de la colonne plus explicite que Range("B" & LastRow)par exemple
        End With
    End With

Bon et là je ne vais pas plus loin car j'ai du wsGlobal, ws, wsOld

Pour ton erreur je pense que tu dois faire un nettoyage au niveau de tes affectations. ws, wsGlobal et wsOld et supprimer celles qui ne sont plus nécessaires. en les passant à Nothing.

[Franc]

Bonjour, je vois que tu utilises plusieurs fois l'instruction Set mais les variables n'ont pas été déclarées auparavant, par exemple Set commentairesRangeGlobal...
Tu devrais activer Option Explicit, ça t'évitera pas mal d'erreurs par la suite.
Je constate aussi que tu affectes la même feuille à 2 variables:

Set ws = ThisWorkbook.Sheets("Global") et Set wsGlobal = ThisWorkbook.Sheets("Global")

[Valtrase]

Re,
Je vois que tu boucles sur ws

Code :

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

1
2
3
4
    For Each ws In ThisWorkbook.Sheets        If ws.Name <> "OLD" Then ' Exclure la feuille "OLD"
            SurlignerEnAttente ws
        End If
    Next ws

Sait-tu sur quelle feuille s'est arrêtée la boucle ?
ensuite tu essais de faire une autre boucle

Code :

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

For Each numCell In ws.Range("A2:A" & lastRowGlobal)

Mais tu n'est peut-être pas sur la bonne feuille... Il te faut un peu plus de rigueur dans ta programmation.

[naozumi8]

Ok, après analyse, si je résous une erreur, cela en génère d'autre, j'ai donc 2 possibilités : réparer chaque erreur apparaissant, ou intégrer différemment

Mon code suivant fonctionne bien :


Du coup au lieu d'appeler cette macro, est il possible de l'intégrer a mon code existant ?
en sachant que je voudrais que cette colorisation s'effectue après les autres vu que je la veux dominante