Range par trimestre

[denis-J]

Bonsoir à tous

je suis sous Excel 2000
Ma question du soir: ma formule marche bien, mais il doit bien avoir une formule plus simple.
je renseigne avec un userform 3 textbox et il ce classe par trimestre en fonction du N° qui et dans le TextNrt.
voila si quelqu'un a la soluce je le remerci d'avance.
@+
Denis


If TextNrt.Value = 1 Then
ThisWorkbook.Sheets("1er Trim").Activate
ligne = Sheets("1er Trim").Range("A9").End(xlUp).Row + 1
Cells(ligne, 1).Value = txtDate1
Cells(ligne, 2).Value = TextNsm
Cells(ligne, 3).Value = TextNrt
End If


If TextNrt.Value = 2 Then
ThisWorkbook.Sheets("2ème Trim").Activate
ligne = Sheets("2ème Trim").Range("A9").End(xlUp).Row + 1
Cells(ligne, 1).Value = txtDate1
Cells(ligne, 2).Value = TextNsm
Cells(ligne, 3).Value = TextNrt
End If

If TextNrt.Value = 3 Then
ThisWorkbook.Sheets("3ème Trim").Activate
ligne = Sheets("3ème Trim").Range("A9").End(xlUp).Row + 1
Cells(ligne, 1).Value = txtDate1
Cells(ligne, 2).Value = TextNsm
Cells(ligne, 3).Value = TextNrt
End If

If TextNrt.Value = 4 Then
ThisWorkbook.Sheets("4ème Trim").Activate
ligne = Sheets("4ème Trim").Range("A9").End(xlUp).Row + 1
Cells(ligne, 1).Value = txtDate1
Cells(ligne, 2).Value = TextNsm
Cells(ligne, 3).Value = TextNrt
End If


Unload UserForm1

End Sub

 

[@+Thierry]

Salut DEnis

Tu n'as pas préciser quelle évènement déclenche cette macro... (?) On fera comme si c'est un CommandButton....

essaies ceci (sans test, mais bon ce devrait marcher)

Select Case TextBoxNrt
Case 1
Feuille = "1Trim"
Case 2
Feuille = "2Trim"
Case 3
Feuille = "3Trim"
Case 4
Feuille = "4Trim"
End Select

ThisWorkbook.Sheets(Feuille).Activate
ligne = Sheets(Feuille).Range("A9").End(xlUp).Row + 1
With Sheets(Feuille)
.Range(ligne, 1).Value = txtDate1
.Range(ligne, 2).Value = TextNsm
.Range(ligne, 3).Value = TextNrt
End With

(NB attention tout de même à mettre un test dans ta TextBox pour être sûr que l'on tape bien un chiffre de 1 à 4.... Ptet des OptionButtons ou un ToggleButton seraient plus appropriés...)

Bonne Soirée
@+Thierry

 

[denis-J]

Bonsoir à tous

Merci Thierry je m'y colle de suite, c'est bien un CommandButton qui déclanche la macro.
C'esr vrai que c'est Bcp plus court. Sympa

@+ denis

 

[Jacques]

Bonsoir Denis
si tu remplaces dans la proposition de Thierry

Select Case TextBoxNrt
Case 1
Feuille = "1Trim"
Case 2
Feuille = "2Trim"
Case 3
Feuille = "3Trim"
Case 4
Feuille = "4Trim"
End Select

Par

Feuille = Format(textbox)&"Trim"

Bonne nuit à tous

 

[@+Thierry]

Salut Jacque

Oui tu as tout à fait raison, moi je suis partie sur des possibilité de Togle ou d'Option Button etc.. mais tel quel avec des TextBox c'est vrai que Select Case est une peu disproportionné!
D'ailleurs en partant de ce principe on peut même aller encore plus direct

Feuille = TextNtr & "Trim"

Bonne nuit
@+Thierry