Bascule D flip flop + Piezo sujet

Bonjour à vous,

Il y a quelques jours, un ami m'a demandé comme réaliser un circuit électrique qui bascule d'une led à une autre en fonction d'un choc. Je n'ai pas beaucoup de compétences en électronique mais il m'a semblé que c'était possible avec une bascule D (ou Flip FLop) et un piézo.
Après quelques recherches et achats j'ai donc réalisé un rapide circuit sur une breadboard.

Pièce jointe 246111

J'ai donc relié mes deux diodes aux sorties Q et /Q.
J'ai connecté mon piézo à la Clock
Et j'ai bouclé la sortie /Q sur D.

La première fois j'ai obtenu un circuit qui marchait. En donnant une pichnette sur mon piezo, une des 2 leds s'étaignait et l'autres s'allumait. Et ainsi de suite. Mais je me dis maintenant que j'ai peut être eu de la chance. Car après j'ai construit un vrai circuit imprimé et j'ai soudé mes composants et ça ne marche plus. Même en retestant sur ma breadboard, plus rien ne marche.

Pourriez vous m'éclairer ?

Images attachées

• 
  
  image.png‎
  (6,4 Ko)
  

[XL-2000] Bascule de données d'une feuille vers une autre sujet

Bonjour,

En activant un bouton d'un formulaire, je souhaite réaliser un couper-coller d'une feuille vers une autre (les 2 étant dans un même classeur).

La feuille de départ se nomme "LISTE", la feuille cible "ARCHIVAGE" :

Pour cela, j'ai codé :

Code:

---

Private Sub b_init_Click()

  ' Archivage des lignes de colisage déjà traitées
 
  Dim LastLig As Long, NewLig As Long
  Dim sh As Worksheet
 
  Worksheets("ARCHIVAGE").Unprotect Password:="1234"
 
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
 
  Set sh = Worksheets("ARCHIVAGE")
  ' Détermination de la dernière ligne disponible sur la feuille n°2 (Archive)
  NewLig = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row + 1
 
  With Worksheets("LISTE")
    .AutoFilterMode = False
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    .Range("A4:X" & LastLig).SpecialCells(xlCellTypeVisible).Copy
    sh.Range("A" & NewLig).PasteSpecial xlAll
    .Range("A4:A" & LastLig).EntireRow.Delete
    Application.CutCopyMode = False
    .AutoFilterMode = False
  End With
 
  Set sh = Nothing
 
  Worksheets("ARCHIVAGE").Protect Password:="1234"
 
  Application.Calculation = xlCalculationAutomatic
 
  Worksheets("LISTE").Activate
 
  MsgBox "Bascule vers en l'archivage effectuée !"
 
  'lig = Worksheets("LISTE").Range("A65536").End(xlUp).Row
  'Worksheets("LISTE").Range("A4:M" & lig).ClearContents
 
End Sub

---

Après l'activation du bouton, les cellules ne sont pas coupées. Elles le sont seulement lorsque je quitte le formulaire.

D'où cela peut-il provenir ?

Julien.