Discussion :

[chocho1990]

Bonjour si quelqu'un peut m'aidé sur cette erreur Erreur d'éxecution '6' - Dépassement de capacité

voici mon programme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub fusionnerV()
Dim Lig As Byte, Deb As Byte
'fige le défilement de l'écran:confort et rapidité
Application.ScreenUpdating = False
'empèche le message d'avertissement de fusion de cellules
Application.DisplayAlerts = False
For Lig = 1 To 100
'Si cellule du dessous =cellule en cours
If Cells(Lig, "F") = Cells(Lig + 1, "F") Then
Deb = Lig 'mémorise la ligne de départ de fusion
 
'Incrémente la ligne jusqu'à fin de condition =
Do
Lig = Lig + 1
Loop Until Cells(Lig, "F") <> Cells(Lig + 1, "F") //////////////////// ligne qui pose probléme
 
'fusionne le bloc des cellules adjacentes =
With Range(Cells(Deb, "F"), Cells(Lig, "F"))
.MergeCells = True
.VerticalAlignment = xlCenter
End With
End If
Next
 
Application.DisplayAlerts = True
'encadre la nouvelle présentation
Range("F1:F100").Borders.Weight = xlThin
 
End Sub

[Promethee25]

Bonjour,

Ta boucle Do-loop doit probablement t'amener à dépasser 255, ce qui est la limite du type Byte que tu as choisi pour tes numéros de ligne.

[chocho1990]

merci pour ta reponse mais comment resoudre ce probléme j'ai déja esseyer integer la meme chose

[Promethee25]

Erreur 6 ou 1004?
Potentiellement tu débordes du fichier car ta condition de boucle est risquée (continue pour les cases vides).

[chocho1990]

erreur 6 oui il deborde mais comment regle ça

[Promethee25]

Erreur 6 car Integer sature à 32767; à 32768 tu débordes.
Tu peux mettre Long mais tu auras alors l'erreur 1004 car tu vas arriver en bout de fichier et dépasser le nombre de lignes de ton onglet Excel.
C'est ta boucle While qu'il faut revoir ou supprimer. L'erreur originelle n'est pas le choix du type mais l'algo qui n'est pas bon. Pose-toi bien la question de ce que tu veux faire (et explique-le nous si tu veux plus d'aide).