Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Insertion ligne selon variable

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jeanphi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

jeanphi

XLDnaute Occasionnel
Bonjour

J'utilise le code ci-dessous pour récupérer filtrer les infos d'une feuille en fonction d'une variable
Ce que je souhaite faire en plus c'est qu'à chaque fois que la valeur de la colonne J change, la macro m'insère automatiquement une ligne de couleur
Quelqu'un saurait t'il faire?
Merci


Sub FEBenCF()
Dim Cell As Range

Calculate
Sheets("Relance").Select
Range("B3:L3").Select
ActiveCell.FormulaR1C1 = "FEB en CF"

For Each Cell In Sheets("SuiviFEB").Range("H6:H" & Sheets("SuiviFEB").Range("H65536").End(xlUp).Row)
If Cell.Offset(0, -7).Value = "CF" Then
On Error Resume Next
Calculate
Sheets("Relance").Range("B" & Sheets("Relance").Range("B65536").End(xlUp).Row + 1).Value = Cell.Offset(0, -6).Value
Sheets("Relance").Range("D" & Sheets("Relance").Range("D65536").End(xlUp).Row + 1).Value = Cell.Offset(0, -4).Value
Sheets("Relance").Range("F" & Sheets("Relance").Range("F65536").End(xlUp).Row + 1).Value = Cell.Offset(0, -2).Value
Sheets("Relance").Range("H" & Sheets("Relance").Range("H65536").End(xlUp).Row + 1).Value = Cell.Value
Sheets("Relance").Range("J" & Sheets("Relance").Range("J65536").End(xlUp).Row + 1).Value = Cell.Offset(0, 2).Value
Sheets("Relance").Range("L" & Sheets("Relance").Range("L65536").End(xlUp).Row + 1).Value = Cell.Offset(0, 4).Value
End If
Next
Sheets("Relance").Select
End Sub
 
Trier par date Trier par votes
Re : Insertion ligne selon variable

Bonjour Jeanphi,

Essaye en ajoutant une macro évènementielle qui se déclenche lors d'un changement de valeur en colonne J. A mettre dans le code de la feuille.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 10 Then
    Target.EntireRow.Insert
    Target.Offset(-1, 0).EntireRow.Select
    Selection.Interior.ColorIndex = 6
End If
End Sub

Ce serait mieux si tu envoyais un exemple avec quelques données.

@+

Gael
 
Vote positif 0 Vote négatif
Re : Insertion ligne selon variable

bonjour gael

merci c est exactement ce que je voulais!!
bonne journée à toi!

juste par curiosité quelqu un serait t il faire la même chose mais avec un code spécifié directement dans la macro originelle?
merci
 
Vote positif 0 Vote négatif
Re : Insertion ligne selon variable

Bonsoir Jeanphi et salut Catrice, je ne t'avais pas vu,

Tu peux aussi rajouter le code à la suite du changement de valeur en colonne J:

Code: 
Sheets("Relance").Range("J" & Sheets("Relance").Range("J65536").End(xlUp).Row + 1).Value = Cell.Offset(0, 2).Value
Sheets("Relance").Range("J65536").End(xlUp).EntireRow.Insert
Sheets("Relance").Range("J65536").End(xlUp).Offset(-1, 0).EntireRow.Interior.ColorIndex = 6

@+

Gael
 
Vote positif 0 Vote négatif
Re : Insertion ligne selon variable

bonjour catrice


et merci pour ton aide
pas mal ton code sauf que si j'ai bien compris il faut que les données soient déjà triées pour que ca marche
or moi j ai besoin que le tri fonctionne même si les données ne sont pas triées au préalable 🙁
 
Vote positif 0 Vote négatif
Re : Insertion ligne selon variable

RE Gael

Ton code est super, par contre j'ai encore besoin de rajouter 2 petites choses:
- Je souhaite que la ligne qui est insérée ait une hauteur de 3
- Je souhaite que la ligne qui est insérée ne le soit pas sur toute la feuille mais sur les cellules B à L
🙁
Je suis sur que tu as la solution 🙂
Encore emrci
 
