Nouveau projet

Le 21/06/2018 à 13:36

Bonjour a tous,

Je rencontre un petit soucis dans mon code vba et que je ne comprends pas.

Sur la feuille RECAPULATIF, je voudrais insérer une ligne en bas de la plage cible nommer PLAN_COMPTABLE_INVEST (B3:U12) qui est la copie d'une ligne cachée LIGNE_EXEMPLE_INVEST(B13:U13) qui contient les formules de calcul.

J'arrive a selectionner la LIGNE_EXEMPLE_INVEST, à la copier mais lorsque que le code la colle EXCEL se met à tourner en boucle et m'insère une centaine de ligne quand j'arrive à l'arrêter.

Voici le code :

Private Sub Worksheet_Change(ByVal Target As Range)

Dim NbCellulesVides As Integer

'
' COMPTE LE NOMBRE DE CELLULES VIDES
'

NbCellulesVides = Application.WorksheetFunction.CountBlank(Sheets("RECAPITULATIF").Range("PLAN_COMPTABLE_INVEST"))

'
' DESACTIVE L'AFFICHAGE
'
Application.ScreenUpdating = False

'
' POSE LA CONDITION QUE SI IL RESTE MOINS DE 33 CELLULES VIDES ALORS ON INSERE UNE LIGNE EN BAS DE LA PLAGE "PLAN_COMPTABLE_INVEST"
'

If NbCellulesVides < 33 Then

    '
    ' AFFICHE TOUTES LES LIGNES
    '
    Range("LIGNE_EXEMPLE_RECAP").Select
    Selection.EntireRow.Hidden = False

    '
    ' COPIE LA LIGNE EXEMPLE AVEC LES FORMULES DE CALCUL POUR EN INSERER UNE NOUVELLE
    '

    Range("LIGNE_EXEMPLE_RECAP").Select
    Selection.Copy
    'Selection.Insert Shift:=xlDown

    '
    ' MASQUE LE LIGNE EXEMPLE ET LA LIGNE EN DESSOUS
    '
    Range("LIGNE_EXEMPLE_RECAP").Select
    Selection.EntireRow.Hidden = True
    Range("LIGNE_INVEST_MASQUEE").Select
    Selection.EntireRow.Hidden = True

End If

'
' REACTIVE L'AFFICHAGE
'
Application.ScreenUpdating = True

End Sub

et le fichier d'exemple

10tableau-de-suivi-v2-partage.xlsm (29.99 Ko)

Pourriez-vous m'aider, s'il vous plait ?

En l'attente d'une réponse je vous souahite une bonne fin de journée.

Le 21/06/2018 à 13:59

Bonjour Kris, bonjour le forum,

Tu mets le code dans la procédure événementielle Change et dans celui-ci tu copies une ligne qui génère un changement. Donc ça tourne en boucle... Je ne peux pas t'aider davantage car je ne comprends pas où tu veux en venir avec ce code...

Le 21/06/2018 à 17:24

Bonsoir Tautheme,

Ce que j'ai fait dans la feuille RÉCAPITULATIF, c'est se créer différentes plages pour mieux appréhender le code vba.

J'ai donc une plage variable PLAN COMPTABLE INVEST et une ligne contenant des formules qui est une ligne exemple d'où son nommage en LIGNE EXEMPLE INVESTI.

Ce que je voudrais faire est :

quand j'arrive à la fin de la dernière ligne de la plage PLAN COMPTABLE INVEST je voudrais copier la ligne exemple (contenant les formules) et insérer ce copier à la fin de la plage PLAN COMPTABLE INVESTI.

Peut être est ce plus clair ainsi.

Le 21/06/2018 à 18:07

Bonsoir,

Merci Tauthème, j'ai réflechi à la logique que je tenais mais elle n'était pas bonne. En fait, pour simplifié ma logique, il faut que :

  • au changement de la dernière cellule de la plage PLAN_COMPTABLE_INVEST alors
  • decacher la ligne LIGNE_EXEMPLE_INVEST
  • faire une copie de la ligne LIGNE_EXEMPLE_INVEST
  • inserer la copie de la ligne en bas de la plage PLAN_COMPTABLE_INVEST
  • cacher la ligne LIGNE_EXEMPLE_INVEST

Maintenant il me reste à l'écrire en code dont je vais regarder cela.

Merci encore.

Le 22/06/2018 à 10:03

Re,

