simplification de codes

[Akeya06]

Bonjour à vous toutes et tous,

J'aimerais savoir s'il est possible de remplacer un code dans mon fichier par un code + général. En voyant tout ca dans le fichier joint je pense que tout sera plus clair...
D'avance merci à vous...
Akeya06

 

[Akeya06]

Bon on va faire plus simple, car je crois que ca viens de winace qui n'est pas compatible... et de moi aussi,

J'aimerais savoir quel est le code pour activer une feuille lors d'un clic sur un commandbutton d'un USF, et ensuite si on pouvait simplifier ce code

voici mon bout de code :

Dim derlgn As Integer

With Worksheets('Réservation')
Je voudrais remplacer ces bouts de code en rouge par un code + général, c'est à dire avec la feuille active
derlgn = .Range('A65536').End(xlUp).Row + 1
.Cells(derlgn, 1) = TextBox2.Value
.Cells(derlgn, 2) = TextBox1.Value
.Cells(derlgn, 3) = TextBox3.Value
.Cells(derlgn, 4) = TextBox4.Value
End With

Sheets('Réservation').Select
Columns('A').Select
Selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Key2:=Range('C2') _
, Order2:=xlAscending, Key3:=Range('B2'), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers, DataOption2:=xlSortNormal, DataOption3 _
:=xlSortNorm

Merci, merci, merci...
Akeya06 :unsure:

Message édité par: akeya06, à: 30/09/2005 00:39

 

[Hervé]

bonsoir akeya, le forum



Pour activer une feuille : sheets('nomdetafeuille').select

pour travailler sur la feuille active :

With ActiveSheet
............
end with

salut

 

[_Thierry]

Bonjour Hervé, Akeya, le Forum

Tiens on ne t'avait pas vu depuis longtemps Akeya, je t'attends toujours pour l'apéro

En fait on peut aussi (selon les objects manipulés sur la feuille) ne pas préciser quoique ce soit.

derlgn = Range('A65536').End(xlUp).Row + 1
Cells(derlgn, 1) = TextBox2.Value

Il est par contre tout de même plus académique (et plus lisible)d'appliquer le conseil de mon ami Hervé. (et parfois c'est carrément obligatoire aussi, mais pour un Objet Range, ou Cells la feuille active est implicitement comprise par VBA par défaut)

Bonne Journée
[ol]@+Thierry[/ol]

 

[Akeya06]

Salut Hervé, Thierry, le forum...

Tout d'abord merci pour vos réponse. Elle me sont bien précieuses. Pour le reste je vois avec grand plaisir que le forum s'est agrandit et qu'il y règne encore et toujours, comme un esprit de famille. Pour répondre àtes questions, effectivement, j'ai eu un PC à la poubelle car l'alim a brulée et une bonne partie du PC avec. :S
Et pour l'apéro, il n'y a aucun problème, ce sera avec un grand plaisir. Reste juste à nous mettre d'accord sur une date ...

Ca fait plaisir d'être de retour parmi vous toutes et tous....
Akeya06