Prochaine cellule vide dans une autre feuille

[Borello]

Bonjours à tous!

Actuellement sur ma feuille, je travaille avec des 'commandButtons' pour accéder aux divers comptes dans lesquels j'y inscrits des chiffres.

Private Sub GoBilanA_Click()
Dim L As Integer
L = Range('E14').End(xlUp).Row+1
Range('E' & L).Select
End Sub

Celà fonctionne très bien. Mais ça se gâte si je veux le faire sur une autre feuille!!
Quel est l'instruction à donner pour faire exécuter ma commande sur une autre feuille??

Merci d'avance
A+ 🙂

 

[Robert]

Bonjour Borello, bonjour le forum,

Presque pareil... mais il faut commencer par sélectionner l'autre onglet (feuille).

Private Sub GoBilanA_Click()
Sheets('Autre_Onglet').Select
Dim L As Integer
L = Range('E14').End(xlUp).Row+1
Range('E' & L).Select
End Sub

 

[Borello]

Hello Robert !

Merci.

J'y avais déjà pensé, mais il me fait un'1004 méthode sélect de la classe Range à échoué'.
Si j'exécute depuis la bonne feuille, cela fonctionne bien. Mais ça ne me sert à rien....
A+ 🙂

 

[Robert]

Bonjour Borello, bonjour le forum,

Je suis désolé car en principe je teste toujours avant d'envoyer une réponse. Là, j'ai voulu faire le malin et paf ! dans ma gueule de naze...

Change
Range('E' & L).Select
par
ActiveSheet.Range('E' & L).Select

 

[Borello]

Hello!

J'ai encore quelque chose d'incompréhensible qui se passe.

La CommandButton1 de la 'feuille 1':
Private Sub CommandButton1_Click()
Sheets('Bilan').Select
Dim L As Integer
L = Range('E15').End(xlUp).Row + 1
ActiveSheet.Range('E' & L).Select
End Sub
devrait fonctionner de la même manière que la CommandButton2 de la feuille 'Bilan':
Private Sub CommandButton2_Click()
Dim L As Integer
L = Range('E15').End(xlUp).Row + 1
Range('E' & L).Select
End Sub

Or la commande arrive sur 'E2' dans 'Bilan' ??

A tout Hazard, je joinds un bout d'fichier...

Merci d'avance
A+ 🙂 [file name=BilanBorello.zip size=9873]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/BilanBorello.zip[/file]

 

[Robert]

Bonsoir Borello, bonsoir le forum,

Même erreur, Borello ! Quand j'ai défini L, j'ai oublié ActiveSheet

Private Sub CommandButton1_Click()
Sheets('Bilan').Select
Dim L As Integer
L = ActiveSheet.Range('E15').End(xlUp).Row + 1
ActiveSheet.Range('E' & L).Select
End Sub

Message édité par: Robert, à: 18/11/2005 23:57

 

[Borello]

Hello Robert !!

Merci... cela m'a permis de l'adapter à mon document!!
Du même coup, je réfléchis dorénavant un peu plus logiquement

Car bien sûr après coup, qu'est-ce qu'on est 'bête' :lol:

Merci encore

A Plus...
🙂