D
denis
Guest
Bonsoir à tous
pour faire simple
je renseigne avec des Usf
j'ai 3 feuilles une matin une soir et une récape : avec un comandbutton j'active le matin ou le soir et par formule condition. sur le récape, pour une ligne ça va, mais pour faire des copies incrementés la tin-tin
j'ai bien la formule, mais elle marche que pour la feuille nomée
ligne = Sheets("recape").Range("A3650").End(xlUp).Row + 1
Cells(ligne, 1).Value = txtDate
Cells(ligne, 2).Value = TextNsm
Cells(ligne, 4).Value = ComboBox73
Cells(ligne, 6).Value = TextBox1
Cells(ligne, 7).Value = TextBox2
Cells(ligne, 8).Value = TextBox69
Cells(ligne, 9).Value = TextBox70
Cells(ligne, 10).Value = ComboBox51
Cells(ligne, 11).Value = ComboBox52
Cells(ligne, 12).Value = ComboBox42
Cells(ligne, 13).Value = ComboBox49
Cells(ligne, 14).Value = ComboBox43
Cells(ligne, 15).Value = ComboBox50
Cells(ligne, 16).Value = ComboBox44
Cells(ligne, 17).Value = ComboBox45
Cells(ligne, 18).Value = ComboBox46
Cells(ligne, 19).Value = ComboBox47
Cells(ligne, 20).Value = ComboBox48
Cells(ligne, 21).Value = TextBox63
si quelqu'un à la soluce
Merci
pour faire simple
je renseigne avec des Usf
j'ai 3 feuilles une matin une soir et une récape : avec un comandbutton j'active le matin ou le soir et par formule condition. sur le récape, pour une ligne ça va, mais pour faire des copies incrementés la tin-tin
j'ai bien la formule, mais elle marche que pour la feuille nomée
ligne = Sheets("recape").Range("A3650").End(xlUp).Row + 1
Cells(ligne, 1).Value = txtDate
Cells(ligne, 2).Value = TextNsm
Cells(ligne, 4).Value = ComboBox73
Cells(ligne, 6).Value = TextBox1
Cells(ligne, 7).Value = TextBox2
Cells(ligne, 8).Value = TextBox69
Cells(ligne, 9).Value = TextBox70
Cells(ligne, 10).Value = ComboBox51
Cells(ligne, 11).Value = ComboBox52
Cells(ligne, 12).Value = ComboBox42
Cells(ligne, 13).Value = ComboBox49
Cells(ligne, 14).Value = ComboBox43
Cells(ligne, 15).Value = ComboBox50
Cells(ligne, 16).Value = ComboBox44
Cells(ligne, 17).Value = ComboBox45
Cells(ligne, 18).Value = ComboBox46
Cells(ligne, 19).Value = ComboBox47
Cells(ligne, 20).Value = ComboBox48
Cells(ligne, 21).Value = TextBox63
si quelqu'un à la soluce
Merci