Discussion :

[dubdub22]

Bonsoir à toutes et tous,

Tout d'abord, le mois de janvier n'étant pas encore fini, je vous souhaite à toutes et tous une bonne année 2014, et beaucoup de sujets à résoudre.

Maintenant voici mon problème.

J'ai une feuille sur laquelle je veux ajouter une ligne si une cellule contient un chiffre.

Plus précisément voila ce que cela donne:

J'ai une cellule " O5 " qui peut contenir soit un "1" soit un " 0 ".

Si c'est " 0 ", je voudrais qu'il n'y ait aucune action.

Si c'est un " 1 " je voudrais insérer une ligne sur l'ensemble de la ligne 16, et qu'ensuite la valeur se trouvant en "C4 " soit copiée en "K16", et les valeurs se trouvant de " P3 à AI3 " soient copiées de " M16 à AF16 ".

Je vous remercie d'avance de votre aide.

Cordialement

Dubdub22

[nibledispo]

Bonjour,

Regarde si ceci peut te convenir.
Ce code réagit dès que tu mets 1 dans la cellule O5. (événementiel)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub worksheet_change(ByVal target As Range)
If target.Address = "$O$5" Then
    If [O5] = 1 Then
        Application.EnableEvents = False
        Rows("16:16").Insert Shift:=xlDown
        Range("C4").Copy Range("K16")
        Range("P3:AI3").Copy Range("M16")
        Application.EnableEvents = True
    End If
End If
End Sub

Cordialement,

[dubdub22]

Bonjour nibledispo,

Le code que tu m'as transmis fonctionne bien, mais ne répond que partiellement à ce que je recherche.

Je m'explique, il me copie bien ce que je demande, mais il me recopie également les formules avec, (mais dans ma demande je n'avais pas précisé qu'il y avait des formules que je ne veux pas recopier, mes excuses pour ce manque), ce qui fait qu'automatiquement lorsque j'ai le résultat "0", tout s'efface, alors qu'au contraire je voudrais garder les données recopiées, c'est pour cela que je voudrais également qu'il me rajoute une ligne avant de coller les valeurs dans les cellules demandées, cela me permettrait d'avoir les dernières valeurs enregistrées en première ligne, et de pouvoir comparer ensuite avec les précédentes.

Merci de t'être penché sur mon problème, et si tu as une nouvelle formule je suis toujours preneur.

Cordialement

Dubdub22

[dubdub22]

Re bonjour nibledispo,

Voila, j'ai apporté quelques petites modifs à ton code (à l'aide de macros excel) que je te joints,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub worksheet_change(ByVal target As Range)
If target.Address = "$O$5" Then
    If [O5] = 1 Then
        Application.EnableEvents = False
    Rows("16:16").Insert Shift:=xlDown
 
 
 
    Range("C4").Copy
 
    Range("K16").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
 
    Range("P4:AI4").Copy
 
    Range("M16").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.EnableEvents = True
   End If
End If
End Sub

mais j'ai un souci qui est le suivant:

"O5" est le résultat d'une formule =somme(P5:AI5) , alors si je laisse la formule il n'y a aucune action, même si le résultat de "O5" change, mais si je le mets à la main là, j'obtiens ce que je désire.

Connais-tu les raisons et,aurais-tu la solution à ce problème ?
J'aimerais bien que le résultat de "O5" se fasse automatiquement, car j'ai plus de 50 feuilles à faire comme cela.

Merci d'avance

Cordialement

Dubdub22

[nibledispo]

bonjour,

je n'ai pour l'heure pas de réponse.
en attendant une idée lumineuse simplifie l'écriture de ton code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub worksheet_change(ByVal target As Range)
 
If target.Address = "$o$5" Then
 
    If [o5] = 1 Then
        Application.EnableEvents = False
        Rows("16:16").Insert Shift:=xlDown
        Range("C4").Copy
        Range("K16").PasteSpecial Paste:=xlPasteValues
        Range("P3:AI3").Copy
        Range("M16").PasteSpecial Paste:=xlPasteValues
        Application.EnableEvents = True
    End If
End If
End Sub

Cordialement,

[Philippe Tulliez]

Bonjour,
Il y a quelque chose qui m'échappe entre ce que tu écris

"O5" est le résultat d'une formule =somme(P5:AI5) , alors si je laisse la formule il n'y a aucune action, même si le résultat de "O5" change, mais si je le mets à la main là, j'obtiens ce que je désire.

et cette partie de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub worksheet_change(ByVal target As Range)
If target.Address = "$O$5" Then
If [O5] = 1 Then

Le changement du résultat d'une formule ne déclenche pas la procédure événementielle worksheet_change et si on écrit dans la cellule O5 on écrase forcément la formule.