Bonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1, 0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser ?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
Bonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1, 0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser ?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
Bonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1, 0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser ?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
bonjour Sunburn,
ça bloque sur quel ligne ? quel est le message d'erreur ?
isabelleBonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1, 0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser ?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
bonjour Sunburn,
ça bloque sur quel ligne ? quel est le message d'erreur ?
isabelle
Bonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1, 0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser ?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
bonjour Sunburn,
ça bloque sur quel ligne ? quel est le message d'erreur ?
isabelleBonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1, 0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser ?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
Bonjour Isabelle,
le message est "erreur d'execution 1004", "erreur définie par
l'application
ou par l'objet"
et la ligne qui est surlignée en jaune est "ActiveCell.Offset(-1,
0).Select", dans la macro "SUPPRIMEBAL".
Merci.
Yann
"isabelle" wrote:bonjour Sunburn,
ça bloque sur quel ligne ? quel est le message d'erreur ?
isabelleBonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon
classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1, 0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis
dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser
?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
Bonjour Isabelle,
le message est "erreur d'execution 1004", "erreur définie par
l'application
ou par l'objet"
et la ligne qui est surlignée en jaune est "ActiveCell.Offset(-1,
0).Select", dans la macro "SUPPRIMEBAL".
Merci.
Yann
"isabelle" wrote:
bonjour Sunburn,
ça bloque sur quel ligne ? quel est le message d'erreur ?
isabelle
Bonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon
classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1, 0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis
dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser
?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
Bonjour Isabelle,
le message est "erreur d'execution 1004", "erreur définie par
l'application
ou par l'objet"
et la ligne qui est surlignée en jaune est "ActiveCell.Offset(-1,
0).Select", dans la macro "SUPPRIMEBAL".
Merci.
Yann
"isabelle" wrote:bonjour Sunburn,
ça bloque sur quel ligne ? quel est le message d'erreur ?
isabelleBonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon
classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1, 0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis
dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser
?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
Modifie ton code comme suit; en cas d'erreur, un message apparaitra. Poste
ici le contenu du message :
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
If Err.Number <> 0 then
Msgbox ActiveCell.Address
Exit Sub
End If
Loop
End Sub
Daniel
"Sunburn" a écrit dans le message de
news:Bonjour Isabelle,
le message est "erreur d'execution 1004", "erreur définie par
l'application
ou par l'objet"
et la ligne qui est surlignée en jaune est "ActiveCell.Offset(-1,
0).Select", dans la macro "SUPPRIMEBAL".
Merci.
Yann
"isabelle" wrote:bonjour Sunburn,
ça bloque sur quel ligne ? quel est le message d'erreur ?
isabelleBonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon
classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1, 0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis
dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser
?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
Modifie ton code comme suit; en cas d'erreur, un message apparaitra. Poste
ici le contenu du message :
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
If Err.Number <> 0 then
Msgbox ActiveCell.Address
Exit Sub
End If
Loop
End Sub
Daniel
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 3FF76DC0-D3D3-493E-B05C-7F18908F0268@microsoft.com...
Bonjour Isabelle,
le message est "erreur d'execution 1004", "erreur définie par
l'application
ou par l'objet"
et la ligne qui est surlignée en jaune est "ActiveCell.Offset(-1,
0).Select", dans la macro "SUPPRIMEBAL".
Merci.
Yann
"isabelle" wrote:
bonjour Sunburn,
ça bloque sur quel ligne ? quel est le message d'erreur ?
isabelle
Bonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon
classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1, 0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis
dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser
?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
Modifie ton code comme suit; en cas d'erreur, un message apparaitra. Poste
ici le contenu du message :
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
If Err.Number <> 0 then
Msgbox ActiveCell.Address
Exit Sub
End If
Loop
End Sub
Daniel
"Sunburn" a écrit dans le message de
news:Bonjour Isabelle,
le message est "erreur d'execution 1004", "erreur définie par
l'application
ou par l'objet"
et la ligne qui est surlignée en jaune est "ActiveCell.Offset(-1,
0).Select", dans la macro "SUPPRIMEBAL".
Merci.
Yann
"isabelle" wrote:bonjour Sunburn,
ça bloque sur quel ligne ? quel est le message d'erreur ?
isabelleBonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon
classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1, 0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis
dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser
?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
Daniel:
message qui apparait : $B$1
c'est quoi ?
Merci
"Daniel.C" wrote:Modifie ton code comme suit; en cas d'erreur, un message apparaitra.
Poste
ici le contenu du message :
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
If Err.Number <> 0 then
Msgbox ActiveCell.Address
Exit Sub
End If
Loop
End Sub
Daniel
"Sunburn" a écrit dans le message de
news:Bonjour Isabelle,
le message est "erreur d'execution 1004", "erreur définie par
l'application
ou par l'objet"
et la ligne qui est surlignée en jaune est "ActiveCell.Offset(-1,
0).Select", dans la macro "SUPPRIMEBAL".
Merci.
Yann
"isabelle" wrote:bonjour Sunburn,
ça bloque sur quel ligne ? quel est le message d'erreur ?
isabelleBonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon
classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1,
0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça
bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis
dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser
?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
Daniel:
message qui apparait : $B$1
c'est quoi ?
Merci
"Daniel.C" wrote:
Modifie ton code comme suit; en cas d'erreur, un message apparaitra.
Poste
ici le contenu du message :
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
If Err.Number <> 0 then
Msgbox ActiveCell.Address
Exit Sub
End If
Loop
End Sub
Daniel
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 3FF76DC0-D3D3-493E-B05C-7F18908F0268@microsoft.com...
Bonjour Isabelle,
le message est "erreur d'execution 1004", "erreur définie par
l'application
ou par l'objet"
et la ligne qui est surlignée en jaune est "ActiveCell.Offset(-1,
0).Select", dans la macro "SUPPRIMEBAL".
Merci.
Yann
"isabelle" wrote:
bonjour Sunburn,
ça bloque sur quel ligne ? quel est le message d'erreur ?
isabelle
Bonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon
classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1,
0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça
bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis
dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser
?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
Daniel:
message qui apparait : $B$1
c'est quoi ?
Merci
"Daniel.C" wrote:Modifie ton code comme suit; en cas d'erreur, un message apparaitra.
Poste
ici le contenu du message :
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
If Err.Number <> 0 then
Msgbox ActiveCell.Address
Exit Sub
End If
Loop
End Sub
Daniel
"Sunburn" a écrit dans le message de
news:Bonjour Isabelle,
le message est "erreur d'execution 1004", "erreur définie par
l'application
ou par l'objet"
et la ligne qui est surlignée en jaune est "ActiveCell.Offset(-1,
0).Select", dans la macro "SUPPRIMEBAL".
Merci.
Yann
"isabelle" wrote:bonjour Sunburn,
ça bloque sur quel ligne ? quel est le message d'erreur ?
isabelleBonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon
classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1,
0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça
bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis
dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser
?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
Daniel:
message qui apparait : $B$1
c'est quoi ?
Merci
"Daniel.C" wrote:Modifie ton code comme suit; en cas d'erreur, un message apparaitra. Poste
ici le contenu du message :
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
If Err.Number <> 0 then
Msgbox ActiveCell.Address
Exit Sub
End If
Loop
End Sub
Daniel
"Sunburn" a écrit dans le message de
news:Bonjour Isabelle,
le message est "erreur d'execution 1004", "erreur définie par
l'application
ou par l'objet"
et la ligne qui est surlignée en jaune est "ActiveCell.Offset(-1,
0).Select", dans la macro "SUPPRIMEBAL".
Merci.
Yann
"isabelle" wrote:bonjour Sunburn,
ça bloque sur quel ligne ? quel est le message d'erreur ?
isabelleBonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon
classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1, 0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis
dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser
?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
Daniel:
message qui apparait : $B$1
c'est quoi ?
Merci
"Daniel.C" wrote:
Modifie ton code comme suit; en cas d'erreur, un message apparaitra. Poste
ici le contenu du message :
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
If Err.Number <> 0 then
Msgbox ActiveCell.Address
Exit Sub
End If
Loop
End Sub
Daniel
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 3FF76DC0-D3D3-493E-B05C-7F18908F0268@microsoft.com...
Bonjour Isabelle,
le message est "erreur d'execution 1004", "erreur définie par
l'application
ou par l'objet"
et la ligne qui est surlignée en jaune est "ActiveCell.Offset(-1,
0).Select", dans la macro "SUPPRIMEBAL".
Merci.
Yann
"isabelle" wrote:
bonjour Sunburn,
ça bloque sur quel ligne ? quel est le message d'erreur ?
isabelle
Bonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon
classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1, 0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis
dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser
?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
Daniel:
message qui apparait : $B$1
c'est quoi ?
Merci
"Daniel.C" wrote:Modifie ton code comme suit; en cas d'erreur, un message apparaitra. Poste
ici le contenu du message :
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
If Err.Number <> 0 then
Msgbox ActiveCell.Address
Exit Sub
End If
Loop
End Sub
Daniel
"Sunburn" a écrit dans le message de
news:Bonjour Isabelle,
le message est "erreur d'execution 1004", "erreur définie par
l'application
ou par l'objet"
et la ligne qui est surlignée en jaune est "ActiveCell.Offset(-1,
0).Select", dans la macro "SUPPRIMEBAL".
Merci.
Yann
"isabelle" wrote:bonjour Sunburn,
ça bloque sur quel ligne ? quel est le message d'erreur ?
isabelleBonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon
classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1, 0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis
dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser
?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
Ton erreur provient du fait que tu cherches à sélectionner la cellule qui
est AU DESSUS de B1. Ajoute un test pour prévoir ce cas.
Daniel
"Sunburn" a écrit dans le message de
news:Daniel:
message qui apparait : $B$1
c'est quoi ?
Merci
"Daniel.C" wrote:Modifie ton code comme suit; en cas d'erreur, un message apparaitra.
Poste
ici le contenu du message :
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
If Err.Number <> 0 then
Msgbox ActiveCell.Address
Exit Sub
End If
Loop
End Sub
Daniel
Ton erreur provient du fait que tu cherches à sélectionner la cellule qui
est AU DESSUS de B1. Ajoute un test pour prévoir ce cas.
Daniel
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 7C785268-DEA4-4527-952F-5CBCB40E6A56@microsoft.com...
Daniel:
message qui apparait : $B$1
c'est quoi ?
Merci
"Daniel.C" wrote:
Modifie ton code comme suit; en cas d'erreur, un message apparaitra.
Poste
ici le contenu du message :
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
If Err.Number <> 0 then
Msgbox ActiveCell.Address
Exit Sub
End If
Loop
End Sub
Daniel
Ton erreur provient du fait que tu cherches à sélectionner la cellule qui
est AU DESSUS de B1. Ajoute un test pour prévoir ce cas.
Daniel
"Sunburn" a écrit dans le message de
news:Daniel:
message qui apparait : $B$1
c'est quoi ?
Merci
"Daniel.C" wrote:Modifie ton code comme suit; en cas d'erreur, un message apparaitra.
Poste
ici le contenu du message :
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
If Err.Number <> 0 then
Msgbox ActiveCell.Address
Exit Sub
End If
Loop
End Sub
Daniel
si tu execute la macro via un bouton mets la propriété "TakeFocusOnClick" à False
isabelleDaniel:
message qui apparait : $B$1
c'est quoi ?
Merci
"Daniel.C" wrote:Modifie ton code comme suit; en cas d'erreur, un message apparaitra. Poste
ici le contenu du message :
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
If Err.Number <> 0 then
Msgbox ActiveCell.Address
Exit Sub
End If
Loop
End Sub
Daniel
"Sunburn" a écrit dans le message de
news:Bonjour Isabelle,
le message est "erreur d'execution 1004", "erreur définie par
l'application
ou par l'objet"
et la ligne qui est surlignée en jaune est "ActiveCell.Offset(-1,
0).Select", dans la macro "SUPPRIMEBAL".
Merci.
Yann
"isabelle" wrote:bonjour Sunburn,
ça bloque sur quel ligne ? quel est le message d'erreur ?
isabelleBonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon
classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1, 0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis
dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser
?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
si tu execute la macro via un bouton mets la propriété "TakeFocusOnClick" à False
isabelle
Daniel:
message qui apparait : $B$1
c'est quoi ?
Merci
"Daniel.C" wrote:
Modifie ton code comme suit; en cas d'erreur, un message apparaitra. Poste
ici le contenu du message :
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
If Err.Number <> 0 then
Msgbox ActiveCell.Address
Exit Sub
End If
Loop
End Sub
Daniel
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 3FF76DC0-D3D3-493E-B05C-7F18908F0268@microsoft.com...
Bonjour Isabelle,
le message est "erreur d'execution 1004", "erreur définie par
l'application
ou par l'objet"
et la ligne qui est surlignée en jaune est "ActiveCell.Offset(-1,
0).Select", dans la macro "SUPPRIMEBAL".
Merci.
Yann
"isabelle" wrote:
bonjour Sunburn,
ça bloque sur quel ligne ? quel est le message d'erreur ?
isabelle
Bonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon
classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1, 0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis
dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser
?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
si tu execute la macro via un bouton mets la propriété "TakeFocusOnClick" à False
isabelleDaniel:
message qui apparait : $B$1
c'est quoi ?
Merci
"Daniel.C" wrote:Modifie ton code comme suit; en cas d'erreur, un message apparaitra. Poste
ici le contenu du message :
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
If Err.Number <> 0 then
Msgbox ActiveCell.Address
Exit Sub
End If
Loop
End Sub
Daniel
"Sunburn" a écrit dans le message de
news:Bonjour Isabelle,
le message est "erreur d'execution 1004", "erreur définie par
l'application
ou par l'objet"
et la ligne qui est surlignée en jaune est "ActiveCell.Offset(-1,
0).Select", dans la macro "SUPPRIMEBAL".
Merci.
Yann
"isabelle" wrote:bonjour Sunburn,
ça bloque sur quel ligne ? quel est le message d'erreur ?
isabelleBonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon
classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1, 0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis
dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser
?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
Ma macro s'execute à partir d'un menu déroulant, qui est dans la barre tout
en haut, avec les autres Menu.
Yann
"isabelle" wrote:si tu execute la macro via un bouton mets la propriété "TakeFocusOnClick" à False
isabelleDaniel:
message qui apparait : $B$1
c'est quoi ?
Merci
"Daniel.C" wrote:Modifie ton code comme suit; en cas d'erreur, un message apparaitra. Poste
ici le contenu du message :
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
If Err.Number <> 0 then
Msgbox ActiveCell.Address
Exit Sub
End If
Loop
End Sub
Daniel
"Sunburn" a écrit dans le message de
news:Bonjour Isabelle,
le message est "erreur d'execution 1004", "erreur définie par
l'application
ou par l'objet"
et la ligne qui est surlignée en jaune est "ActiveCell.Offset(-1,
0).Select", dans la macro "SUPPRIMEBAL".
Merci.
Yann
"isabelle" wrote:bonjour Sunburn,
ça bloque sur quel ligne ? quel est le message d'erreur ?
isabelleBonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon
classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1, 0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis
dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser
?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
Ma macro s'execute à partir d'un menu déroulant, qui est dans la barre tout
en haut, avec les autres Menu.
Yann
"isabelle" wrote:
si tu execute la macro via un bouton mets la propriété "TakeFocusOnClick" à False
isabelle
Daniel:
message qui apparait : $B$1
c'est quoi ?
Merci
"Daniel.C" wrote:
Modifie ton code comme suit; en cas d'erreur, un message apparaitra. Poste
ici le contenu du message :
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
If Err.Number <> 0 then
Msgbox ActiveCell.Address
Exit Sub
End If
Loop
End Sub
Daniel
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 3FF76DC0-D3D3-493E-B05C-7F18908F0268@microsoft.com...
Bonjour Isabelle,
le message est "erreur d'execution 1004", "erreur définie par
l'application
ou par l'objet"
et la ligne qui est surlignée en jaune est "ActiveCell.Offset(-1,
0).Select", dans la macro "SUPPRIMEBAL".
Merci.
Yann
"isabelle" wrote:
bonjour Sunburn,
ça bloque sur quel ligne ? quel est le message d'erreur ?
isabelle
Bonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon
classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1, 0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis
dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser
?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
Ma macro s'execute à partir d'un menu déroulant, qui est dans la barre tout
en haut, avec les autres Menu.
Yann
"isabelle" wrote:si tu execute la macro via un bouton mets la propriété "TakeFocusOnClick" à False
isabelleDaniel:
message qui apparait : $B$1
c'est quoi ?
Merci
"Daniel.C" wrote:Modifie ton code comme suit; en cas d'erreur, un message apparaitra. Poste
ici le contenu du message :
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
If Err.Number <> 0 then
Msgbox ActiveCell.Address
Exit Sub
End If
Loop
End Sub
Daniel
"Sunburn" a écrit dans le message de
news:Bonjour Isabelle,
le message est "erreur d'execution 1004", "erreur définie par
l'application
ou par l'objet"
et la ligne qui est surlignée en jaune est "ActiveCell.Offset(-1,
0).Select", dans la macro "SUPPRIMEBAL".
Merci.
Yann
"isabelle" wrote:bonjour Sunburn,
ça bloque sur quel ligne ? quel est le message d'erreur ?
isabelleBonjour,
j'ai un code VBA qui marchait à merveille. J'ai modifié un peu mon
classeur,
et il ne fonctionne plus, il bloque à "ActiveCell.Offset(-1, 0).Select"
le voici, en tout cas le début.
Dans ma deuxième macro, je rappel ma première macro, et là ça bloque.
Je comprend pas.
MERCI
Yann
-------
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Sub IMPORTBAL()
rep = MsgBox("ATTENTION ! Vous allez perdre les commentaires saisis
dans les
'Détails des comptes'. Etes-vous certain(e) de vouloir réinitialiser
?",
vbYesNo)
If rep = vbNo Then Exit Sub
SUPPRIMEBAL
Sheets("balance").Select
Columns("F:I").Select
Selection.NumberFormat = "#,##0"
Sheets("C").Select
Range("DETAIL101").Select
---------
Merci Daniel,
mais je ne sais pas comment faire ce test, et cette macrio fonctionne très
bien sur mon ancien ficher, donc c'est bizzare...
en fait, le but de la macro, est de supprimer toutes les lignes qui
contiennent un chiffre dans la colonne C.
Je ne sais pas comment prévoir un test pour prévoir le cas où y'a une
celule
au dessus de la B1, moi j'en vois pas.
Merci
"Daniel.C" wrote:Ton erreur provient du fait que tu cherches à sélectionner la cellule qui
est AU DESSUS de B1. Ajoute un test pour prévoir ce cas.
Daniel
"Sunburn" a écrit dans le message de
news:Daniel:
message qui apparait : $B$1
c'est quoi ?
Merci
"Daniel.C" wrote:Modifie ton code comme suit; en cas d'erreur, un message apparaitra.
Poste
ici le contenu du message :
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
If Err.Number <> 0 then
Msgbox ActiveCell.Address
Exit Sub
End If
Loop
End Sub
Daniel
Merci Daniel,
mais je ne sais pas comment faire ce test, et cette macrio fonctionne très
bien sur mon ancien ficher, donc c'est bizzare...
en fait, le but de la macro, est de supprimer toutes les lignes qui
contiennent un chiffre dans la colonne C.
Je ne sais pas comment prévoir un test pour prévoir le cas où y'a une
celule
au dessus de la B1, moi j'en vois pas.
Merci
"Daniel.C" wrote:
Ton erreur provient du fait que tu cherches à sélectionner la cellule qui
est AU DESSUS de B1. Ajoute un test pour prévoir ce cas.
Daniel
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 7C785268-DEA4-4527-952F-5CBCB40E6A56@microsoft.com...
Daniel:
message qui apparait : $B$1
c'est quoi ?
Merci
"Daniel.C" wrote:
Modifie ton code comme suit; en cas d'erreur, un message apparaitra.
Poste
ici le contenu du message :
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
If Err.Number <> 0 then
Msgbox ActiveCell.Address
Exit Sub
End If
Loop
End Sub
Daniel
Merci Daniel,
mais je ne sais pas comment faire ce test, et cette macrio fonctionne très
bien sur mon ancien ficher, donc c'est bizzare...
en fait, le but de la macro, est de supprimer toutes les lignes qui
contiennent un chiffre dans la colonne C.
Je ne sais pas comment prévoir un test pour prévoir le cas où y'a une
celule
au dessus de la B1, moi j'en vois pas.
Merci
"Daniel.C" wrote:Ton erreur provient du fait que tu cherches à sélectionner la cellule qui
est AU DESSUS de B1. Ajoute un test pour prévoir ce cas.
Daniel
"Sunburn" a écrit dans le message de
news:Daniel:
message qui apparait : $B$1
c'est quoi ?
Merci
"Daniel.C" wrote:Modifie ton code comme suit; en cas d'erreur, un message apparaitra.
Poste
ici le contenu du message :
Sub SUPPRIMEBAL()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("C").Select
Sheets("C").Range("C65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("C1").Address
If ActiveCell > 100000 And ActiveCell < 999999999 Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
If Err.Number <> 0 then
Msgbox ActiveCell.Address
Exit Sub
End If
Loop
End Sub
Daniel