Dépassemenr de capacité

Bonsoir,

Une question sur un fichier de Mimimathy en réponse à une question de Ruby57 Recherche rapide dans colonne - #8 par Rubis57

Sur le fichier (Rubis57 (1).xlsm), si l’on veut utiliser Ctrl + A pour reformater les colonnes par exemple, on génère un dépassement de capacité

Erreur d'exécution '6'
Dépassement de capacité

En cliquant sur débogage, on obtient :

Si quelqu’un à le pourquoi du comment, j’achète :wink:

Bonne soirée,
Cordialement.

Bonjour,
en sélectionnant plusieurs cellules dont C5, c’est normal que cela bug, puisque tu ne respecte pas ne nombre de cellule (target.count=1)
Dans ce cas, tu peut placer juste avant

if target.count>1 then exit sub

Bonjour Mimimathy,

Merci pour la réponse. Il est vrai que cela est normal si on analyse bien l’instruction. :wink:

Par contre je viens de tester, cela me renvoie toujours le même message d’erreur. le débogage surligne : If Target.Count > 1 Then

J’ai insérer l’instruction juste avant :

If Not Intersect([C5], Target) Is Nothing And Target.Count = 1 Then

Je ne comprends pas.
Cordialement

Re,
Place toute ta macro dans le post

Re,

Dim a() 'Déclaration variable
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
'Il faut modifier la propriété MatchEntry du ComboBox5 à FrmMatchEntryNone pour l’intuitif
If Not Intersect([C5], Target) Is Nothing And Target.Count = 1 Then 'En se plaçant sur la cellule C5
Me.ComboBox5.Value = «  » 'Je vide le combobox
a = Sheets(« Feuil1 »).Range(« Article »).Value 'Je charge la liste des articles (voir dans le gestionnaire de noms pour la dynamique)
Me.ComboBox5.List = a 'Je charge le combobox avec les articles
Me.ComboBox5.Height = Target.Height + 3 'Hauteur du combobox
Me.ComboBox5.Width = Target.Width 'largeur du combobox
Me.ComboBox5.Top = Target.Top 'Position du haut combobox
Me.ComboBox5.Left = Target.Left 'position à gauche du combobox
Me.ComboBox5 = Target 'combobox est égal à la cellule (Target)
Me.ComboBox5.Visible = True 'Je rend visible le combobox
Me.ComboBox5.Activate 'Je l’active
Me.ComboBox5.DropDown ’ ouverture automatique au clic dans la cellule (optionnel)
UneLigneSurDeux 'Je lance la macro pour remettre la couleur une ligne sur deux
Else 'Sinon
Me.ComboBox5.Visible = False 'je masque le combobox
End If
End Sub

Cordialement

Re
ta cellule C5 est seule ou fusionnée avec une autre ?

re,
Elle est seule.
C’est ton fichier du post 7 de la discussion Recherche rapide dans colonne - #12 par Rubis57
Cordialement

Re,
Teste en plaçant

On Error Resume Next

à la place de if target.count>1 then exit sub

Re,

Je viens de tester, cela ne plante plus mais affiche le combobox en A1 sans sélectionner la feuille.
Cordialement.

Edit :

En suivant ton raisonnement, j’ai testé :

On Error GoTo fin

Cela fonctionne.
Merci pour tes conseils et éclaircissements.
Bonne journée.
Cordialement.