Bonjour,
J'aimerais que les formules que j'ai en L4, M4 et N4 s'ajoute
automatiquement quand j'insere une ligne 5. Presentement je dois faire une
copie coller et si j'oublie cela fausse les statistiques.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
http://cjoint.com/?hug3tAAGEU
Recopie la ligne du dessus lors d'une nouvelle saisie en colonne A:
Dim témoin Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 And Target.Row > 2 Then If IsEmpty(Target.Offset(0, 1)) And Not IsEmpty(Target.Offset(-1, 0)) And témoin = False Then témoin = True sauv = Target n = Target.Offset(-1, 0).CurrentRegion.Columns.Count Target.Offset(-1, 0).Resize(1, n).Copy Target On Error Resume Next Target.Resize(1, n).SpecialCells(xlCellTypeConstants, 23).ClearContents Target = sauv témoin = False End If End If End Sub
Cordialement JB
Bonjour, J'aimerais que les formules que j'ai en L4, M4 et N4 s'ajoute automatiquement quand j'insere une ligne 5. Presentement je dois faire une copie coller et si j'oublie cela fausse les statistiques.
Merci de votre aide. Josée
Bonjour,
http://cjoint.com/?hug3tAAGEU
Recopie la ligne du dessus lors d'une nouvelle saisie en colonne A:
Dim témoin
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 And Target.Row > 2 Then
If IsEmpty(Target.Offset(0, 1)) And Not IsEmpty(Target.Offset(-1,
0)) And témoin = False Then
témoin = True
sauv = Target
n = Target.Offset(-1, 0).CurrentRegion.Columns.Count
Target.Offset(-1, 0).Resize(1, n).Copy Target
On Error Resume Next
Target.Resize(1, n).SpecialCells(xlCellTypeConstants,
23).ClearContents
Target = sauv
témoin = False
End If
End If
End Sub
Cordialement JB
Bonjour,
J'aimerais que les formules que j'ai en L4, M4 et N4 s'ajoute
automatiquement quand j'insere une ligne 5. Presentement je dois faire une
copie coller et si j'oublie cela fausse les statistiques.
Recopie la ligne du dessus lors d'une nouvelle saisie en colonne A:
Dim témoin Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 And Target.Row > 2 Then If IsEmpty(Target.Offset(0, 1)) And Not IsEmpty(Target.Offset(-1, 0)) And témoin = False Then témoin = True sauv = Target n = Target.Offset(-1, 0).CurrentRegion.Columns.Count Target.Offset(-1, 0).Resize(1, n).Copy Target On Error Resume Next Target.Resize(1, n).SpecialCells(xlCellTypeConstants, 23).ClearContents Target = sauv témoin = False End If End If End Sub
Cordialement JB
Bonjour, J'aimerais que les formules que j'ai en L4, M4 et N4 s'ajoute automatiquement quand j'insere une ligne 5. Presentement je dois faire une copie coller et si j'oublie cela fausse les statistiques.
Merci de votre aide. Josée
josee
Je pense que j'ai trouver ou l'insérer dans le VBA. Il me reste seulement a trouver si il est mieux pour moisde le mettre dans la feuille (janvier) et copier cette feuille 12 fois pour chaque mois ou bien il est mieux de l'ajouter dans le This workbook.
Merci encore Josée
. "JB" wrote in message news: Bonjour,
http://cjoint.com/?hug3tAAGEU
Recopie la ligne du dessus lors d'une nouvelle saisie en colonne A:
Dim témoin Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 And Target.Row > 2 Then If IsEmpty(Target.Offset(0, 1)) And Not IsEmpty(Target.Offset(-1, 0)) And témoin = False Then témoin = True sauv = Target n = Target.Offset(-1, 0).CurrentRegion.Columns.Count Target.Offset(-1, 0).Resize(1, n).Copy Target On Error Resume Next Target.Resize(1, n).SpecialCells(xlCellTypeConstants, 23).ClearContents Target = sauv témoin = False End If End If End Sub
Cordialement JB
Bonjour, J'aimerais que les formules que j'ai en L4, M4 et N4 s'ajoute automatiquement quand j'insere une ligne 5. Presentement je dois faire une copie coller et si j'oublie cela fausse les statistiques.
Merci de votre aide. Josée
Je pense que j'ai trouver ou l'insérer dans le VBA.
Il me reste seulement a trouver si il est mieux pour moisde le mettre dans
la feuille (janvier) et copier cette feuille 12 fois pour chaque mois ou
bien il est mieux de l'ajouter dans le This workbook.
Merci encore Josée
. "JB" <boisgontier@hotmail.com> wrote in message
news:1153371349.414108.62800@b28g2000cwb.googlegroups.com...
Bonjour,
http://cjoint.com/?hug3tAAGEU
Recopie la ligne du dessus lors d'une nouvelle saisie en colonne A:
Dim témoin
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 And Target.Row > 2 Then
If IsEmpty(Target.Offset(0, 1)) And Not IsEmpty(Target.Offset(-1,
0)) And témoin = False Then
témoin = True
sauv = Target
n = Target.Offset(-1, 0).CurrentRegion.Columns.Count
Target.Offset(-1, 0).Resize(1, n).Copy Target
On Error Resume Next
Target.Resize(1, n).SpecialCells(xlCellTypeConstants,
23).ClearContents
Target = sauv
témoin = False
End If
End If
End Sub
Cordialement JB
Bonjour,
J'aimerais que les formules que j'ai en L4, M4 et N4 s'ajoute
automatiquement quand j'insere une ligne 5. Presentement je dois faire une
copie coller et si j'oublie cela fausse les statistiques.
Je pense que j'ai trouver ou l'insérer dans le VBA. Il me reste seulement a trouver si il est mieux pour moisde le mettre dans la feuille (janvier) et copier cette feuille 12 fois pour chaque mois ou bien il est mieux de l'ajouter dans le This workbook.
Merci encore Josée
. "JB" wrote in message news: Bonjour,
http://cjoint.com/?hug3tAAGEU
Recopie la ligne du dessus lors d'une nouvelle saisie en colonne A:
Dim témoin Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 And Target.Row > 2 Then If IsEmpty(Target.Offset(0, 1)) And Not IsEmpty(Target.Offset(-1, 0)) And témoin = False Then témoin = True sauv = Target n = Target.Offset(-1, 0).CurrentRegion.Columns.Count Target.Offset(-1, 0).Resize(1, n).Copy Target On Error Resume Next Target.Resize(1, n).SpecialCells(xlCellTypeConstants, 23).ClearContents Target = sauv témoin = False End If End If End Sub
Cordialement JB
Bonjour, J'aimerais que les formules que j'ai en L4, M4 et N4 s'ajoute automatiquement quand j'insere une ligne 5. Presentement je dois faire une copie coller et si j'oublie cela fausse les statistiques.
