Variable objet ou variable de bloc with non définie

Version imprimable

Voir 40 message(s) de cette discussion en une page

15/12/2023, 13h20
naozumi8

Complements

Citation:

Je ne sais pas d'où proviennent les données de WorkSheet(1). Mais à mon avis ce n'est pas ici que tu dois nommer la feuille, si tu obtiens les données d'ailleurs alors tu dois nommer la feuille à sa création.

Le fichier proviens d'un extract de données donc la feuille s'appelle : Page 1, mais c'est pas très explicite, je la renommes Global car cette feuille comprends toutes les données.
la feuille OLD c'est pour y coller la feuille Global du dernier extract que j'avait commenté (Colonne M)

Apres ce script sera utilisé par des collègues a moi aussi, qui comprennent encore moins que moi le développement, donc effectivement, il est simple de ne plus se souvenir que la colonne B correspond à Service

Citation:

Si tu veux que l'on t'aide il faut déjà que tu décrive bien le sujet, car là avec des ws, wsGlobal, wsOld et autres on est un peu perdu.

ws pour Workheet donc pour les feuilles et Global pour la feuille Global, OLD pour la feuille OLD

Citation:

Heu là .Cells comprends toutes les lignes y compris .UsedRange non ?

Je suis pas sur de comprendre mais je vais etudier ce que je peux faire avec .Cells

Citation:
Envoyé par Franc
Indépendamment de ton projet et valable pour toute macro, 99% du temps, les .Select et .Activate sont inutiles, tu peux très bien manipuler les données sans ces méthodes. Ces méthodes sont souvent sources d'erreurs et dégradent les performances.
Par exemple, tu peux faire

Code:

Sheets("Feuil1").Range("A1").Value = "blablabla"

au lieu de
Code:

1 2 3 Sheets("Feuil1").Activate Range("A1").Select Range("A1").Value = "blablabla"
Mais du coup comment recuperer des infos de cellule d'une colonne comme :
Code:

1 2 3 4 5 6 7 8 9 ' Activer la première cellule de la colonne contenant les groupes d'affectation (colonne L) wsGlobal.Activate wsGlobal.Range("L2").Select ' Boucle à travers chaque cellule dans la colonne des groupes d'affectation Do Until IsEmpty(ActiveCell) ' Obtenir le nom du groupes d'affectation groupe = ActiveCell.Value
Quand c'est possible, utilise la structure With...End With, ça allège le code et c'est plus lisible.
Dans le cas de ta macro,au lieu de
Code:

1 2 3 4 5 6 7 wsGlobal.UsedRange.EntireColumn.AutoFit wsGlobal.Columns("B:B").ColumnWidth = 6 wsGlobal.Columns("C:C").ColumnWidth = 10 wsGlobal.Columns("D:D").ColumnWidth = 16 wsGlobal.Columns("H:H").ColumnWidth = 57 wsGlobal.Columns("J:J").ColumnWidth = 9 wsGlobal.Columns("K:K").ColumnWidth = 16
tu peux faire
Code:

1 2 3 4 5 6 7 8 9 10 11 With wsGlobal .UsedRange.EntireColumn.AutoFit .Columns("B:B").ColumnWidth = 6 .Columns("C:C").ColumnWidth = 10 .Columns("D:D").ColumnWidth = 16 .Columns("H:H").ColumnWidth = 57 .Columns("J:J").ColumnWidth = 9 .Columns("K:K").ColumnWidth = 16 End With
Pour éviter des macros de plusieurs centaines de lignes, difficiles à maintenir, tu peux découper en macros plus petites pour éffectuer certaines tâches et que tu appelles au bon endroit. Par exemple, la partie ou tu ajoutes les tableaux couleur, pourrait être mise dans une macro à part.
Voilà quelques pistes pour améliorer ton code.
aaaah intéressant, je me note ca et modifie en fonction ;)

Citation:

Envoyé par naozumi8

Mais du coup comment recuperer des infos de cellule d'une colonne comme :

Code:

1
2
3
4
5
6
7
8
9
' Activer la première cellule de la colonne contenant les groupes d'affectation (colonne L)
    wsGlobal.Activate
    wsGlobal.Range("L2").Select
 
 
    ' Boucle à travers chaque cellule dans la colonne des groupes d'affectation
    Do Until IsEmpty(ActiveCell)
        ' Obtenir le nom du groupes d'affectation
        groupe = ActiveCell.Value

Tu peux utiliser la structure For Each, qui va tester chaque cellule du range défini:

Code:

1
2
3
4
5
6
7
8
9
10
Dim cell as Range
Dim GroupeRange as Range
Set GroupeRange = wsGlobal.Range("L2:L" & wsGlobal.Cells(wsGlobal.Rows.Count, "L").End(xlUp).Row)
 
For Each cell In GroupeRange
    groupe = cell.Value
    If Not dict.Exists(groupe) Then
        dict.Add groupe, 0
    End If
Next cell

Re,

Citation:

Le fichier proviens d'un extract de données donc la feuille s'appelle : Page 1, mais c'est pas très explicite