En pièce jointe ton fichier modifié. J'ai déplacé la ligne masquée en dehors du tableau (en ligne 2) avec le code ci-dessous :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DEST As Range

Application.ScreenUpdating = False
If Target.Column <> 21 Then Exit Sub
If Target.Value = "" Then Exit Sub
Set DEST = Cells(Application.Rows.Count, "B").End(xlUp).Offset(0, -1)
DEST.EntireRow.Insert
DEST.Select
Range("LIGNE_INVEST_MASQUEE").EntireRow.Hidden = False
Range("LIGNE_INVEST_MASQUEE").EntireRow.Copy DEST.Offset(-1, 0)
Range("LIGNE_INVEST_MASQUEE").EntireRow.Hidden = True
DEST.Offset(-1, 1).Select
Application.ScreenUpdating = True
End Sub
10kris-v01.xlsm (29.81 Ko)
Le 22/06/2018 à 17:23

Bonsoir TauThème,

Alors là je suis bluffé, je te remercie grandement car j'ai passé ma soirée à essayer de faire cela et je commençais à me décourager.

Encore merci. Je vais continuer à travailler tout mon projet.

Je garde l'option de revenir dans cette discussion pour compléter le code que j'essaierais de poser.

Bonne soirée

Le 24/06/2018 à 17:15

Bonsoir à tous,

Me revoilà sur un nouveau problème. Et je bloque sur une ligne de code.

J'aimerais renommer la nouvelle feuille par la valeur contenue dans la cellule de la colonne H.

J'explique un peu. Le code me permet de rajouter une ligne dans mon tableau. Au moment où je rentre la valeur "O" dans la cellule "V" alors je copie la feuille exemple et je l'insere après la feuille "RECAPITULATIF". Cette feuille nouvellement créée, je veux la renommer par rapport à la valeur contenue dans le colonne "H", de la feuille "RECAPITULATIF".

Voici le code, il a un peu évolué depuis et le fichier aussi à la fin. La ligne qui me pose problème est soulignée.

'**********************************************************************************************
'CODAGE SUR LE CHANGEMENT DE VALEUR
'**********************************************************************************************

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DEST As Range

' DESACTIVATION DE LA MISE A JOUR DE L'ECRAN
' CELA PERMET QUE NE PAS VOIR L'ECRAN TREMBLE LORSQUE LE CODE S'EXECUTE

Application.ScreenUpdating = False

' POSE LA CONDITION DE CONTROLE SEULEMENT SUR LA COLONNE "CREATION FEUILLE"
' SI LA CONDITION N'EST PAS REMPLIE ALORS ON SORT DE LA "SUB"

If Target.Column <> 22 Then Exit Sub

' POSE LA CONDITION DU CHANGEMENT DE VALEUR DANS LA COLONNE "CREATION FEUILLE"
' SI LA CONDITION EST EGALE A RIEN ALORS ON SORT DE LA SUB

If Target.Value = "" Then Exit Sub

'********************************************************************************************
' CODAGE SUR L'INSERTION D'UNE LIGNE
'********************************************************************************************

' DECLARE LA DONNEE DE LA VARIABLE ICI ELLE DONNE LA POSITION DE MA VARIABLE :
' LA COLONNE "B", LIGNE EN DESSOUS DE LA CELLULE DONT LA VALEUR EST DIFFERENTE DE ZERO

Set DEST = Cells(Application.Rows.Count, "B").End(xlUp).Offset(0, -1)

' INSERT UNE LIGNE ENTIERE

DEST.EntireRow.Insert

' SELECTION DE LA CELLULE CIBLEE EN VARIABLE

DEST.Select

'*********************************************************************************************
' CODAGE SUR LE COPIER COLLER D'UNE LIGNE EXEMPLE CONTENANT DES FORMULES DE CALCUL
'*********************************************************************************************

' AFFICHAGE LA LIGNE "LIGNE_INVEST_MASQUEE"

Range("LIGNE_INVEST_MASQUEE").EntireRow.Hidden = False

' COPIAGE LA LIGNE "LIGNE_INVEST_MASQUEE" AU DESSUS DE LA CELLULE CIBLEE
' CORRESPONDANT LA LIGNE INSEREE PRECEDEMMENT

Range("LIGNE_INVEST_MASQUEE").EntireRow.Copy DEST.Offset(-1, 0)

' MASQUAGE LA LIGNE "LIGNE_INVEST_MASQUEE"

