[VBA-E] pb avec spinbutton

bon ben j'ai repris ton premier code que tu m'as envoyé lio_matos
j'ai viré le spinbutton car c trop galère
le code fonctionnait avec ton fichier je coller le code dans le mien et ca plantait erreur 380 donc j'ai pas de solution je peux pas y passer ma vie dommage.
tu vois dans le userf il y a deux fois la date et bien il y en a un ou j'ai appliqué ton code et dans l'autre aucun problème .. bizarre

un grand merci ouskel... j'ai encore plein de projets en tête



:lahola:

Résolu ? C'est pas vrai ! Et le bouton, alors ?

ben si tu veux c résolu parce que j'ai viré le spinbutton et là plus de pb alors je mets résolu ?

c'est incompréhensible le meme code (pour le spinbutton) dans un environnement similaire et il plante dommange il n'y a pas un autre bouton qui eurait les memes fonctions que le spinbutton?

merci a+

Non, si tu ne considères pas la discussion comme résolue, alors ne mets pas résolu... ;)
C'est le splinbutton qui t'embête ?
Pour me déplacer (sur une grosse base) j'utilise un ascenseur mais je pense que tu auras le même pb.
Comme ça fonctionne chez moi et apparemment chez toi sur mon fichier (?)... je ne comprends pas.

BONSOIR OUSKEL

Come cela fonctionne sans le spin
ben tu sais plus haut je t'ai dit sur le lio61_matos y avait la cb9 qui ne fonctionnait pas enfin y avait pas de laison avec les autres amis bon le code que j'utilise actuellement pas de pb mais pas de spin

je vais rentrer a nouveau le code pour le spin et après je verrai..... enfin je te ferai voir si pb :oops:
c c de coincer la dessus tous les pb ont été résolus en amont j'ai quaiment fini ce fichier j'ai bien dit ce fichier !:lol: :mrgreen:

merci a +

re bonsoir ouskel

lorque j'inhibe ces lignes de commandes

Code:

---

1 2 3 4 5

With SpinButton1 .Min = 1 .Max = Dernièreligne .SmallChange = 1 End With

---

le userf se lance autrement il plante erreur 380 "impossible de definir la propriete listindex valeur de propriété non valide
mais dés qu'il est lancé et que je clique sur la fleche du haut du spinbutton j'ai a nouveau l'erreur 380
pour info tout a l'heure le code a fonctionné devant mes yeux ebahis jusqu'a je me trouve je pense etre positionné sur la ligne la plus haute

Code:

---

1 2 3 4 5 6 7

Sub laprocedure(Lindex) Dim lecontrol As Object For Each lecontrol In ATESTER.Controls If InStr(lecontrol.Name, "cbox") = 1 Then ATESTER.Controls(lecontrol.Name).ListIndex = Lindex ' --> lignepb End If Next

---

End Sub

merci a +

bonjour ouskel je te joins le fichier matos

tu verras lorsque tu cliques sur le bouton de gauche au moment ou tu arrives vers la fin de la bd il plante erreur 380 autrement ca semble fonctionnnait
je rève:lol:


merci a+

ben vérifie les limites de ton index ... listIndex doit être inférieur à listCount - 1...

Hello
Bon, j'ai regardé ton code
Déjà, relis ce que tu as mis, là. En faisant ça, tu fais 498 fois la même chose
Tu parts d'Activecell et tu arrive sur le même activecell
Regarde si en remplaçant activecell par Cellule ça fait ce que tu veux, moi, j'ai rien compris. :aie:

Code:

---

1 2 3 4 5 6 7 8

[i65536].End(xlUp).Select For Each cellule In Range("i2:i500") If ActiveCell.Offset(1, -1) <> "" Then ActiveCell.EntireRow.Offset(0, 0).Range("i1:m1").Copy ' Select ActiveCell.Offset(1, 0).PasteSpecial Else End If Next

---

Quant à tes essais avec le code de mon fichier, si tu appliques mon code, modifie au moins le nom de la feuille de calculs ("Feuil1" dans la dernier fichier que je t'ai passé au lieu de "bd" dans ton classeur)
Je t'envoie le fichier qui m'a servi à tester le code, auquel j'ai appliqué les modifs existantes sur ton propre fichier (hors mis le code ci-dessus) pour ne pas avoir à rechercher plus loin le bug dans le tien... Bref, je n'ai pas trouvé le problème. donc, une nouvelle fois Pièce jointe 9291
A+

bonjour,
pour le premier c tout ce que je sais faire :lol: :lol:
j'ai pas saisi pour cellule pour le second je rereteste le fichier
merci a+

Alors je dis quoi ????????

:yaisse: :yaisse:


:lahola:

:merci:


(sauf pour cellule):( :oops:


A............................très bientôt

Lionel

Citation:

---

(sauf pour cellule):( :oops:

---

Que veux-tu faire ? zat iz ze kestion !
A+

salut

remplir les portions de lignes vides d'équipe a fin de vacation pour moi la, ca tourne mais bon c pas rationnel :lol: :mouarf: :oops:

Tu peux faire une procédure appelée à la fermeture ou à l'ouverture de ton fichier. Elle consisterait à consulter ta/tes colonnes à compléter.
Le principe :
Lire les cellules de la colonne, si une cellule est vide, on copie le contenu de la cellule du dessus.
Tu peux faire ça pour toutes les colonnes que tu veux
Tu réfléchis à ça, tu testes et si tu as un pb, tu dis... mais pas avant
Propose quelque chose, il est temps que tu testes ce que tu sais :mouarf:
A+

bon je vais voir ca mais pour une fois que je trouvais quelquechose tout seul:lol: c pas d'bol