Discussion :

[toushusss]

Bonjour, Merci tout d'abord à tous ceux qui mon énormement aidé.
Vous êtes vraiment des pros. ( Grace à vous je débuté en VBA il ya 2 semaines et la j'ai beaucoup progressé.)

Toutefois pourrais je avoir une explication détaillé de ce code que j'utilise.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
ligne = .Range("B" & .Rows.Count).End(xlUp).Row
    Set Tot = .Range("b10:b" & ligne).Find("TOTAL")
 
    .Range("A" & Tot.Row).Insert Shift:=xlDown
    .Range("A" & Tot.Row) = TextBox1.Text

Ce code me permet d'inserer automatiquement entre 2 lignes une ligne de saisie. Trés utile pour moi. Cependant j'aimerai comprendre comment fonctionne ce code et avoir des détails sur chaque ligne (si possible bien sur)
Merci beaucoup

[patricktoulon]

bonjour


Explication

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
ligne = la derniere ligne utilisée dans la colone ben entier  en partant d'en bas
ligne = .Range("B" & .Rows.Count).End(xlUp).Row

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
tot = la celule ou ce trouve ("total" a partir de la ligne 10 dans la colonne b
 Set Tot = .Range("b10:b" & ligne).Find("TOTAL")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
inserer une ligne au niveau de range ("a" & la ligne ou ce trouve "total"
  .Range("A" & Tot.Row).Insert Shift:=xlDown

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
la celule (A"& cette ligne en question )prend la valeur du textbox1 
 .Range("A" & Tot.Row) = TextBox1.Text

au plaisir

[toushusss]

Merci pour l'explication. Ca me permet d'avancer