× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > 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
52,99 €Clé USB 3.0 et Micro USB Sandisk Ultra OTG 256 Go à 52,99 €
Valable jusqu'au 14 Juillet

Amazon fait une promotion sur la nouvelle version de la clé USB 3.0 SanDisk Dual Drive 256 Go qui passe à 52,99 € livrée gratuitement. La particularité de cette clé USB réside dans le fait qu'elle dispose à la fois d'un connecteur USB pour la brancher sur votre ordinateur ou votre TV, mais également d'un connecteur micro USB pour la brancher sur votre smartphone ou votre tablette. Compatible USB 3.0 (et 2.0), cette clé USB offre des débits jusqu'à 150 Mo/s. 


> Voir l'offre
140,67 €Kit de 32 Go (2 x 16 Go) de mémoire DDR4 Corsair Vengeance LPX 3200 MHz à 140,67 € livré
Valable jusqu'au 14 Juillet

Amazon Allemagne fait une belle promotion sur le kit de 32 Go (2x16 Go) de mémoire DDR4 Corsair Vengeance LPX 3200 MHz CL16 qui passe à 136,03 € (avec la TVA ajustée). Comptez 4,64 € pour la livraison en France soit un total de 140,67 € livré. alors qu'on le trouve ailleurs à plus de 170 €.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
211,70 €Disque dur externe Western Digital Elements Desktop USB 3.0 12 To à 211,70 € livré
Valable jusqu'au 16 Juillet

Amazon Royaume-Uni propose actuellement le disque dur externe Western Digital Elements Desktop USB 3.0 12 To à 179,99 £. Avec la conversion en euros et la livraison en France, le disque dur vous reviendra à  211,70 € livré. On le trouve ailleurs à partir de 260 €. Ce disque dur dispose d'un grande capacité de stockage (12 To) et d'une connectique USB 3.0 qui vous offrira des transferts rapides. Il est compatible USB 2.0. Une très bonne affaire. Notez que le disque dur n'est pas soudé et que vous pouvez le récupérer pour le mettre dans un PC, un NAS, ...

Vous pouvez utiliser votre compte Amazon France sur Amazon UK et il n'y a pas de douane.


> 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