> Tous les forums > Forum Bureautique
 Execution macro lors d'une saisie dans une celluleSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
didie78
  Posté le 14/12/2011 @ 15:52 
Aller en bas de la page 
Petite astucienne

Bonjour,

J'ai tableau composé de deux colonnes A et B.

Je souhaite que lorsque je saisie dans une cellule de la colonne A, qu'automatiquement mon tableau se tri grâce à la colonne A.

Je n'ai pas de soucis pour créer la macro de tri, mais c'est le déclenchement qui me pose problème.

J'aimerai que dès que je saisie dans cette colonne A une nouvelle donnée, ma macro de tri se lance.

Merci par avance pour votre aide

Sandie

Publicité
qmike549
 Posté le 14/12/2011 à 16:01 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

bonjour

A adapter

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A1:A1], Target) Is Nothing Then
If Target <> "" Then
Call Tri()

End If
End If
End Sub

didie78
 Posté le 21/12/2011 à 14:22 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Bonjour,

Je ne dois pas être très douée car je n'arrive pas à faire fonctionner cette macro en automatique dès que je saisie une nouvelle donnée.

En tout cas merci pour la réponse, je vais continuer à chercher d'où vient le problème.

Sandie

gilbert_rgi
 Posté le 21/12/2011 à 15:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour

la macro doit être placée dans l'emplacement du code de la feuille et non dans un module ou dans le thisworkbook

il faut aussi que la macro Tri existe

petites modifs

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo erreur

If Not Intersect([A1:A100], Target) Is Nothing Then

If Target <> "" Then

Call tri

End If

End If

erreur:

End Sub



Modifié par gilbert_rgi le 21/12/2011 15:09
gilbert_rgi
 Posté le 21/12/2011 à 15:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Voilà un exemple

cliquez ici pour le télécharger



Modifié par gilbert_rgi le 21/12/2011 15:35
didie78
 Posté le 22/12/2011 à 16:50 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Bonjour,

Merci beaucoup pour ton aide.

Celà m'est d'une grande utilité.

Merci encore,

A+

Sandie

gilbert_rgi
 Posté le 22/12/2011 à 16:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

si la colonne B doit suivre le tri alors il faut modifier la lettre en rouge

Sub tri()

derl = Range("A65536").End(xlUp).Row

ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A2"), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("Feuil1").Sort

.SetRange Range("A2:A" & derl)

.Header = xlNo

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

End Sub

didie78
 Posté le 23/12/2011 à 11:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Bonjour,

Et merci pour la précision.

Joyeuses Fêtes

Sandie

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
524,88 €Ecran PC incurvé 34 pouces Gigabyte G34WQC (WQHD, 144 Hz) à 524,88 €
Valable jusqu'au 07 Mars

Amazon fait une promotion sur l'écran PC incurvé 34 pouces Gigabyte G34WQC qui passe à 524,88 € au lieu de 600 €. Cet écran possède une dalle incurvée 34 pouces VA WQHD (3440x1440) à 1 ms et à 144 Hz (FreeSync Premium et Adaptive Sync). Elle offre le HDR400 et intègre 2 haut-parleurs 2W. Son pied est réglable en hauteur et en inclinaison.


> Voir l'offre
51,19 €Barre de son bluetooth Philips TAB5105 à 51,19 €
Valable jusqu'au 07 Mars

Cdiscount fait une promotion sur la barre de son bluetooth Philips TAB5105 qui passe à 51,19 € alors qu'on la trouve ailleurs à partir de 80 €. Cette barre de son intègre 2 haut-parleurs 2x15W et peut lire vos musiques sans fil via Bluetooth. Une entrée audio jack 3.5 mm et optique TOSLINK sont également présentes. Compatible HDMI ARC, vous pourrez contrôler la barre de son à l'aide de la télécommande de votre téléviseur. Elle est suffisamment fine pour se glisser sous la plupart des téléviseurs. Vous pouvez également la fixer au mur à l'aide des supports intégrés.


> Voir l'offre
12,12 €Micro clé USB 3.1 Sandisk Ultra Fit 64 Go à 12,12 €
Valable jusqu'au 07 Mars

Amazon fait une promotion sur la micro clé USB Sandisk Ultra Fit d'une capacité de 64 Go qui passe à 12,12 €. 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

Sujets relatifs
se positionner avec une macro dans une cellule précise
exécution macro seulement lors changement en G1
Excel 2007 formule et saisie dans la même cellule
Saisie double dans cellule Excel 2003
afficher un calendrier dans une macro de cellule
Macro - déctecter un caractère dans une cellule
saisie automatique dans une cellule excel
2 pages par feuille dans macro excel
Recopie cellule par macro
case à cocher dans cellule Excel 2010
Plus de sujets relatifs à Execution macro lors d''une saisie dans une cellule
 > Tous les forums > Forum Bureautique