probleme sur etiquette VVA

Bonjour

j ai créé un programme excel avec VBA mais j ai une erreur qui est apparu
(exsitait pas avant)
on me dit "etiquette non définie" au niveau Goto sortierapide
pouvez vous m'aider
voici l'extrait du programme

merci pour votre aide
jm

-----------------------------------b Macro19_cumuler()

'---
' permet de faire le total des comptes du sous total
'---

ActiveCell.Offset(-2, -2).Select

' on retourne faire le total

ActiveCell.Offset(2, 5).Select

' on inscrit la formule pour le total

ActiveCell.FormulaR1C1 = "=SUM(R[" & (-nbligne) & "]C:R[-1]C)"

' on vérifie que le total est <> 0 et qu'il y a plus d'une ligne

If ActiveCell.Offset(-2, -5) = "" And nbligne = 2 Then

Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(1, 0)).Select

Selection.EntireRow.Select
Selection.Delete Shift:=xlDown

GoTo sortierapide

End If

'On ajoute la mise en forme avec des traits

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 15
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 15
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone


End Sub


' on recopie la formule

' pour le bilan

If borne <= 600 Then

ActiveCell.Select
Selection.Copy
ActiveCell.Offset(0, 2).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 2).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
ActiveCell.Offset(0, 3).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

ActiveCell.Offset(2, -12).Select

Else


End If

sortierapide

End Sub

Bonjour

j ai créé un programme excel avec VBA mais j ai une erreur qui est apparu
(exsitait pas avant)
on me dit "etiquette non définie" au niveau Goto sortierapide
pouvez vous m'aider
voici l'extrait du programme

merci pour votre aide
jm

-----------------------------------b Macro19_cumuler()

'---
' permet de faire le total des comptes du sous total
'---

ActiveCell.Offset(-2, -2).Select

' on retourne faire le total

ActiveCell.Offset(2, 5).Select

' on inscrit la formule pour le total

ActiveCell.FormulaR1C1 = "=SUM(R[" & (-nbligne) & "]C:R[-1]C)"

' on vérifie que le total est <> 0 et qu'il y a plus d'une ligne

If ActiveCell.Offset(-2, -5) = "" And nbligne = 2 Then

Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(1, 0)).Select

Selection.EntireRow.Select
Selection.Delete Shift:=xlDown

GoTo sortierapide

End If

'On ajoute la mise en forme avec des traits

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 15
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 15
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone


End Sub


' on recopie la formule

' pour le bilan

If borne <= 600 Then

ActiveCell.Select
Selection.Copy
ActiveCell.Offset(0, 2).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 2).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
ActiveCell.Offset(0, 3).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

ActiveCell.Offset(2, -12).Select

Else


End If

sortierapide

End Sub

Bonjour
manque :

sortierapide:

devrait aller

Salutations
RaMa

"jean marie" <jean marie@discussions.microsoft.com> a écrit dans le message
de news: 14ED0CC9-20AD-498C-B931-3D4E9A5E6062@microsoft.com...

Bonjour

j ai créé un programme excel avec VBA mais j ai une erreur qui est apparu
(exsitait pas avant)
on me dit "etiquette non définie" au niveau Goto sortierapide
pouvez vous m'aider
voici l'extrait du programme

merci pour votre aide
jm

-----------------------------------b Macro19_cumuler()

'---
' permet de faire le total des comptes du sous total
'---

ActiveCell.Offset(-2, -2).Select

' on retourne faire le total

ActiveCell.Offset(2, 5).Select

' on inscrit la formule pour le total

ActiveCell.FormulaR1C1 = "=SUM(R[" & (-nbligne) & "]C:R[-1]C)"

' on vérifie que le total est <> 0 et qu'il y a plus d'une ligne

If ActiveCell.Offset(-2, -5) = "" And nbligne = 2 Then

Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(1, 0)).Select

Selection.EntireRow.Select
Selection.Delete Shift:=xlDown

GoTo sortierapide

End If

'On ajoute la mise en forme avec des traits

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 15
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 15
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone


End Sub


' on recopie la formule

' pour le bilan

If borne <= 600 Then

ActiveCell.Select
Selection.Copy
ActiveCell.Offset(0, 2).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 2).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
ActiveCell.Offset(0, 3).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

ActiveCell.Offset(2, -12).Select

Else


End If

sortierapide

End Sub

Bonsoir JM,
A priori,déjà
Ajoute deux points au bout de ton etiquette
sortierapide:
(uniquement à la ligne avant le End sub)


lSteph

"jean marie" <jean marie@discussions.microsoft.com> a écrit dans le message
de news: 14ED0CC9-20AD-498C-B931-3D4E9A5E6062@microsoft.com...

Bonjour

