> 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
89,54 €SSD Crucial P2 1 To (3D NAND, NVMe, PCIe, M.2, 2400 Mo/s) à 89,54 €
Valable jusqu'au 24 Avril

Cdiscount fait une promotion sur le SSD Crucial P2 1 To (3D NAND, NVMe, PCIe, M.2) qui passe à 89,54 € livré gratuitement. On le trouve ailleurs à partir de 125 €. Ce SSD offre des vitesses de lecture/écriture séquentielle allant jusqu’à 2 400/ 1 900 Mo/s. Il est garanti 5 ans.


> Voir l'offre
179,99 €Tablette Lenovo TAB M10 Plus X606 (FullHD, 8 coeurs, 4 Go RAM, 64 Go stockage, Android 9) à 179,99 €
Valable jusqu'au 25 Avril

Amazon fait une promotion sur la tablette Lenovo M10 Plus qui passe à 179,99 € livrée gratuitement alors qu'on la trouve ailleurs autour de 210 €. Cette tablette possède un écran FullHD de 10,3 pouces IPS (1920x1200), un processeur octo-core MediaTek Helio P22T, 4 Go de mémoire vive, ainsi que 64 Go de stockage interne extensible par MicroSD. La tablette dispose d'une grande batterie de 7 000 mAh et d'un port USB-C, du Bluetooth 5.0 et du WiFi AC. Le tout tourne sous Android 9.0.


> Voir l'offre
99,99 €Ecran 24 pouces Viewsonic VA2418 (FullHD, IPS, 75 Hz) à 99,99 €
Valable jusqu'au 22 Avril

Darty fait une promotion sur l'écran 24 pouces VA2418-sh qui passe à 99,99 €. On le trouve ailleurs à partir de 120 €. Cet écran dispose d'une dalle FullHD IPS 5ms à 75 Hz, un filtre lumière bleue, de la technologie anti scintillement Flicker Free et intègre des ports VGA et HDMI.


> 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