Vote positif 0 Vote négatif
Re : Insertion ligne selon variable

Bonjour Jeanphi, bonjour à tous,

Le code suivant devrait répondre à tes attentes. A mettre à la place des lignes précédentes:

Code: 
With Sheets("Relance").Range("J" & Sheets("Relance").Range("J65536").End(xlUp).Row + 1)
    .Value = Cell.Offset(0, 2).Value
    .EntireRow.insert
    .Offset(-1, 0).RowHeight = 3
    .Offset(-1, -8).Resize(1, 11).Interior.ColorIndex = 6
End With

@+

Gael
 
Vote positif 0 Vote négatif
Re : Insertion ligne selon variable

re Gael

C'est presque ca sauf que la ligne de couleur qui s'insère ne s'insére à chaque changement de valeur dans la colonne J mais en dessous de la première condition trouvée....
Vois tu ce que je veux dire??
 
Vote positif 0 Vote négatif
Re : Insertion ligne selon variable

Re,

A vrai dire, je ne comprends pas bien. Ce code devrait insérer la ligne de la même façon que le précédent qui a priori fonctionnait bien.

Peux-tu envoyer un exemple en précisant bien le résultat souhaité.

@+

Gael
 
Vote positif 0 Vote négatif
Re : Insertion ligne selon variable

Re,

Tu as un tout petit peu modifié le dernier code ce qui génère une erreur:

Si tu écris:

Code: 
...
        Sheets("Relance").Range("J" & Sheets("Relance").Range("J65536").End(xlUp).Row + 1).Value = Cell.Offset(0, 6).Value
    With Sheets("Relance").Range("J" & Sheets("Relance").Range("J65536").End(xlUp).Row + 1)
    .EntireRow.Insert
    .Offset(-1, 0).RowHeight = 3
    .Offset(-1, -8).Resize(1, 11).Interior.ColorIndex = 8
    End With

tu vas écrire une valeur en colonne J en ajoutant une ligne. la deuxième instruction With... va se placer en dessous de la nouvelle ligne et donc l'insertion ligne ne se fera pas correctement.

Remplace donc par:

Code: 
        [COLOR=red]'Sheets("Relance").Range("J" & Sheets("Relance").Range("J65536").End(xlUp).Row + 1).Value = Cell.Offset(0, 6).Value
[/COLOR]    With Sheets("Relance").Range("J" & Sheets("Relance").Range("J65536").End(xlUp).Row + 1)
    .Value = Cell.Offset(0, 6).Value
    .EntireRow.Insert
    .Offset(-1, 0).RowHeight = 3
    .Offset(-1, -8).Resize(1, 11).Interior.ColorIndex = 8
    End With

La ligne en rouge est à mettre en commentaire ou à supprimer.

Dans ce cas, on ajoute une valeur en J sur une nouvelle ligne puis on insère une ligne au-dessus et tout est OK.

@+

Gael
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL pour MAC Code vba pour recherche sur une seule ligne
Réponses
4
Affichages
185
deudecos
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
275
LaurentVasseur
L
P
  • Question Question
XL 2010 Recopie de la date du jour jusqu'à la dernière ligne non vide
Réponses
5
Affichages
195
philmaure
P
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
140
Eric 888
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
757
Oneida
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
917
TooFatBoy
C
  • Question Question
Microsoft 365 Supprimer ligne selon contenu cellule (résolu)
Réponses
7
Affichages
451
job75
N
  • Résolu(e)
Microsoft 365 Calcul de plages horaires
2 3 4
Réponses
49
Affichages
3 K
NONO14
N
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
793
lynyrd
  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
247
treza88
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
738
kiki29
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
3 K
Banbara
B
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
789
AtTheOne
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
3 K
NONO14
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…