j ai créé un programme excel avec VBA mais j ai une erreur qui est apparu
(exsitait pas avant)
on me dit "etiquette non définie" au niveau Goto sortierapide
pouvez vous m'aider
voici l'extrait du programme

merci pour votre aide
jm

-----------------------------------b Macro19_cumuler()

'---
' permet de faire le total des comptes du sous total
'---

ActiveCell.Offset(-2, -2).Select

' on retourne faire le total

ActiveCell.Offset(2, 5).Select

' on inscrit la formule pour le total

ActiveCell.FormulaR1C1 = "=SUM(R[" & (-nbligne) & "]C:R[-1]C)"

' on vérifie que le total est <> 0 et qu'il y a plus d'une ligne

If ActiveCell.Offset(-2, -5) = "" And nbligne = 2 Then

Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(1, 0)).Select

Selection.EntireRow.Select
Selection.Delete Shift:=xlDown

GoTo sortierapide

End If

'On ajoute la mise en forme avec des traits

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 15
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 15
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone


End Sub


' on recopie la formule

' pour le bilan

If borne <= 600 Then

ActiveCell.Select
Selection.Copy
ActiveCell.Offset(0, 2).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 2).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
ActiveCell.Offset(0, 3).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

ActiveCell.Offset(2, -12).Select

Else


End If

sortierapide

End Sub

ca marche toujours pas
quoi faire docteur

Bonsoir JM,
A priori,déjà
Ajoute deux points au bout de ton etiquette
sortierapide:
(uniquement à la ligne avant le End sub)


lSteph

"jean marie" <jean marie@discussions.microsoft.com> a écrit dans
le message

de news: 14ED0CC9-20AD-498C-B931-3D4E9A5E6062@microsoft.com...

Bonjour

j ai créé un programme excel avec VBA mais j ai une erreur qui
est apparu

(exsitait pas avant)
on me dit "etiquette non définie" au niveau Goto sortierapide
pouvez vous m'aider
voici l'extrait du programme

merci pour votre aide
jm

-----------------------------------b Macro19_cumuler()

'---
' permet de faire le total des comptes du sous total
'---

ActiveCell.Offset(-2, -2).Select

' on retourne faire le total

ActiveCell.Offset(2, 5).Select

' on inscrit la formule pour le total

ActiveCell.FormulaR1C1 = "=SUM(R[" & (-nbligne) &
"]C:R[-1]C)"

' on vérifie que le total est <> 0 et qu'il y a plus d'une
ligne

If ActiveCell.Offset(-2, -5) = "" And nbligne = 2 Then

Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(1,
0)).Select

Selection.EntireRow.Select
Selection.Delete Shift:=xlDown

GoTo sortierapide

End If

'On ajoute la mise en forme avec des traits

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 15
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 15
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone


End Sub


' on recopie la formule

' pour le bilan

If borne <= 600 Then

ActiveCell.Select
Selection.Copy
ActiveCell.Offset(0, 2).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 2).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
ActiveCell.Offset(0, 3).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

ActiveCell.Offset(2, -12).Select

Else


End If

sortierapide

End Sub

ca marche toujours pas
quoi faire docteur

Bonsoir JM,
A priori,déjà
Ajoute deux points au bout de ton etiquette
sortierapide:
(uniquement à la ligne avant le End sub)


lSteph

"jean marie" <jean marie@discussions.microsoft.com> a écrit dans le
message
de news: 14ED0CC9-20AD-498C-B931-3D4E9A5E6062@microsoft.com...

Bonjour

j ai créé un programme excel avec VBA mais j ai une erreur qui est
apparu
(exsitait pas avant)
on me dit "etiquette non définie" au niveau Goto sortierapide
pouvez vous m'aider
voici l'extrait du programme

merci pour votre aide
jm

-----------------------------------b Macro19_cumuler()

'---
' permet de faire le total des comptes du sous total
'---

ActiveCell.Offset(-2, -2).Select

' on retourne faire le total

ActiveCell.Offset(2, 5).Select

' on inscrit la formule pour le total

ActiveCell.FormulaR1C1 = "=SUM(R[" & (-nbligne) & "]C:R[-1]C)"

' on vérifie que le total est <> 0 et qu'il y a plus d'une ligne

If ActiveCell.Offset(-2, -5) = "" And nbligne = 2 Then

Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(1, 0)).Select

Selection.EntireRow.Select
Selection.Delete Shift:=xlDown

GoTo sortierapide

End If

'On ajoute la mise en forme avec des traits

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 15
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 15
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone


End Sub


' on recopie la formule

' pour le bilan

If borne <= 600 Then

ActiveCell.Select
Selection.Copy
ActiveCell.Offset(0, 2).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 2).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
ActiveCell.Offset(0, 3).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

ActiveCell.Offset(2, -12).Select

Else


End If

sortierapide

End Sub