Discussion :

[FTMFB]

Bonjour à tous,

Je souhaiterais qu'une macro impression, déjà définie, s'exécute à chaque fois que pour chaque colonne d'un tableau l'expression "Evaluation avec visite" s'affiche en ligne 31.
J'ai essayé plusieurs codes mais à chaque fois un code erreur apparaît.
Ci-dessous le dernier code essayé :

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
Sub Sub_Pdf_Rapports_resumes()
 
Dim NbCopy As Integer
Dim debut As Integer
Dim fin As Integer
Dim TamponProp As Boolean
Dim myPath As String
 
myPath = ThisWorkbook.Path
 
Application.ScreenUpdating = False
 
 
debut = shtExtraction.Range("B35").Value
fin = shtExtraction.Range("B36").Value
 
For i = debut To fin
If Sheets("Database").Range(Cells(i, 31)) = "Evaluation avec visite" Then
Application.Run ("Sub Sub_Pdf_All()")
End If
Next
End Sub

L'erreur 1004 s'affiche : "Erreur définie par l'application ou par l'objet" et la ligne "If Sheets("Database").Range(Cells(i, 31)) = "Evaluation avec visite" Then" est surlignée en jaune.

Je remercie par avance quiconque pourra m'aider !

Cordialement

[SmallFlower]

Salut,

Il faut remplacer:

Code :

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

If Sheets("Database").Range(Cells(i, 31)) = "Evaluation avec visite" Then

Par:

Code :

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

If Sheets("Database").Cells(i, 31) = "Evaluation avec visite" Then

[FTMFB]

Merci de cette rapide réponse.

En effet l'erreur disparaît mais cela fonctionne pas. Rien ne se passe quand j'exécute la macro. Il doit me manquer une ligne de commande mais je ne vois pas laquelle.
Je pense que tel quel la macro recherche l'expression demandée sur la ligne 1 et non pas la 31. Je ne sais pas si je suis claire.