XL 2010 Erreur de depassement (Résolu)

[RoyalP]

Bonjours a tous, j'ai besoin de vos lumieres car les mienes commencent a s'eteindre progressivement (Comme dirait l'autre il a pas la lumiere a tous les étages )

Dans le cadre de mon stage, je suis en train de realisé un gestionnaire de contact pour la société.
J'ai un userform ou je permet a l'utilisateur d'avoir plusieur criteres de recherche mais dés que j'entre une lettre dans le textbox1 (CTNom , j'obtient une erreur de depassement 6 ) alors que si je fait la meme chose avec Fiche_le , ca fontionne !!!! j'ai beau changer les variables en long, integer, ou meme variant , rien n'y fait , j'ai toujours cette fameuse erreur.

je vous joint le fichier qui sera plus parlant pour les pros.

Merci d'avance

 

[jecherche]

Bonjour,

Change : Dim Ligne As Integer pour : Dim Ligne As Long

Ensuite, il restera à corriger sous le DO. Car, le trouvé est en colonne B, laquelle ne peut pas avoir un offset de -7 à la colonne.



Jecherche

 

[natorp]

Bjr RoyalP

remplace l'existant par :

Private Sub CTNom_Change()
Dim Plage As Range, cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Long, n As Integer
Dim C As Range
Objet1.Clear
n = 0
Recherche = CTNom.Value
Range("B4").Select
Ligne = Sheets("Contact").Range("B65536").End(xlUp).Row
Set Plage = Sheets("Contact").Range("B" & "1:" & "B" & Ligne)
With Plage
Set C = .Find(Recherche, , xlValues)
If Not C Is Nothing Then
Adresse = C.Address
Do
If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
Objet1.AddItem C.Offset(0, 0), n
Objet1.List(n, 0) = C.Offset(0, 0)
Objet1.List(n, 1) = C.Offset(0, 1)
Objet1.List(n, 2) = C.Offset(0, 2)
Objet1.List(n, 3) = C.Offset(0, 3)
Objet1.List(n, 4) = C.Offset(0, 4)
Objet1.List(n, 5) = C.Offset(0, 5)
Objet1.List(n, 6) = C.Offset(0, 6)
Objet1.List(n, 7) = C.Offset(0, 7)
Objet1.List(n, 8) = C.Offset(0, 8)

n = n + 1
End If
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With
End Sub

Cordialement, Gérard

 

[RoyalP]

MERCIIIII, ca faisait 4 heures que je m'estropiais le peu de cervelle qui me reste pour trouver mon erreur !!!

GENIAL, je vais voir pour finir le reste.

 

[RoyalP]

petit probleme, quand je supprime le texte rentré dans le CTNom ca plante excel, si chez vous ca ne le fait pas c'est surement le vieux coucou de portable qui commence a rendre l'ame.

 

[natorp]

Re,

remplacer : n As Integer
par : n As Long

Cordialement, Gérard

 

[RoyalP]

ok je teste ca de suite merci

 

[RoyalP]

ca marche pas , quand j'efface soit le premier chiffre ou lettre rentré , il tourne en rond et apres me rend la main sur l'userform.
Merci de votre aide , je partagerais le fichier finale pour ceux que ca interresse.

 

[natorp]

Je ne comprends pas, ça marche ou pas, car pour moi aussi, après la modif, le sablier tourne et j'ai de nouveau la main sur le userform pour entrer une nouvelle valeur ...

 

[RoyalP]

je vais tester ca chez moi , je pense que ca vient du pc au stage.Merci pour ton aide je te tiendrais au courant demain matin.

 

[jecherche]

Bonjour,

Quelques corrections mineures.
Dans ta feuille "Contact", il restait des enregistrements épars dont aux lignes 4433 et 44334.
Pour les trouver, sélectionne disons B20 (selon exemple fournie), frappe la touche Fin (End), puis frappe la touche "bas" (flèche de directivité pointant vers le bas). Répète l'opération pour trouver les autres lignes.

Private Sub CTNom_Change()
Dim Plage As Range, cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Long, n As Long
Dim C As Range

Objet1.Clear
n = 0
Recherche = CTNom  ' ici, il y avait .value, or, ce n'est pas une valeur mais une chaine
Range("B4").Select
Ligne = Sheets("Contact").Range("B" & "65536").End(xlUp).Row
Set Plage = Sheets("Contact").Range("B4:B" & Ligne)  ' ici c'était B1 au leur de B4
With Plage
Set C = .Find(Recherche, , xlValues)
If Not C Is Nothing Then
Adresse = C.Address
Do
   If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
      Objet1.AddItem C.Offset(0, 0), n
      Objet1.List(n, 0) = C.Offset(0, 0)
      Objet1.List(n, 1) = C.Offset(0, 1)
      Objet1.List(n, 2) = C.Offset(0, 2)
      Objet1.List(n, 3) = C.Offset(0, 3)
      Objet1.List(n, 4) = C.Offset(0, 4)
      Objet1.List(n, 5) = C.Offset(0, 5)
      Objet1.List(n, 6) = C.Offset(0, 6)
      Objet1.List(n, 7) = C.Offset(0, 7)
      Objet1.List(n, 8) = C.Offset(0, 8)
      n = n + 1
   End If
   Set C = .FindNext(C)
   Loop While Not C Is Nothing And C.Address <> Adresse
   End If
End With
End Sub

jecherche

 

[RoyalP]

j'ai refait ma feuille contact en partant d'une feuille vierge et la CA MARCHE NICKEL.

Franchement merci, ca m'avance super bien pour mon projet.

MERCI.