> Tous les forums > Forum Bureautique
 Sélection des cellules adjacentes à actice.cellSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
lafleur71
  Posté le 26/10/2006 @ 14:37 
Aller en bas de la page 
Petit astucien
Bonjour à tous, J'ai un tableau à quatre colonnes (A-D) Je voudrai, à l'aide d'une macro, que lorsqu'on sélectionne la cellule A1 et que l'on clique sur le bouton qui lance la macro, les cellules adjacentes, B1,C1 et D1 se sélectionnent automatiquement (Plage A1:D1 sélectionnée). Le problème c'est que je n'arrive pas à écrire cette macro... Si quelqu'un d'entre vous a la solution, ce serait sympa de m'aider. Merci d'avance et bonne journée.
Publicité
lafleur71
 Posté le 26/10/2006 à 17:02 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Re-bonjour, c'est encore moi... J'ai trouvé un moyen, il y a peut-être mieux, mais ça marche : a = ActiveCell.Row b = ActiveCell.Column Range(Cells(a, b), Cells(a, b + 3)).Select Merci à ceux qui ont cherché à m'aider. A plus
galopin01
 Posté le 26/10/2006 à 17:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
Bonjour,
il y a peut-être mieux
Non, non... On peut pas mieux faire ! [hello]
yojema
 Posté le 26/10/2006 à 22:40 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

essaye avec ca en placant ce code directement sur la feuille et non dans un module Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) b = ActiveCell.Column If b = 1 Then Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 3)).Select End If End Sub comme ca sans cliquer sur un bouton des que tu selectione une cellule dans la colonne a il fait ce que tu demande
lafleur71
 Posté le 26/10/2006 à 23:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Bonsoir et merci à Galopin01 pour ses encouragements et à Yojema, pour le moment j'ai quand même besoin de lancer une macro (qui transfère des données dans une autre feuille) par l'intermédiaire d'un bouton mais je garde précieusement ton code pour une autre occasion. Bonne soirée à tous.Quel bonheur de pouvoir compter sur des spécialistes qui sont toujours là quand on a besoin d'eux, bravo à vous et encore merci.
Bérylion
 Posté le 27/10/2006 à 08:38 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Salut 2 pistes... : [code]ActiveCell.CurrentRegion.Select[/code] [code]Range(Selection, Selection.End(xlToRight)).Select[/code] bonne chance !
galopin01
 Posté le 27/10/2006 à 08:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
Ouai ! On peut également sélectionner la page entière dès qu'on ouvre le classeur ou y peindre en rouge... [horsujet] Aïe ! Non... pas la tête ! [crazy]
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
20,45 €Carte mémoire microSDXC UHS-I SanDisk A1 Ultra 128 Go à 20,45 €
Valable jusqu'au 03 Mars

Amazon propose actuellement la carte mémoire microSDXC UHS-I SanDisk A1 Ultra 128 Go à 20,45 € livrée gratuitement. Cette carte mémoire offre des vitesses jusqu'à 100 Mo/s et est idéale pour les téléphones, caméras et appareils photo HD. Elle est certifiée GoPro et Switch.


> Voir l'offre
11,99 €Micro clé USB 3.1 Sandisk Ultra Fit 64 Go à 11,99 €
Valable jusqu'au 26 Février

Amazon fait une promotion sur la micro clé USB Sandisk Ultra Fit d'une capacité de 64 Go qui passe à 11,99 €. La minuscule taille de cette clé USB va vous permettre de la laisser brancher en permanence sur votre portable, votre TV ou votre autoradio sans qu'elle dépasse de manière disgracieuse. Sa compatibilité USB 3.1 lui permet d'atteindre des débits jusqu'à 130 Mo/s. 


> Voir l'offre
9,99 €Bloc multiprise parasurtenseur BRENNENSTUHL 8 prises à 9,99 €
Valable jusqu'au 27 Février

Amazon fait une promotion sur le bloc multiprise parasurtenseur BRENNENSTUHL avec 8 prises à orientation interversée qui passe à 9,99 € au lieu de 20 €. Le câble fait 1,4 m.


> Voir l'offre

Sujets relatifs
Arrêt impossible de la sélection cellules
Sélection de plusieurs cellules
selection plage cellules dont nombre lignes variab
Déclenchement d'une macro par selection d'une cell
Incrémenter des cellules non adjacentes
excel macro selection cellules vides Résolu
compter lignes d'un tableau dont toutes les cellules sont en couleur
[ACCESS+Etat sélection de l'affichage du mode par bouton]
[Extraction dans cellules]
VBA Excel valeur en fonction de cellules
Plus de sujets relatifs à Sélection des cellules adjacentes à actice.cell
 > Tous les forums > Forum Bureautique