C'est bien ce que je dis c'est au moment de l'extraction que tu dois renommer la feuille.

Citation:

Je suis pas sur de comprendre mais je vais etudier ce que je peux faire avec .Cells

Exemple : Tu peints la cuisine en vert, ensuite tu peints toutes les pièces en rouge, de quelle couleur sera la cuisine ?

Citation:

ws pour Workheet donc pour les feuilles et Global pour la feuille Global, OLD pour la feuille OLD

Pour sûr ça c'est de l'explication...
Quand tu expliques quelque-chose tu doit imaginer que tu as des cancres devant toi, on ne connait pas une ligne de ton projet.

Simplifions le code maintenant, comme dit plus haut tu as tout intérêt à découper le code avec de petites fonctions.
Dans les feuilles tu utilises des tableaux structurés.
Dans un premier temps à leurs création tu dois leur donner un nom explicite, ce qui n'est pas fait. (donc nom donné par Excel "Tableau?????"
ensuite utiliser leur puissance. exemple sur cette partie de code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 ' Trouver la dernière ligne avec des données dans la colonne "Numéro" de la feuille "Global" lastRowGlobal = wsGlobal.Cells(wsGlobal.Rows.Count, "A").End(xlUp).Row ' Trouver la dernière ligne avec des données dans la colonne "Numéro" de la feuille "OLD" lastRowOld = wsOld.Cells(wsOld.Rows.Count, "A").End(xlUp).Row ' Définir la plage de données dans les colonnes "Numéro" et "Commentaires" de la feuille "Global" Set numRowGlobal = wsGlobal.Range("A2:A" & lastRowGlobal) ' Définir la plage de données dans les colonnes "Numéro" et "Commentaires" de la feuille "OLD" Set numRowOld = wsOld.Range("A2:A" & lastRowOld) Set commentairesRangeOld = wsOld.Range("M2:M" & lastRowOld) ' Date limite : aujourd'hui moins 7 jours dateLimite = Date - 7 ' Parcourir chaque cellule de la colonne "Numéro" de la feuille "Global" For Each numCell In wsGlobal.Range("A2:A" & lastRowGlobal) ' Recherche de la correspondance dans la feuille "OLD" Set matchCell = wsOld.Range("A2:A" & lastRowOld).Find(numCell.Value, Lookin:=xlValues)
Ici tu recherches la dernière ligne, tu attribut un range à la colonne, puis tu recherche une valeur, :sleep:
Voici le cas typique d'une fonction que tu peux intégrer dans ta boite à outils
Colle cette fonction dans un module que tu nommeras "Tools" par exemple
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 ' // GetListRow By Pierre Fauconnier le : 16/01/2022' // Retourne une ligne d'un tableau depuis la recherche d'une valeur dans une colonne ' // https://www.developpez.net/forums/blogs/27262-pierre-fauconnier/b5879/excel-vba-modifier-donnees-tableau-formulaire/ Public Function GetListRow(ByVal Table As ListObject, ByVal ColumnName As String, ByVal Value As Variant) As ListRow Dim Formula As String Dim Index As Long If TypeName(Value) = "String" Then Value = """" & Value & """" Else Value = Value * 1 Formula = "iferror(match({value},{table}[{column}],0),0)" Formula = Replace(Formula, "{value}", Value) Formula = Replace(Formula, "{table}", Table.Name) Formula = Replace(Formula, "{column}", ColumnName) Index = Evaluate(Formula) If Index > 0 Then Set GetListRow = Table.ListRows(Index) End Function
Maintenant je recherche la ligne ou le numéro est égal à 150 dans la colonne "Numéro" du tableau "Tableau1", je peux appeler la fonction :
Code:

1 2 3 4 5 6 7 Dim localListRow As ListRow Set localListRow = Tools.GetListRow(Range("Tableau1").ListObject, "Numéro", 150) If Not localListRow Is Nothing Then With localListRow .Range(.Parent.ListColumns.Item("Date").Index).Value = Format(Date, "Short date") End With End If
Cette fonction renvoie si trouvée, une ligne complète du tableau, je recherche la colonne par son nom, ce qui est plus explicite non ?
Je t'invite à lire la documentation de cette fonction ici : https://www.developpez.net/forums/bl...au-formulaire/

Voilà suite au prochain épisode, je te laisse méditer là dessus.

En clair:
Ta fonction est trop grosse, car elle s'occupe de plusieurs choses à la fois.
Divise la en plusieurs sous-fonctions qui s'occupent d'une seule chose. Elle seront plus facile à lire, comprendre et maintenir.
Ta fonction principale n'aura plus qu'a appeler les sous fonctions les unes après les autres.

Petit exemple pour illustrer:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Public Sub Main() LireEntrees() TraitementDonnees() EcrireSortie() End Sub Private Sub LireEntrees() '// code quelconque End SUb Private Sub TraitementDonnees() '// code quelconque End Sub Private Sub EcrireSortie() '// code quelconque End Sub

Voir 40 message(s) de cette discussion en une page