Erreur 6 depassement de capacite

[gds35]

Mes AMIS du Forum bonsoir ,

je cherche a tester l'erreur 6 dans un Private sortir de la boucle et afficher mon prg principal si c'est le cas impossible d'y arriver..... Quelqu'un peut'il m'aider merci et bonne soirée.

Cordialement GDS35

 

[Pierrot93]

Re : Erreur 6 depassement de capacite

Bonjour Gds

manque un peu de détails non.... pourtant depuis le temps que tu viens ici... allez 1 seule réponse...

If Err.Number = 6 Then Exit For

bonne soirée
@+

 

[Guest]

Re : Erreur 6 depassement de capacite

Bonsoir le fil,

Hello Pierrot!🙂

@gds

manque un peu de détails non....

Je plussoie.
C'est ça qui a provoqué une "Erreur 6 dépassement de capacité" chez moi.

A+

 

[gds35]

Re : Erreur 6 depassement de capacite

Bonjour Pierrot , Hascot et le forum ,
Je vous joins le p'tit bout de code (Pas catholique .... Vont me dire les puristes...) mais bref il marche tant que je ne rajoute pas une autre feuille pour mettre des cellules a blanc et la il en erreur dans LigRE = LigRE + 1
Private Sub VALDELRU_Click()
'
On Error GoTo ANNULRURE
'
If DELBOXNOMPRENOMRU.Value = "" Then
Message = MsgBox(" AUCUN CHOIX DE NOM N'A ETE FAIT" & vbCrLf & _
" CHOISIR LE RU A SUPPRIMER DANS LA LISTBOX", vbCritical + vbYes, "ERREUR !!!")
'
Else
'
Alerte = MsgBox(" ATTENTION !!! VOUS ALLEZ SUPRIMER" & vbCrLf _
& vbCrLf & " LE RU : " & DELBOXNOMPRENOMRU & vbCrLf _
& vbCrLf & " ClIC SUR OUI POUR CONFIRMER" & vbCrLf _
& vbCrLf & "SI CLIC SUR NON = RETOUR MENU PRINCIPAL" & vbCrLf _
, vbInformation + vbYesNo)
'
If Alerte = vbYes Then
MAJRECC = DELBOXNOMPRENOMRU.Value
NUMRU = DELBOXIDRU2.Value
Cells(LDRU, 1).EntireRow.Delete
'
' COPIE DU RU SUPPRIME DANS LA FEUILLE "DELRU"
'
Sheets("DELRU").Select
Dim LIGLDRU As Long ' LIGLDRU = N0 DE LA LIGNE
LIGLDRU = Range("A65536").End(xlUp).Row + 1
Range("A" & LIGLDRU) = MAJRECC
Range("B" & LIGLDRU) = DateValue(Now)
Range("C" & LIGLDRU) = Time
Range("D" & LIGLDRU) = "RU" & NUMRU
'
' ANNULATION DU RU SUPPRIME DANS LA FEUILLE "CC"
'
Sheets("CC").Select
LigCC = 3
'
MAJCC:
'
If Range("K" & LigCC).Value <> MAJRECC Then
LigCC = LigCC + 1
GoTo MAJCC
'
Else
'
Range("I" & LigCC).Value = ""
Range("J" & LigCC).Value = ""
Range("K" & LigCC).Value = ""
LigCC = LigCC + 1
'
GoTo MAJCC
'
' ANNULATION DU RU SUPPRIME DANS LA FEUILLE "RE"
'
ANNULRURE:
'
Sheets("RE").Select
LigRE = 3
'
On Error GoTo SORTIERURECC
'
MAJRU:
'
If Range("H" & LigRE).Value <> MAJRECC Then
LigRE = LigRE + 1
GoTo MAJRU
'
Else
'
Range("F" & LigRE).Value = ""
Range("G" & LigRE).Value = ""
Range("H" & LigRE).Value = ""
LigRE = LigRE + 1
'
GoTo MAJRU
'
SORTIERURECC:
'
Sheets("MENU").Select
MENUPRINCIPAL.Show
'
End If
End If
End If
End If
End Sub

tant que je ne serais pas pas resterais un novice en vba ...... le temps me manque mais cela vient.

Cordialement GDS35