XL 2010 Erreur de depassement (Résolu)

jecherche

XLDnaute Occasionnel

• 19 Octobre 2016

• #2

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

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 19 Octobre 2016

• #3

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

 

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 19 Octobre 2016

• #4

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.

 

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 19 Octobre 2016

• #5

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.

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 19 Octobre 2016

• #6

Re,

remplacer : n As Integer
par : n As Long

Cordialement, Gérard

 

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 19 Octobre 2016

• #7

ok je teste ca de suite merci

 

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 19 Octobre 2016

• #8

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.

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 19 Octobre 2016

• #9

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 ...

 

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 19 Octobre 2016

• #10

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.

 

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 19 Octobre 2016

• #11

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.

Code:

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

 

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 19 Octobre 2016

• #12

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.

 

Vote positif 0 Vote négatif