Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Aide sur erreure d'execution 91 sur exel 2007

Aide sur erreure d'execution 91 sur exel 2007

5 réponses
Avatar
corequad
Bonjour à tous.


Besoin d'aide, car j'ai passé de exel 2003 à 2007 et quand j'ouvre mon
fichier de travail '' Rapport par set avec estimé.xls '' Je recois ce
message après avoir actualisé '' Erreur d'execution 91 '' Et ce message
est nouveau pour moi.
je click sur débogage et ces 3 lignes son en jaunes

Cells.Find(What:="Total", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase _
:=False).Activate
Et là, j'avoue que ca devient du chinois et même avec mes recherche sur
GooGle je n'arrive pas à la solution!

Voici le code au complet

Sub actsetestimé()
'
' actsetestimé Macro
' Macro enregistrée le 98-12-01 par SUPOR
'

'
Application.Goto Reference:="no.set"
ActiveCell.Offset(3, 0).Range("A1:A1035").Select
Selection.EntireRow.Delete
Application.Goto Reference:="tableaubudget"
Columns("G:I").Select
Application.CutCopyMode = False
Selection.ClearContents
Application.Goto Reference:="tableaubudget"
ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable
Application.Goto Reference:="tableaudépense"
ActiveSheet.PivotTables("Tableau croisé dynamique2").RefreshTable
Application.Goto Reference:="tableauestimé"
ActiveSheet.PivotTables("Tableau croisé dynamique3").RefreshTable
Application.Goto Reference:="formule"
Selection.Copy
Application.Goto Reference:="R3C7"
ActiveWindow.SmallScroll ToRight:=-3
Range("G3:G1000").Select
ActiveSheet.Paste
Application.Goto Reference:="tableaubudget"
Selection.CurrentRegion.Select
Selection.Copy
Application.Goto Reference:="no.set"
ActiveCell.Offset(3, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.Goto Reference:="R1C2"
ActiveCell.Columns("A:A").EntireColumn.Select
Application.CutCopyMode = False
Selection.Replace What:="Somme*", Replacement:="8888", LookAt:=xlWhole, _
SearchOrder:=xlByColumns, MatchCase:=False
Application.Goto Reference:="no.set"
ActiveCell.Offset(3, 0).Rows("1:2").EntireRow.Select
Selection.Delete Shift:=xlUp
Application.Goto Reference:="R1C4"
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="="
Application.Goto Reference:="R2C4"
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=8888,""Total :"",0)"
ActiveCell.Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1:A748").Select
ActiveSheet.Paste
Application.Goto Reference:="R1C4"
Application.CutCopyMode = False
Selection.AutoFilter
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="Total :"
Selection.CurrentRegion.Select
Selection.Font.Bold = False
Selection.Font.Bold = True
ActiveSheet.ShowAllData
Application.Goto Reference:="R1C1"
Application.Goto Reference:="R1C2"
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.Replace What:="8888", Replacement:="0", LookAt:=xlWhole, _
SearchOrder:=xlByColumns, MatchCase:=False
Application.Goto Reference:="R1C1"
Selection.AutoFilter
Selection.AutoFilter
ActiveWindow.SmallScroll ToRight:=-2
Selection.AutoFilter Field:=1, Criteria1:="<>"
Cells.Find(What:="Total", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase _
:=False).Activate
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Font.Bold = True
With Selection.Font
.Name = "Arial"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveCell.Offset(0, 6).Range("A1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-6],Feuil2!C[9]:C[13],5,FALSE)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-7],Feuil2!C[3]:C[6],4,FALSE)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
ActiveCell.Offset(631, 0).Range("A1:A281").Select
ActiveWindow.LargeScroll Down:=-16
Application.Goto Reference:="R1C1"
ActiveCell.Offset(3, 0).Range("A1").Select
Selection.CurrentRegion.Select
Selection.RowHeight = 25
Application.Goto Reference:="R1C1"
Selection.AutoFilter
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(1, 0).Range("A1:A1749").Select
Selection.EntireRow.Delete
Application.Goto Reference:="R1C1"
Application.Goto Reference:="R2C1"
End Sub

Je n'arrive pas à voir l'erreure en soi!
La formule fonctionne très bien sur la version 2003

Voilà en gros.

corequadextreme@hotmail.com
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.C
Bonjour.
J'ai cette erreur quand je ne trouve pas la valeur cherchée. La
commmande renvoie un objet "range" que tu ne peux pas activer puisqu'il
n'a pas été trouvé.
Code plutôt :

Set c = Cells.Find(What:="Total", After:¬tiveCell,
LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase _
:úlse)
If c Is Nothing Then
MsgBox "valeur non trouvée"
Else
c.Activate
End If

Cordialement.
Daniel

Bonjour à tous.


Besoin d'aide, car j'ai passé de exel 2003 à 2007 et quand j'ouvre mon
fichier de travail '' Rapport par set avec estimé.xls '' Je recois ce
message après avoir actualisé '' Erreur d'execution 91 '' Et ce message
est nouveau pour moi.
je click sur débogage et ces 3 lignes son en jaunes

Cells.Find(What:="Total", After:¬tiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase _
:úlse).Activate
Et là, j'avoue que ca devient du chinois et même avec mes recherche sur
GooGle je n'arrive pas à la solution!

Voici le code au complet

Sub actsetestimé()
'
' actsetestimé Macro
' Macro enregistrée le 98-12-01 par SUPOR
'

'
Application.Goto Reference:="no.set"
ActiveCell.Offset(3, 0).Range("A1:A1035").Select
Selection.EntireRow.Delete
Application.Goto Reference:="tableaubudget"
Columns("G:I").Select
Application.CutCopyMode = False
Selection.ClearContents
Application.Goto Reference:="tableaubudget"
ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable
Application.Goto Reference:="tableaudépense"
ActiveSheet.PivotTables("Tableau croisé dynamique2").RefreshTable
Application.Goto Reference:="tableauestimé"
ActiveSheet.PivotTables("Tableau croisé dynamique3").RefreshTable
Application.Goto Reference:="formule"
Selection.Copy
Application.Goto Reference:="R3C7"
ActiveWindow.SmallScroll ToRight:=-3
Range("G3:G1000").Select
ActiveSheet.Paste
Application.Goto Reference:="tableaubudget"
Selection.CurrentRegion.Select
Selection.Copy
Application.Goto Reference:="no.set"
ActiveCell.Offset(3, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Application.Goto Reference:="R1C2"
ActiveCell.Columns("A:A").EntireColumn.Select
Application.CutCopyMode = False
Selection.Replace What:="Somme*", Replacement:="8888", LookAt:=xlWhole, _
SearchOrder:=xlByColumns, MatchCase:úlse
Application.Goto Reference:="no.set"
ActiveCell.Offset(3, 0).Rows("1:2").EntireRow.Select
Selection.Delete Shift:=xlUp
Application.Goto Reference:="R1C4"
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="="
Application.Goto Reference:="R2C4"
ActiveCell.FormulaR1C1 = "=IF(RC[-2]ˆ88,""Total :"",0)"
ActiveCell.Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1:A748").Select
ActiveSheet.Paste
Application.Goto Reference:="R1C4"
Application.CutCopyMode = False
Selection.AutoFilter
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Application.CutCopyMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="Total :"
Selection.CurrentRegion.Select
Selection.Font.Bold = False
Selection.Font.Bold = True
ActiveSheet.ShowAllData
Application.Goto Reference:="R1C1"
Application.Goto Reference:="R1C2"
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.Replace What:="8888", Replacement:="0", LookAt:=xlWhole, _
SearchOrder:=xlByColumns, MatchCase:úlse
Application.Goto Reference:="R1C1"
Selection.AutoFilter
Selection.AutoFilter
ActiveWindow.SmallScroll ToRight:=-2
Selection.AutoFilter Field:=1, Criteria1:="<>"
Cells.Find(What:="Total", After:¬tiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase _
:úlse).Activate
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Font.Bold = True
With Selection.Font
.Name = "Arial"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveCell.Offset(0, 6).Range("A1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-6],Feuil2!C[9]:C[13],5,FALSE)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-7],Feuil2!C[3]:C[6],4,FALSE)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
ActiveCell.Offset(631, 0).Range("A1:A281").Select
ActiveWindow.LargeScroll Down:=-16
Application.Goto Reference:="R1C1"
ActiveCell.Offset(3, 0).Range("A1").Select
Selection.CurrentRegion.Select
Selection.RowHeight = 25
Application.Goto Reference:="R1C1"
Selection.AutoFilter
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.FindNext(After:¬tiveCell).Activate
ActiveCell.Offset(1, 0).Range("A1:A1749").Select
Selection.EntireRow.Delete
Application.Goto Reference:="R1C1"
Application.Goto Reference:="R2C1"
End Sub

Je n'arrive pas à voir l'erreure en soi!
La formule fonctionne très bien sur la version 2003

Voilà en gros.




Avatar
corequad
Merci Daniel pour cette aide qui fait chaud au coeur en soi.

Après avoir modifié le code en fesant copie/coller sur ton message je recois
ce message après avoir actualisé le document

Erreure de compilation sur cette ligne

Set c = Cells.Find(What:="Total", After:¬tiveCell,

Esque tu vois ou cette erreure ce cache???

Et encore merci à toi pour ce dépannage!

Jean



"Daniel.C" a écrit :

Bonjour.
J'ai cette erreur quand je ne trouve pas la valeur cherchée. La
commmande renvoie un objet "range" que tu ne peux pas activer puisqu'il
n'a pas été trouvé.
Code plutôt :

Set c = Cells.Find(What:="Total", After:¬tiveCell,
LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase _
:úlse)
If c Is Nothing Then
MsgBox "valeur non trouvée"
Else
c.Activate
End If

Cordialement.
Daniel

> Bonjour à tous.
>
>
> Besoin d'aide, car j'ai passé de exel 2003 à 2007 et quand j'ouvre mon
> fichier de travail '' Rapport par set avec estimé.xls '' Je recois ce
> message après avoir actualisé '' Erreur d'execution 91 '' Et ce message
> est nouveau pour moi.
> je click sur débogage et ces 3 lignes son en jaunes
>
> Cells.Find(What:="Total", After:¬tiveCell, LookIn:=xlFormulas, LookAt _
> :=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
> MatchCase _
> :úlse).Activate
> Et là, j'avoue que ca devient du chinois et même avec mes recherche sur
> GooGle je n'arrive pas à la solution!
>
> Voici le code au complet
>
> Sub actsetestimé()
> '
> ' actsetestimé Macro
> ' Macro enregistrée le 98-12-01 par SUPOR
> '
>
> '
> Application.Goto Reference:="no.set"
> ActiveCell.Offset(3, 0).Range("A1:A1035").Select
> Selection.EntireRow.Delete
> Application.Goto Reference:="tableaubudget"
> Columns("G:I").Select
> Application.CutCopyMode = False
> Selection.ClearContents
> Application.Goto Reference:="tableaubudget"
> ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable
> Application.Goto Reference:="tableaudépense"
> ActiveSheet.PivotTables("Tableau croisé dynamique2").RefreshTable
> Application.Goto Reference:="tableauestimé"
> ActiveSheet.PivotTables("Tableau croisé dynamique3").RefreshTable
> Application.Goto Reference:="formule"
> Selection.Copy
> Application.Goto Reference:="R3C7"
> ActiveWindow.SmallScroll ToRight:=-3
> Range("G3:G1000").Select
> ActiveSheet.Paste
> Application.Goto Reference:="tableaubudget"
> Selection.CurrentRegion.Select
> Selection.Copy
> Application.Goto Reference:="no.set"
> ActiveCell.Offset(3, 0).Range("A1").Select
> Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
> False, Transpose:úlse
> Application.Goto Reference:="R1C2"
> ActiveCell.Columns("A:A").EntireColumn.Select
> Application.CutCopyMode = False
> Selection.Replace What:="Somme*", Replacement:="8888", LookAt:=xlWhole, _
> SearchOrder:=xlByColumns, MatchCase:úlse
> Application.Goto Reference:="no.set"
> ActiveCell.Offset(3, 0).Rows("1:2").EntireRow.Select
> Selection.Delete Shift:=xlUp
> Application.Goto Reference:="R1C4"
> Selection.AutoFilter
> Selection.AutoFilter Field:=4, Criteria1:="="
> Application.Goto Reference:="R2C4"
> ActiveCell.FormulaR1C1 = "=IF(RC[-2]ˆ88,""Total :"",0)"
> ActiveCell.Select
> Selection.Copy
> ActiveCell.Offset(1, 0).Range("A1:A748").Select
> ActiveSheet.Paste
> Application.Goto Reference:="R1C4"
> Application.CutCopyMode = False
> Selection.AutoFilter
> ActiveCell.Columns("A:A").EntireColumn.Select
> Selection.Copy
> Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
> False, Transpose:úlse
> Application.CutCopyMode = False
> Selection.AutoFilter
> Selection.AutoFilter Field:=1, Criteria1:="Total :"
> Selection.CurrentRegion.Select
> Selection.Font.Bold = False
> Selection.Font.Bold = True
> ActiveSheet.ShowAllData
> Application.Goto Reference:="R1C1"
> Application.Goto Reference:="R1C2"
> ActiveCell.Columns("A:A").EntireColumn.Select
> Selection.Replace What:="8888", Replacement:="0", LookAt:=xlWhole, _
> SearchOrder:=xlByColumns, MatchCase:úlse
> Application.Goto Reference:="R1C1"
> Selection.AutoFilter
> Selection.AutoFilter
> ActiveWindow.SmallScroll ToRight:=-2
> Selection.AutoFilter Field:=1, Criteria1:="<>"
> Cells.Find(What:="Total", After:¬tiveCell, LookIn:=xlFormulas, LookAt _
> :=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
> MatchCase _
> :úlse).Activate
> ActiveCell.Rows("1:1").EntireRow.Select
> Selection.Font.Bold = True
> With Selection.Font
> .Name = "Arial"
> .Size = 12
> .Strikethrough = False
> .Superscript = False
> .Subscript = False
> .OutlineFont = False
> .Shadow = False
> .Underline = xlUnderlineStyleNone
> .ColorIndex = xlAutomatic
> End With
> ActiveCell.Offset(0, 6).Range("A1").Select
> ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-6],Feuil2!C[9]:C[13],5,FALSE)"
> ActiveCell.Offset(0, 1).Range("A1").Select
> ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-7],Feuil2!C[3]:C[6],4,FALSE)"
> ActiveCell.Offset(0, 1).Range("A1").Select
> ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
> ActiveCell.Offset(631, 0).Range("A1:A281").Select
> ActiveWindow.LargeScroll Down:=-16
> Application.Goto Reference:="R1C1"
> ActiveCell.Offset(3, 0).Range("A1").Select
> Selection.CurrentRegion.Select
> Selection.RowHeight = 25
> Application.Goto Reference:="R1C1"
> Selection.AutoFilter
> ActiveCell.Columns("A:A").EntireColumn.Select
> Selection.FindNext(After:¬tiveCell).Activate
> ActiveCell.Offset(1, 0).Range("A1:A1749").Select
> Selection.EntireRow.Delete
> Application.Goto Reference:="R1C1"
> Application.Goto Reference:="R2C1"
> End Sub
>
> Je n'arrive pas à voir l'erreure en soi!
> La formule fonctionne très bien sur la version 2003
>
> Voilà en gros.
>
>