Range("LIGNE_INVEST_MASQUEE").EntireRow.Hidden = True

'**********************************************************************************************
' CODAGE POUR AJOUTER UNE FEUILLE NOMMEE
'**********************************************************************************************

' POSE LA CONDITION DU CHANGEMENT DE VALEUR DANS LA COLONNE "CREATION FEUILLE"
' SI LA CONDITION EST EGALE A "O" ALORS ON COPIE LA FEUILLE "FEUILLE_EXEMPLE"

If Target.Value = "O" Then

    ' SELECTION DE LA FEUILLE "FEUILLE EXEMPLE"

    Sheets("FEUILLE EXEMPLE").Select

    ' COPIAGE DE LA FEUILLE EN INSERTION "APRES" LA FEUILLE "RECAPITULATIF"

    Sheets("FEUILLE EXEMPLE").Copy After:=Sheets("RECAPITULATIF")

    ' SELECTION DE LA FEUILLE CREE

    Sheets("FEUILLE EXEMPLE (2)").Select

    ' RENOMMAGE DE LA FEUILLE CREE AVEC LA VALEUR CONTENUE DANS LA COLONNE "H"

    [u]Sheets("FEUILLE EXEMPLE (2)").Name = DEST.Offset(1, 6).Value[/u]

End If

'*********************************************************************************************
' CODAGE POUR REDEFINIR LA PLAGE "PLAN_COMPTABLE_INVEST"
'*********************************************************************************************

With Range("PLAN_COMPTABLE_INVEST")

    .Resize(.Rows.Count + 1).Name = "PLAN_COMPTABLE_INVEST"

End With

'*********************************************************************************************
' CODAGE POUR REDEFINIR LA PLAGE "PLAN_NUMERAIRE"
'*********************************************************************************************

With Range("PLAN_NUMERAIRE")

    .Resize(.Rows.Count + 1).Name = "PLAN_NUMERAIRE"

End With

'*********************************************************************************************
' CODAGE POUR TRIER LES LIGNES DANS L'ORDRE DES NUMERO DE COMPTES
'*********************************************************************************************

' SELECTION DE LA PLAGE "PLAN_COMPTABLE_INVEST"

Range("PLAN_COMPTABLE_INVEST").Select

' DESACTIVE TOUT LES FILTRES DE LA FEUILLE "RECAPITULATIF"

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

' AJOUTE UN FILTRE SUR LA COLONNE "D" DANS L'ORDRE CROISSANT

