Sélectionner un nombre variable de cellules

Résolu/Fermé

Mistral_13200 Messages postés 634 Date d'inscription mardi 5 août 2008 Statut Membre Dernière intervention 21 mars 2024 - 11 nov. 2016 à 07:53
Mistral_13200 Messages postés 634 Date d'inscription mardi 5 août 2008 Statut Membre Dernière intervention 21 mars 2024 - 11 nov. 2016 à 10:21

Bonjour à tous,

Dans un classeur Excel2010 j’ai plusieurs feuilles. Chacune d’elles a une ligne de titre (ligne A) et un nombre de colonnes et de lignes différents.
Je souhaiterais réaliser, en VBA, une sélection de la cellule A2 à la dernière cellule occupée de la feuille active.

Merci d’avance pour aide.
Cordialement
Mistral

A voir également:

Sélectionner un nombre variable de cellules
Excel additionner des cellules - Guide
Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? - Forum VB / VBA
Verrouiller cellules excel - Guide
Mise en forme conditionnelle "compris entre" ✓ - Forum Excel
En raison d'un nombre important d'échec de connexion snapchat - Forum Snapchat

5 réponses

Réponse 1 / 5

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
11 nov. 2016 à 08:45

bonjour,

pas très clair comme explication,
d'après ce que je comprends, lorsque tu actives un onglet, exemple Feuil3 tu veux mettre en surbrillance la plage A2 à la dernière cellule non vide de ton tableau exemple A2:G10

ou veux tu sélectionner à la dernière cellule non vide de ton tableau exemple G10

Réponse 2 / 5

Mistral_13200 Messages postés 634 Date d'inscription mardi 5 août 2008 Statut Membre Dernière intervention 21 mars 2024 4
11 nov. 2016 à 08:55

Bonjour Mike,

Je veux mettre en surbrillance depuis A2 jusqu'à la dernière cellule non vide.
Dans ton exemple de A à G10.

Cela afin de pouvoir copier ou effacer certaine feuille.

Mistral

Réponse 3 / 5

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié par Mike-31 le 11/11/2016 à 09:50

Re,

dans la Thiswokbook colle ce code

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range([A2], Range(Split(Cells(1, Range("A1").End(xlToRight).Column).Address(1, 0), "$")(0) & Range("A50").End(xlUp).Row)).Select
End Sub

et si tu ne veux pas sélectionner la ligne des entêtes

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range([A2], Range(Split(Cells(1, Range("A2").End(xlToRight).Column).Address(1, 0), "$")(0) & Range("A50").End(xlUp).Row)).Select
End Sub

A+
Mike-31

Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.

Réponse 4 / 5

Utilisateur anonyme
11 nov. 2016 à 09:32

Bonjour Mistral, bonjour le forum,

Je te propose ce code VBA :


Option Explicit

Sub Essai()
  dim dcol As Integer, dlig As Long
  dcol = [A2].CurrentRegion.Columns.Count
  dlig = [A2].CurrentRegion.Rows.Count
  Range(Cells(2, 1), Cells(dlig, dcol)).Select
End Sub

Si ton problème est réglé, merci d'aller en haut de page
pour cliquer sur « Marquer comme résolu ».

Cordialement. 😊

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

Mistral_13200 Messages postés 634 Date d'inscription mardi 5 août 2008 Statut Membre Dernière intervention 21 mars 2024 4
11 nov. 2016 à 10:21

Merci à vous deux.
Vos solutions semble bonnes mais pour l'inclure dans mon code je vais retenir celle Albakan.

Encore merci à vous.
Cordialement
Mistral

Discussions similaires

programme qui n'affiche pas le mot secret

Snapchat locked : mon compte snapchat est bloqué

VBA Excel : sélection d'une plage variable

Accès a Snapchat temporairement désactivé

VBA : Range avec références variables..

Discussions similaires

Newsletters