.



Avatar
Daniel.C
Je pense que c'est dû au client newgroup qui tronque les lignes où il
ne devrait pas le faire; la première ligne commence à "Set c" et finit
à "LookAt _"
La seconde débute à :
":=xlWhole" et finit à :
"MatchCase _"
Les autres lignes sont trop courtes pour avoir été modifiées.
Daniel

Merci Daniel pour cette aide qui fait chaud au coeur en soi.

Après avoir modifié le code en fesant copie/coller sur ton message je recois
ce message après avoir actualisé le document

Erreure de compilation sur cette ligne

Set c = Cells.Find(What:="Total", After:¬tiveCell,

Esque tu vois ou cette erreure ce cache???

Et encore merci à toi pour ce dépannage!

Jean



"Daniel.C" a écrit :

Bonjour.
J'ai cette erreur quand je ne trouve pas la valeur cherchée. La
commmande renvoie un objet "range" que tu ne peux pas activer puisqu'il
n'a pas été trouvé.
Code plutôt :

Set c = Cells.Find(What:="Total", After:¬tiveCell,
LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase _
:úlse)
If c Is Nothing Then
MsgBox "valeur non trouvée"
Else
c.Activate
End If

Cordialement.
Daniel

Bonjour à tous.


Besoin d'aide, car j'ai passé de exel 2003 à 2007 et quand j'ouvre mon
fichier de travail '' Rapport par set avec estimé.xls '' Je recois ce
message après avoir actualisé '' Erreur d'execution 91 '' Et ce message
est nouveau pour moi.
je click sur débogage et ces 3 lignes son en jaunes

Cells.Find(What:="Total", After:¬tiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase _
:úlse).Activate
Et là, j'avoue que ca devient du chinois et même avec mes recherche sur
GooGle je n'arrive pas à la solution!

Voici le code au complet

Sub actsetestimé()
'
' actsetestimé Macro
' Macro enregistrée le 98-12-01 par SUPOR
'

'
Application.Goto Reference:="no.set"
ActiveCell.Offset(3, 0).Range("A1:A1035").Select
Selection.EntireRow.Delete
Application.Goto Reference:="tableaubudget"
Columns("G:I").Select
Application.CutCopyMode = False
Selection.ClearContents
Application.Goto Reference:="tableaubudget"
ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable
Application.Goto Reference:="tableaudépense"
ActiveSheet.PivotTables("Tableau croisé dynamique2").RefreshTable
Application.Goto Reference:="tableauestimé"
ActiveSheet.PivotTables("Tableau croisé dynamique3").RefreshTable
Application.Goto Reference:="formule"
Selection.Copy
Application.Goto Reference:="R3C7"
ActiveWindow.SmallScroll ToRight:=-3
Range("G3:G1000").Select
ActiveSheet.Paste
Application.Goto Reference:="tableaubudget"
Selection.CurrentRegion.Select
Selection.Copy
Application.Goto Reference:="no.set"
ActiveCell.Offset(3, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_ False, Transpose:úlse
Application.Goto Reference:="R1C2"
ActiveCell.Columns("A:A").EntireColumn.Select
Application.CutCopyMode = False
Selection.Replace What:="Somme*", Replacement:="8888", LookAt:=xlWhole,
_ SearchOrder:=xlByColumns, MatchCase:úlse
Application.Goto Reference:="no.set"
ActiveCell.Offset(3, 0).Rows("1:2").EntireRow.Select
Selection.Delete Shift:=xlUp
Application.Goto Reference:="R1C4"
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="="
Application.Goto Reference:="R2C4"
ActiveCell.FormulaR1C1 = "=IF(RC[-2]ˆ88,""Total :"",0)"
ActiveCell.Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1:A748").Select
ActiveSheet.Paste
Application.Goto Reference:="R1C4"
Application.CutCopyMode = False
Selection.AutoFilter
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_ False, Transpose:úlse
Application.CutCopyMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="Total :"
Selection.CurrentRegion.Select
Selection.Font.Bold = False
Selection.Font.Bold = True
ActiveSheet.ShowAllData
Application.Goto Reference:="R1C1"
Application.Goto Reference:="R1C2"
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.Replace What:="8888", Replacement:="0", LookAt:=xlWhole, _
SearchOrder:=xlByColumns, MatchCase:úlse
Application.Goto Reference:="R1C1"
Selection.AutoFilter
Selection.AutoFilter
ActiveWindow.SmallScroll ToRight:=-2
Selection.AutoFilter Field:=1, Criteria1:="<>"
Cells.Find(What:="Total", After:¬tiveCell, LookIn:=xlFormulas, LookAt
_ :=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase _
:úlse).Activate
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Font.Bold = True
With Selection.Font
.Name = "Arial"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveCell.Offset(0, 6).Range("A1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-6],Feuil2!C[9]:C[13],5,FALSE)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-7],Feuil2!C[3]:C[6],4,FALSE)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
ActiveCell.Offset(631, 0).Range("A1:A281").Select
ActiveWindow.LargeScroll Down:=-16
Application.Goto Reference:="R1C1"
ActiveCell.Offset(3, 0).Range("A1").Select
Selection.CurrentRegion.Select
Selection.RowHeight = 25
Application.Goto Reference:="R1C1"
Selection.AutoFilter
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.FindNext(After:¬tiveCell).Activate
ActiveCell.Offset(1, 0).Range("A1:A1749").Select
Selection.EntireRow.Delete
Application.Goto Reference:="R1C1"
Application.Goto Reference:="R2C1"
End Sub

Je n'arrive pas à voir l'erreure en soi!
La formule fonctionne très bien sur la version 2003

Voilà en gros.






.





Avatar
corequad
Re-Daniel

Oui tu as raison pour les lignes :-)

après avoir actualisé de nouveau le dossier voici le résultat, boite avec
message '' Valeur non trouvée '' je click OK une autre boite de message ''
Erreure d'exécution 91 Variable objet ou variable de bloc whit non définie
'' Je click sure débogage et la cinquièmes dernières lignes est en jaune

Selection.FindNext(After:¬tiveCell).Activate

Je laisse le code de nouveau avec les modifications


Sub actsetestimé()
'
' actsetestimé Macro
' Macro enregistrée le 98-12-01 par SUPOR
'

'
Application.Goto Reference:="no.set"
ActiveCell.Offset(3, 0).Range("A1:A1035").Select
Selection.EntireRow.Delete
Application.Goto Reference:="tableaubudget"
Columns("G:I").Select
Application.CutCopyMode = False
Selection.ClearContents
Application.Goto Reference:="tableaubudget"
ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable
Application.Goto Reference:="tableaudépense"
ActiveSheet.PivotTables("Tableau croisé dynamique2").RefreshTable
Application.Goto Reference:="tableauestimé"
ActiveSheet.PivotTables("Tableau croisé dynamique3").RefreshTable
Application.Goto Reference:="formule"
Selection.Copy
Application.Goto Reference:="R3C7"
ActiveWindow.SmallScroll ToRight:=-3
Range("G3:G1000").Select
ActiveSheet.Paste
Application.Goto Reference:="tableaubudget"
Selection.CurrentRegion.Select
Selection.Copy
Application.Goto Reference:="no.set"
ActiveCell.Offset(3, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Application.Goto Reference:="R1C2"
ActiveCell.Columns("A:A").EntireColumn.Select
Application.CutCopyMode = False
Selection.Replace What:="Somme*", Replacement:="8888", LookAt:=xlWhole, _
SearchOrder:=xlByColumns, MatchCase:úlse
Application.Goto Reference:="no.set"
ActiveCell.Offset(3, 0).Rows("1:2").EntireRow.Select
Selection.Delete Shift:=xlUp
Application.Goto Reference:="R1C4"
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="="
Application.Goto Reference:="R2C4"
ActiveCell.FormulaR1C1 = "=IF(RC[-2]ˆ88,""Total :"",0)"
ActiveCell.Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1:A748").Select
ActiveSheet.Paste
Application.Goto Reference:="R1C4"
Application.CutCopyMode = False
Selection.AutoFilter
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Application.CutCopyMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="Total :"
Selection.CurrentRegion.Select
Selection.Font.Bold = False
Selection.Font.Bold = True
ActiveSheet.ShowAllData
Application.Goto Reference:="R1C1"
Application.Goto Reference:="R1C2"
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.Replace What:="8888", Replacement:="0", LookAt:=xlWhole, _
SearchOrder:=xlByColumns, MatchCase:úlse
Application.Goto Reference:="R1C1"
Selection.AutoFilter
Selection.AutoFilter
ActiveWindow.SmallScroll ToRight:=-2
Selection.AutoFilter Field:=1, Criteria1:="<>"
Set c = Cells.Find(What:="Total", After:¬tiveCell, LookIn:=xlFormulas,
LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _
:úlse)
If c Is Nothing Then
MsgBox "valeur non trouvée"
Else
c.Activate
End If

ActiveCell.Rows("1:1").EntireRow.Select
Selection.Font.Bold = True
With Selection.Font
.Name = "Arial"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveCell.Offset(0, 6).Range("A1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-6],Feuil2!C[9]:C[13],5,FALSE)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-7],Feuil2!C[3]:C[6],4,FALSE)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
ActiveCell.Offset(631, 0).Range("A1:A281").Select
ActiveWindow.LargeScroll Down:=-16
Application.Goto Reference:="R1C1"
ActiveCell.Offset(3, 0).Range("A1").Select
Selection.CurrentRegion.Select
Selection.RowHeight = 25
Application.Goto Reference:="R1C1"
Selection.AutoFilter
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.FindNext(After:¬tiveCell).Activate
ActiveCell.Offset(1, 0).Range("A1:A1749").Select
Selection.EntireRow.Delete
Application.Goto Reference:="R1C1"
Application.Goto Reference:="R2C1"
End Sub

Si tu crois avoir besoin des dossiers, je peux envoyer ?

Merci à toi, ca semble encourageant là :-0

Jean





"Daniel.C" a écrit :

Je pense que c'est dû au client newgroup qui tronque les lignes où il
ne devrait pas le faire; la première ligne commence à "Set c" et finit
à "LookAt _"
La seconde débute à :
":=xlWhole" et finit à :
"MatchCase _"
Les autres lignes sont trop courtes pour avoir été modifiées.
Daniel


Avatar
Daniel.C
C'est le même problème qu'avec Find. Tu charches la valeur suivante
alors que tu n'as pas trouvé la première. J'ai arrêté la macrco après
le message :

Application.Goto Reference:="no.set"
ActiveCell.Offset(3, 0).Range("A1:A1035").Select
Selection.EntireRow.Delete
Application.Goto Reference:="tableaubudget"
Columns("G:I").Select
Application.CutCopyMode = False
Selection.ClearContents
Application.Goto Reference:="tableaubudget"
ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable
Application.Goto Reference:="tableaudépense"
ActiveSheet.PivotTables("Tableau croisé dynamique2").RefreshTable
Application.Goto Reference:="tableauestimé"
ActiveSheet.PivotTables("Tableau croisé dynamique3").RefreshTable
Application.Goto Reference:="formule"
Selection.Copy
Application.Goto Reference:="R3C7"
ActiveWindow.SmallScroll ToRight:=-3
Range("G3:G1000").Select
ActiveSheet.Paste
Application.Goto Reference:="tableaubudget"
Selection.CurrentRegion.Select
Selection.Copy
Application.Goto Reference:="no.set"
ActiveCell.Offset(3, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
Application.Goto Reference:="R1C2"
ActiveCell.Columns("A:A").EntireColumn.Select
Application.CutCopyMode = False
Selection.Replace What:="Somme*", Replacement:="8888",
LookAt:=xlWhole, _
SearchOrder:=xlByColumns, MatchCase:úlse
Application.Goto Reference:="no.set"
ActiveCell.Offset(3, 0).Rows("1:2").EntireRow.Select
Selection.Delete Shift:=xlUp
Application.Goto Reference:="R1C4"
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="="
Application.Goto Reference:="R2C4"
ActiveCell.FormulaR1C1 = "=IF(RC[-2]ˆ88,""Total :"",0)"
ActiveCell.Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1:A748").Select
ActiveSheet.Paste
Application.Goto Reference:="R1C4"
Application.CutCopyMode = False
Selection.AutoFilter
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
Application.CutCopyMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="Total :"
Selection.CurrentRegion.Select
Selection.Font.Bold = False
Selection.Font.Bold = True
ActiveSheet.ShowAllData
Application.Goto Reference:="R1C1"
Application.Goto Reference:="R1C2"
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.Replace What:="8888", Replacement:="0", LookAt:=xlWhole,
_
SearchOrder:=xlByColumns, MatchCase:úlse
Application.Goto Reference:="R1C1"
Selection.AutoFilter
Selection.AutoFilter
ActiveWindow.SmallScroll ToRight:=-2
Selection.AutoFilter Field:=1, Criteria1:="<>"
Set c = Cells.Find(What:="Total", After:¬tiveCell,
LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase _
:úlse)
If c Is Nothing Then
MsgBox "valeur non trouvée, fin de la macro"
Exit Sub
Else
c.Activate
End If
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Font.Bold = True
With Selection.Font
.Name = "Arial"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveCell.Offset(0, 6).Range("A1").Select
ActiveCell.FormulaR1C1 =
"=VLOOKUP(RC[-6],Feuil2!C[9]:C[13],5,FALSE)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 =
"=VLOOKUP(RC[-7],Feuil2!C[3]:C[6],4,FALSE)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
ActiveCell.Offset(631, 0).Range("A1:A281").Select
ActiveWindow.LargeScroll Down:=-16
Application.Goto Reference:="R1C1"
ActiveCell.Offset(3, 0).Range("A1").Select
Selection.CurrentRegion.Select
Selection.RowHeight = 25
Application.Goto Reference:="R1C1"
Selection.AutoFilter
ActiveCell.Columns("A:A").EntireColumn.Select
Set c = Selection.FindNext(After:¬tiveCell)
If c Is Nothing Then
MsgBox "valeur non trouvée, fin de la macro"
Exit Sub
Else
c.Activate
End If
ActiveCell.Offset(1, 0).Range("A1:A1749").Select
Selection.EntireRow.Delete
Application.Goto Reference:="R1C1"
Application.Goto Reference:="R2C1"

Daniel

Re-Daniel

Oui tu as raison pour les lignes :-)

après avoir actualisé de nouveau le dossier voici le résultat, boite avec
message '' Valeur non trouvée '' je click OK une autre boite de message ''
Erreure d'exécution 91 Variable objet ou variable de bloc whit non définie
'' Je click sure débogage et la cinquièmes dernières lignes est en jaune

Selection.FindNext(After:¬tiveCell).Activate

Je laisse le code de nouveau avec les modifications


Sub actsetestimé()
'
' actsetestimé Macro
' Macro enregistrée le 98-12-01 par SUPOR
'

'
Application.Goto Reference:="no.set"
ActiveCell.Offset(3, 0).Range("A1:A1035").Select
Selection.EntireRow.Delete
Application.Goto Reference:="tableaubudget"
Columns("G:I").Select
Application.CutCopyMode = False
Selection.ClearContents
Application.Goto Reference:="tableaubudget"
ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable
Application.Goto Reference:="tableaudépense"
ActiveSheet.PivotTables("Tableau croisé dynamique2").RefreshTable
Application.Goto Reference:="tableauestimé"
ActiveSheet.PivotTables("Tableau croisé dynamique3").RefreshTable
Application.Goto Reference:="formule"
Selection.Copy
Application.Goto Reference:="R3C7"
ActiveWindow.SmallScroll ToRight:=-3
Range("G3:G1000").Select
ActiveSheet.Paste
Application.Goto Reference:="tableaubudget"
Selection.CurrentRegion.Select
Selection.Copy
Application.Goto Reference:="no.set"
ActiveCell.Offset(3, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Application.Goto Reference:="R1C2"
ActiveCell.Columns("A:A").EntireColumn.Select
Application.CutCopyMode = False
Selection.Replace What:="Somme*", Replacement:="8888", LookAt:=xlWhole, _
SearchOrder:=xlByColumns, MatchCase:úlse
Application.Goto Reference:="no.set"
ActiveCell.Offset(3, 0).Rows("1:2").EntireRow.Select
Selection.Delete Shift:=xlUp
Application.Goto Reference:="R1C4"
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="="
Application.Goto Reference:="R2C4"
ActiveCell.FormulaR1C1 = "=IF(RC[-2]ˆ88,""Total :"",0)"
ActiveCell.Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1:A748").Select
ActiveSheet.Paste
Application.Goto Reference:="R1C4"
Application.CutCopyMode = False
Selection.AutoFilter
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Application.CutCopyMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="Total :"
Selection.CurrentRegion.Select
Selection.Font.Bold = False
Selection.Font.Bold = True
ActiveSheet.ShowAllData
Application.Goto Reference:="R1C1"
Application.Goto Reference:="R1C2"
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.Replace What:="8888", Replacement:="0", LookAt:=xlWhole, _
SearchOrder:=xlByColumns, MatchCase:úlse
Application.Goto Reference:="R1C1"
Selection.AutoFilter
Selection.AutoFilter
ActiveWindow.SmallScroll ToRight:=-2
Selection.AutoFilter Field:=1, Criteria1:="<>"
Set c = Cells.Find(What:="Total", After:¬tiveCell, LookIn:=xlFormulas,
LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _
:úlse)
If c Is Nothing Then
MsgBox "valeur non trouvée"
Else
c.Activate
End If

ActiveCell.Rows("1:1").EntireRow.Select
Selection.Font.Bold = True
With Selection.Font
.Name = "Arial"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveCell.Offset(0, 6).Range("A1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-6],Feuil2!C[9]:C[13],5,FALSE)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-7],Feuil2!C[3]:C[6],4,FALSE)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
ActiveCell.Offset(631, 0).Range("A1:A281").Select
ActiveWindow.LargeScroll Down:=-16
Application.Goto Reference:="R1C1"
ActiveCell.Offset(3, 0).Range("A1").Select
Selection.CurrentRegion.Select
Selection.RowHeight = 25
Application.Goto Reference:="R1C1"
Selection.AutoFilter
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.FindNext(After:¬tiveCell).Activate
ActiveCell.Offset(1, 0).Range("A1:A1749").Select
Selection.EntireRow.Delete
Application.Goto Reference:="R1C1"
Application.Goto Reference:="R2C1"
End Sub

Si tu crois avoir besoin des dossiers, je peux envoyer ?

Merci à toi, ca semble encourageant là :-0

Jean





"Daniel.C" a écrit :

Je pense que c'est dû au client newgroup qui tronque les lignes où il
ne devrait pas le faire; la première ligne commence à "Set c" et finit
à "LookAt _"
La seconde débute à :
":=xlWhole" et finit à :
"MatchCase _"
Les autres lignes sont trop courtes pour avoir été modifiées.
Daniel