ActiveWorkbook.Worksheets("RECAPITULATIF").Sort.SortFields.Add Key:=Range("PLAN_NUMERAIRE"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("RECAPITULATIF").Sort
        .SetRange Range("PLAN_COMPTABLE_INVEST")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

'**********************************************************************************************
' FIN DE CODE
'**********************************************************************************************

'SELECTION DE LA CELLULE DE LA COLLONNE "B" ET DE LA LIGNE INSEREE

DEST.Offset(-1, 1).Select

' ACTIVATION DE LA MISE A JOUR DE L'ECRAN ET DONNE UN SEUL CHANGEMENT DE CELUI-CI

Application.ScreenUpdating = True

' FERMETURE DE LA "SUB"

End Sub

et le fichier :

4tableau-de-suivi-v2-partage.xlsm (39.06 Ko)

Merci pour l'aide que vous pourrez m'apporter.

Bonne fin de journée.

Le 24/06/2018 à 18:30

Bonsoir,

J'ai réussi à résoudre mon problème.

Voici la parti du code qui est concernée :

'**********************************************************************************************
' CODAGE POUR AJOUTER UNE FEUILLE NOMMEE
'**********************************************************************************************

' POSE LA CONDITION DU CHANGEMENT DE VALEUR DANS LA COLONNE "CREATION FEUILLE"
' SI LA CONDITION EST EGALE A "O" ALORS ON COPIE LA FEUILLE "FEUILLE_EXEMPLE"

If Target.Value = "O" Then

    ' SELECTION DE LA FEUILLE "FEUILLE EXEMPLE"

    Sheets("FEUILLE EXEMPLE").Select

    ' COPIAGE DE LA FEUILLE EN INSERTION "APRES" LA FEUILLE "RECAPITULATIF"

    Sheets("FEUILLE EXEMPLE").Copy After:=Sheets("RECAPITULATIF")

    ' SELECTION DE LA FEUILLE CREE

    Sheets("FEUILLE EXEMPLE (2)").Select

    ' RENOMMAGE DE LA FEUILLE CREE AVEC LA VALEUR CONTENUE DANS LA COLONNE "H"

    Sheets("FEUILLE EXEMPLE (2)").Name = DEST.Offset(-2, 7).Value

    ' RETOUR SUR LA FEUILLE "RECAPITULATIF"

    Sheets("RECAPITULATIF").Select

End If

Bon aller faut encore avancé.

Bonne soirée.

Le 25/06/2018 à 09:21

Bonjour Kris, bonjour le forum,

Une règle d'or en VBA c'est d'éviter autant que tu le peux les Select inutiles. Il sont source de plantages et ralentissent considérablement l'exécution du code. Ensuite, à la création d'un onglet, ce dernier est toujours l'onglet actif donc tu peux utiliser ActiveSheet pour le désigner. Ton code amélioré :

If Target.Value = "O" Then
   Sheets("FEUILLE EXEMPLE").Copy After:=Sheets("RECAPITULATIF")
   Activesheet.Name = DEST.Offset(-2, 7).Value
End If
Le 25/06/2018 à 20:06

Bonsoir Tauthème,

J'ai amélioré un peu le tableau et j'essai d'appliquer les différents codes mais là j'ai un soucis au moment de renommer la feuille, le code se bloque. Je n'arrive pas à le débloquer.

Je ne sais plus quoi faire.

Voici le fichier :

12tableau-de-suivi-v2-partage.xlsm (46.71 Ko)

Je vais encore essayé de débloquer cela.

Merci Tauthème pour le code version simplifié.

Bonne soirée.

Le 26/06/2018 à 10:04

Re,

Merci Tauthème pour le code version simplifié.

Pourquoi ne pas l'utiliser alors ?!...Où est ton problème ?...

Sub DUPLIQUER_FEUILLE_EXEMPLE()
Sheets("FEUILLE EXEMPLE").Copy Before:=Sheets(2)
ActiveSheet.Name = "606800"
End Sub

Il est toujours compliqué de renommer un fichier avec le contenu d'une cellule. Si tu veux éviter le moindre planton il faudrait vérifier si cette cellule ne contient pas de caractères interdits comme "/", "\", "*", "?", etc... ou un nom déjà utilisé par une autre onglet...

Le 26/06/2018 à 19:57

Bonsoir Tauthème,

Oui en effet je viens de vérifier le fichier et c'est pas celui que j'ai corrigé.

Le voici, désolé :

4tableau-de-suivi-v2-partage.xlsm (40.83 Ko)

Après effectivement je viens de trouver mon erreur.

J'ai modifié la feuille "RECAPITULATIF". Je voulais ajouter plusieurs tableaux et quand je testais, je n'ai pas fait attention que la ligne insérée était dans le dernier tableau ce qui fait qu'à un moment la cellule désignée était vide.

Maintenant faut juste que je trouve le moyen de mieux ciblé la zone que je veux. Par exemple, sur ma feuille "RECAPITULATIF", j'ai trois tableaux.

Il faudrait tout d'abord que je cible le tableau dans lequel la cellule active se trouve.

Puis j'exécute le code dans ce tableau ou la zone que représente le tableau. La nouvelle ligne serait alors inséré dans le tableau ciblé.

sachant que le tableau ciblé peut-être le premier, le deuxième ou le troisième.

Je vais travaillé la dessus en espérant y arriver.

Bonne soirée.

Le 27/06/2018 à 11:05

Re,

Visiblement tu ne tiens aucun compte des conseils donnés. Donc je ne tiendrai, non plus, aucun compte de tes posts a l'avenir...

Le 27/06/2018 à 11:38

Bonjour Tauthème,

Je ne comprends pas, je viens de vérifier et j'ai bien changer le code comme tu m'as dit. Ce qui fait que ça allège le code c'est vrai.

Je ne l'ai pas mis en "Sub" mais directement dans le code. Me conseillerais tu plutôt de définir des "Sub" en séparer et de les appeler seulement quand j'en ai besoin dans l'exécution du code ?

'**********************************************************************************************
' CODAGE POUR AJOUTER UNE FEUILLE NOMMEE
'**********************************************************************************************

' POSE LA CONDITION DU CHANGEMENT DE VALEUR DANS LA COLONNE "CREATION FEUILLE"
' SI LA CONDITION EST EGALE A "O" ALORS ON COPIE LA FEUILLE "FEUILLE_EXEMPLE"

If Target.Value = "O" Then

    ' COPIAGE DE LA FEUILLE EN INSERTION "APRES" LA FEUILLE "RECAPITULATIF"

    Sheets("FEUILLE EXEMPLE").Copy After:=Sheets("RECAPITULATIF")

    ' RENOMMAGE DE LA FEUILLE CREE AVEC LA VALEUR CONTENUE DANS LA COLONNE "H"

    ActiveSheet.Name = DEST.Offset(-2, 8).Value

    ' RETOUR SUR LA FEUILLE "RECAPITULATIF"

    'Sheets("RECAPITULATIF").Select

End If

J'ai également réussi à comprendre d'où venait mon erreur sur l’exécution du code grâce à toi, j'avoue car tu m'as apporter une nouvelle logique. Il ne faut pas que je prenne ma logique mais la logique d'excel.

Sinon j'ai trouvé le code suivant pour dire que si la cellule active est dans ma plage "TABLEAU_1" alors j'exécute le code sur ce tableau :

If Not Application.Intersect(ActiveCell, Range("TABLEAU_1") Is Nothing Then

Est-ce que j'aurais raison d'avancer dans cette direction ? Mais dans ce cas je doit redéfinir la dernière ligne du tableau pour insérer une nouvelle ligne, non ?

Bonne journée à tous.

Le 27/06/2018 à 22:05

Bonsoir à tout le forum,

Je n'arrive pas dans mon code a trouver la dernier ligne remplie sur une plage de cellule données.

Je m'explique, j'ai une plage nommée "TABLEAU_1" et je voudrais trouver la dernière ligne de cette plage.

'**********************************************************************************************
'CODAGE SUR LE CHANGEMENT DE VALEUR
'**********************************************************************************************

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DEST As Range

' DESACTIVATION DE LA MISE A JOUR DE L'ECRAN
' CELA PERMET QUE NE PAS VOIR L'ECRAN TREMBLE LORSQUE LE CODE S'EXECUTE

'Application.ScreenUpdating = False

' POSE LA CONDITION DE CONTROLE SEULEMENT SUR LA COLONNE "CREATION FEUILLE"
' SI LA CONDITION N'EST PAS REMPLIE ALORS ON SORT DE LA "SUB"

If Target.Column <> 23 Then Exit Sub

' POSE LA CONDITION DU CHANGEMENT DE VALEUR DANS LA COLONNE "CREATION FEUILLE"
' SI LA CONDITION EST EGALE A RIEN ALORS ON SORT DE LA SUB

If Target.Value = "" Then Exit Sub

' POSE LA CONDITION QUE LA CELLULE ACTIVE EST DANS LA PLAGE DU "TABLEAU_1"
' SI LA CELLULE ACTIVE EST DANS LA PLAGE DU "TABLEAU_1" ALORS

If Not Application.Intersect(ActiveCell, Range("TABLEAU_1")) Is Nothing Then

'********************************************************************************************
' CODAGE SUR L'INSERTION D'UNE LIGNE
'********************************************************************************************

' DECLARE LA DONNEE DE LA VARIABLE ICI ELLE DONNE LA POSITION DE MA VARIABLE :
' LA COLONNE "B", LIGNE EN DESSOUS DE LA CELLULE DONT LA VALEUR EST DIFFERENTE DE ZERO

Set DEST = Cells(Application.Range("TABLEAU_1").Rows.Count, 2).End(xlUp).Offset(0, -1)

' INSERT UNE LIGNE ENTIERE

DEST.EntireRow.Insert

' SELECTION DE LA CELLULE CIBLEE EN VARIABLE

DEST.Select

Je vais continuer mes recherches en espérant trouver une solution.

Bonne soire à tous.

Le 30/06/2018 à 18:05

Bonjour à tous,

Est-ce que quelqu'un pourrais m'aider, s'il vous plait ?

J'ai essayé de mettre le code suivant pour trouver la dernière ligne d'une plage de cellule mais j'ai une incompatibilité de type.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DERNLIGN As Range

' DESACTIVATION DE LA MISE A JOUR DE L'ECRAN
' CELA PERMET QUE NE PAS VOIR L'ECRAN TREMBLE LORSQUE LE CODE S'EXECUTE

'Application.ScreenUpdating = False

' POSE LA CONDITION DE CONTROLE SEULEMENT SUR LA COLONNE "CREATION FEUILLE"
' SI LA CONDITION N'EST PAS REMPLIE ALORS ON SORT DE LA "SUB"

If Target.Column <> 23 Then Exit Sub

' POSE LA CONDITION DU CHANGEMENT DE VALEUR DANS LA COLONNE "CREATION FEUILLE"
' SI LA CONDITION EST EGALE A RIEN ALORS ON SORT DE LA SUB

If Target.Value = "" Then Exit Sub

' POSE LA CONDITION QUE LA CELLULE ACTIVE EST DANS LA PLAGE DU "TABLEAU_1"
' SI LA CELLULE ACTIVE EST DANS LA PLAGE DU "TABLEAU_1" ALORS

If Not Application.Intersect(ActiveCell, Range("TABLEAU_1")) Is Nothing Then

'********************************************************************************************
' CODAGE SUR L'INSERTION D'UNE LIGNE
'********************************************************************************************

' DECLARE LA DONNEE DE LA VARIABLE ICI ELLE DONNE LA POSITION DE MA VARIABLE :
' LA COLONNE "B", LIGNE EN DESSOUS DE LA CELLULE DONT LA VALEUR EST DIFFERENTE DE ZERO

Set DERNLIGN = Range("TABLEAU_1").Find("*", , , , xlByRows, xlPrevious).Row

' INSERT UNE LIGNE ENTIERE

DEST.EntireRow.Insert

' SELECTION DE LA CELLULE CIBLEE EN VARIABLE

DEST.Select

Si quelqu'un pourrait m'éclairer sur ce sujet.

Bonne fin de journée.

Le 01/07/2018 à 11:25

Bonjour à tous,

Après avoir essayé plusieurs solutions sans succès, j'ai réussi à écrire le code suivant.

Je rappelle que je cherchais à insérer une ligne à la fin d'un tableau de ma feuille "RECAPITULATIF". Sachant que dans cette feuille j'avais plusieurs tableaux indépendant les uns des autres. Je voulais insérer une ligne dans l'un d'eux par rapport à une saisie. J'ai obtenu le code suivant mais je pense qu'il peut être amélioré.

'**********************************************************************************************
'CODAGE SUR LE CHANGEMENT DE VALEUR
'**********************************************************************************************

Private Sub Worksheet_Change(ByVal Target As Range)

Dim CELLULECIBLE As Range
Dim CELLULECOPIE As Range

' DESACTIVATION DE LA MISE A JOUR DE L'ECRAN
' CELA PERMET QUE NE PAS VOIR L'ECRAN TREMBLE LORSQUE LE CODE S'EXECUTE

'Application.ScreenUpdating = False

' POSE LA CONDITION DE CONTROLE SEULEMENT SUR LA COLONNE "CREATION FEUILLE"
' SI LA CONDITION N'EST PAS REMPLIE ALORS ON SORT DE LA "SUB"

If Target.Column <> 23 Then Exit Sub

' POSE LA CONDITION DU CHANGEMENT DE VALEUR DANS LA COLONNE "CREATION FEUILLE"
' SI LA CONDITION EST EGALE A RIEN ALORS ON SORT DE LA SUB

If Target.Value = "" Then Exit Sub

' POSE LA CONDITION D'EGALITE A LA LETTRE O POUR OUI
' SI LA CONDITION EST EGALE A O ALORS LA SUITE DU CODE S'EXECUTE

If Target.Value = "O" Then

'********************************************************************************************
' CODAGE SUR L'INSERTION D'UNE LIGNE
'********************************************************************************************

' DECLARE LA DONNEE DE LA VARIABLE ICI ELLE DONNE LA POSITION DE MA VARIABLE :
' LA VARIABLE ETANT LA CELLULE ACTIVE ON LA DEFINIE PAR LA POSITION DE CELLE-CI
' ICI ON CIBLE LA CELLULE EN COLONNE "B" DE LA LIGNE DE DESSOUS

Set CELLULECIBLE = ActiveCell.Offset(1, -22)

' INSERTION D'UNE LIGNE ENTIERE

CELLULECIBLE.EntireRow.Insert

' SELECTION DE LA CELLULE CIBLEE EN VARIABLE

CELLULECIBLE.Offset(-1, 0).Select

Je vous remercie pour l'aide apportée.

Bonne journée.

Rechercher des sujets similaires à "nouveau projet"