> Tous les forums > Forum Bureautique
 Insérer un rang à une condition sous ExcelSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Gabrilou
  Posté le 02/09/2008 @ 06:28 
Aller en bas de la page 
Astucienne

Bonjour à toutes et à tous, J’aurais besoin de votre aide pour créer une macro. Dans une feuille Excel, je voudrais insérer une ligne vierge dans la colonne A chaque fois que la valeur d’une cellule contient une date précise, soit 31-janv-08. Merci beaucoup pour votre aide et du temps consacré
Publicité
galopin01
 Posté le 02/09/2008 à 07:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

bonjour,

Et elle arrive là comment cette date ?

Directement par la poste... ? par la magie d'une macro déjà existante ?

C'est le résultat d'une formule... d'une saisie directe de l'utilisateur dans cette cellule ?

Et tu veux l'insérer ou cette ligne ? immédiatement avant ou immédiatement après la cellule date ? ou a un autre endroit sans rapport avec la cellule date ?

Et la cellule date elle est ou ? dans la colonne A ou en H51 ?

Euh... Ben sinon je suppose que tu sais enregistrer une macro ?

Sinon de manière générale pour insérer une ligne avant la ligne 4 c'est :

Sub Test()
Rows(4).Insert
End Sub

A+

Gabrilou
 Posté le 03/09/2008 à 22:55 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Galopin bonjour Il sagit d'une feuille déjà remplie. La colonne A contient des dates que j'ai saisies moi-même et je voudrais insérer un rang vierge après, si la date est le 31-janv-08. Merci encore
Bérylion
 Posté le 03/09/2008 à 23:43 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Salut

ça pourrait ressembler à ça :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Value = CDate("31/01/08") And Target.Column = 1 Then Rows(Target.Row + 1).Insert
End Sub

à coller dans le module de la feuille concernée.

Gabrilou
 Posté le 04/09/2008 à 06:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Merci pour cette macro. J'ai bêtement fait un copier-coller de celle-ci dans le module de ma feuille, mais le problème est que je ne sais pas l'utiliser. Comment je l'exécute ? J'ai encore besoin d'un petit coup de main A+
galopin01
 Posté le 04/09/2008 à 08:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

bonjour,

Une macro est une pièce d'horlogerie et il est impossible de répondre avec des informations partielles ou approximatives.

S'il s'agit juste de mettre en forme de façon définitive une feuille déjà remplie et qui ne changera plus ensuite, la macro de Bérylion n'est pas appropriée.

Tu peux essayer celà :

Sub test()
Dim o As Range
i = Range("A65536").End(3).Row
For k = i To 1 Step -1
If Cells(k, 1) = CDate("31/01/08") Then Rows(k + 1).Insert
Next
End Sub

Coller cette macro dans ton module et (à partir de ta feuille Excel) faire Outils/Macro/Macros.../Exécuter la macro Test (ou Feuil1.Test)

A+

Gabrilou
 Posté le 05/09/2008 à 00:03 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Dépannage réalisé à 100 %. Merci ! Bonne nuit!
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
64,52 €Kit de 16 Go (2 x 8 Go) de mémoire DDR4 Corsair Vengeance LPX 3200 MHz à 64,52 € livré
88 € -27%

Amazon Allemagne fait une belle promotion sur le kit de 16 Go (2x8 Go) de mémoire DDR4 Corsair Vengeance LPX 3200 MHz qui passe à 59,40 €. Comptez 5,12 € pour la livraison en France soit un total de 64,52 € livré. Une très bonne affaire !


Voir l'offre
79,99 €Clavier sans-fil bluetooth Logitech MX Keys Mini à 79,99 €
109 € -27%

Amazon fait une belle promotion sur le clavier sans-fil bluetooth Logitech MX Keys Mini qui passe à 79,99 € alors qu'on le trouve ailleurs autour de 109 €. Profitez d'une frappe parfaitement fluide, naturelle et précise grâce aux touches concaves qui épousent la forme de vos doigts et leurs bords arrondis qui offrent un retour satisfaisant.  

Le clavier Logitech MX Keys Mini est équipé de la technologie Logitech Flow. Cette dernière, vous permet de taper du texte sur un ordinateur et de le finir sur un autre, d'effectuer des copier-coller de texte, d'une image ou encore d'un fichier d'une machine à une autre. Le Logitech MX Keys est aussi équipé de capteurs de proximité qui détectent vos mains et illuminent le clavier au moment où vos doigts approchent des touches. A l'inverse, les touches rétro-éclairées s'éteignent quand vous quittez le bureau pour économiser de l'énergie. Aussi, l'intensité du rétro-éclairage s'adapte aux conditions d'éclairage ou peut être définie manuellement.

Notez que cette version Mini ne possède pas de pavé numérique.


Voir l'offre
19,39 €Set de 30 lames bois et métal Bosch pour scies sauteuses + boite à 19,39 €
29,86 -35%

Amazon fait une promotion sur le set de 30 lames bois et métal Bosch pour scies sauteuses avec leur boite de rangement à 19,39 €. On trouve l'ensemble ailleurs à partir de 29,86 €. Les lames portent les références T119BO, T111C et T118A (10 lames de chaque).


Voir l'offre
-6 €6 € offerts pour toute recharge de son compte Amazon de 70 €

Amazon remet en avant son offre pour obtenir un bon d'achat de 6 € sur Amazon. Pour toute recharge de son compte Amazon d'au moins 70 €, Amazon vous offre un bon d'achat de 6 € utilisable jusqu'au 31 Décembre 2022. Vous pouvez utiliser le solde de votre compte Amazon pour tous vos achats.

Notez que cette offre n'est pas disponible si vous avez déjà rechargé votre compte Amazon dans les 36 derniers mois.


Voir l'offre

Sujets relatifs
Excel une addition sous condition
Libreoffice: insérer une image sous condition.
Macro - Insérer une ligne vierge sous Excel 2007
Excel: Addition sous condition double
Comment créer une condition sous excel
Somme dans Excel sous condition
Excel: Calcul sous condition ...
Excel - Somme sous condition
Deux condition sous EXCEL
organiser mes contacts sous Excel
Plus de sujets relatifs à Insérer un rang à une condition sous Excel
 > Tous les forums > Forum Bureautique