Discussion :

[Henri1830]

Bonjour,

Le code se trouve sous l'explication.
J'ai une liste de transactiions dans un fichier. On y a appliqué la fonction sous-total.
Je demande au client quelle est la référence qu'il veut traiter.
Je dois retrouver cette référence et enregister la date qui se trouve dans une cellule.
Ensuite, je dois me positionner sur la ligne total de cette référence et enregistrer les valeurs de 4 cellules.

Malheureusement, lorsque j'arrive sur

Code :

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

rowNumber = Columns(1).Find(What:=RefClient, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Row

, il se plante avec le message d'erreur : "Erreur d'excution 91 Variable objet ou variable de bloc With non définie"

Avez-vous une idée de ce dont il s'agit ?

Merci d'avance pour le temps que vous allez y consacrer.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub EnvoiMailRappel()
 
    'Declare Variables
    Dim TsrFichOri As String, TsrTabEnvoiManuel As String, RefClient As String
    Dim strInputBox As String
    Dim wb As Workbook, ws As Worksheet
    Dim rowNumber As Long, myDate As Date
    Dim EmailClient As String, NomClient As String, ComStru As String
    Dim Montant As String, FirstDate As Date
 
    'Initialize Variables
    Range("A1").Activate
    TsrFichOri = ActiveWorkbook.Name
    TsrTabEnvoiManuel = "Envoi manuel"
    Windows(TsrFichOri).Activate
    Worksheets(TsrTabEnvoiManuel).Activate
 
    'Prompt User for Client Reference
    RefClient = InputBox("Veuillez entrer la référence du client", "Input required")
 
    'Exit Macro if User Presses Cancel
    If RefClient = "" Then Exit Sub
 
    ' Copy relevant rows from old workbook and create a new workbook with that data
    Rows(1).Copy
    Workbooks.Add
    ActiveSheet.Paste
 
 
    'Find first row with reference
    rowNumber = Columns(1).Find(What:=RefClient, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Row
    FirstDate = Cells(rowNumber, 6).Value
    'Find row with "Total " & RefClient
    rowNumber = Columns(1).Find(What:="Total " & RefClient, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Row
    'Extract necessary values
    EmailClient = Cells(rowNumber, 3).Value
    NomClient = Cells(rowNumber, 4).Value
    Montant = Cells(rowNumber, 11).Value
    ComStru = Cells(rowNumber - 1, 12).Value
 
End Sub

[Philippe Tulliez]

Bonjour,
Cette erreur semble indiquer que la référence n'a pas été trouvée.
Vérifier bien que celle-ci existe

J'ai créer en vitesse une plage de cellules et ai testé ce bout de code et je n'ai aucun problème sauf si RefClient contient une chaîne non présente dans la colonne 1

Code :

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

1
2
3
4
5
  RefClient = "R099"
  ' Find first row with reference
  Debug.Print Columns(1).Find(What:=RefClient, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Address(External:=True)
  rowNumber = Columns(1).Find(What:=RefClient, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Row
  FirstDate = Cells(rowNumber, 6).Value

Cela étant dit, vous auriez intérêt à organiser vos données autrement. D'abord dans une table structurée et certainement pas avec des sous-totaux.

[deedolith]

Salut,

La fonction Find renvoie un objet Range si elle trouve quelque chose, dans le cas contraire, elle renvoie Nothing
Tu dois donc tester ce qu'elle renvoie avant de calculer le numéro de ligne.

[Henri1830]

J'ai trouvé le souci, c'était bête comme chou.

avec le code

Code :

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

1
2
3
    Rows(1).Copy
    Workbooks.Add
    ActiveSheet.Paste

je change de feuille et évidemment, il ne trouve plus la référence.
Il suffit de revenir à la feuille initiale que le code puisse s'exécuter.

Merci beaucoup à Philippe et à deedolith pour le coup de main.

Beau week-end !

[deedolith]

Notes:

Je te conseille fortement d'utiliser des références explicites et non implicites (ou respecter la parentalité des objets) comme tu le fait,
ca t'éviteras de mauvaises surprises de ce genre.