Insérer une ligne à chaque changement de valeur

Valeur

zai_1989 Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
gyrus - 7 sept. 2019 à 09:55

bonjour
je suit débutent en vba .
je cherche une code VBA qui me permette d' insérer 2 lignes à chaque changement de valeur de la cellule colonne A et copier la formule exemple et la 1er cellule :

//////////////////////////////////////////////////////////////
/ / A / B / C / D /
/////////////////////////////////////////////////////////////
/ 1/PH1 /=C1+D1 / 5 / 6 /
////////////////////////////////////////////////////////////
/2/PH2 /=C2+D2 / 8 / 7 /
///////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////
/ /...A...../....B......./ C..../....D.... /
/////////////////////////////////////////////////////////////
/ 1/PH1 /=C1+D1 /.... 5 ... / 6 /
////////////////////////////////////////////////////////////
/2/PH1 /=C2+D2 /............/.............../
///////////////////////////////////////////////////////////
/3/PH1 /=C3+D3 /............/.............../
///////////////////////////////////////////////////////////
/4/PH2 /=C4+D4 / 8 / 7 /
///////////////////////////////////////////////////////////

A voir également:

Excel insérer une ligne à chaque changement de valeur
Aller à la ligne excel - Guide
Insérer liste déroulante excel - Guide
Insérer une vidéo dans powerpoint - Guide
Partage de photos en ligne - Guide
Changer de dns - Guide

2 réponses

Réponse 1 / 2

Zoul67 Messages postés 1959 Date d'inscription Statut Membre Dernière intervention 149

Bonjour,

Si PH1 est forcément différent de PH2 :

Sub Insertion(l As Integer)
    Cells(l + 1, 1).EntireRow.Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Cells(l + 1, 1).Value = Cells(l, 1).Value
    Cells(l + 2, 1).Value = Cells(l, 1).Value
End Sub

Sub a()
    Der = Range("A65536").End(xlUp).Row
    For l = Der To 1 Step -1
        Insertion (l)
    Next l
    DerN = Range("A65536").End(xlUp).Row
    Range("B1").Select
    Selection.AutoFill Destination:=Range("B1:B" & DerN), Type:=xlFillDefault
End Sub

zai_1989 Messages postés 12 Date d'inscription Statut Membre Dernière intervention

merci zoul67
il faut copier juste le formule et le 1er cellule de line i :( et aussi inséré les ligne a chaque changement de la contenu de 1er celulle

Réponse 2 / 2

gyrus

Bonjour,

Essaie avec

Sub Test()
Dim Ligne As Long
    For Ligne = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        If Range("A" & Ligne - 1).Value <> Range("A" & Ligne).Value Then
            Rows(Ligne).Resize(2).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Cells(Ligne - 1, 1).Resize(, 2).Copy Cells(Ligne, 1).Resize(2, 2)
        End If
    Next Ligne
End Sub

Cordialement.

zai_1989 Messages postés 12 Date d'inscription Statut Membre Dernière intervention

bonjour gyrus
merci pour vous mai ca marche pas

gyrus

Bonjour

De mon côté, pas de souci. Il faut croire que tes explications n’ont pas suffi.
Voici mon fichier test.
https://www.cjoint.com/c/IIhh0YHaeWj

Pour avancer, il est souhaitable que tu mettes à disposition un fichier sans données confidentielles, en donnant toutes les explications utiles et en précisant clairement le résultat attendu.
Pour cela tu peux créer un lien de partage sur l'un de ces sites :
https://www.cjoint.com/
https://mon-partage.fr/

Cordialement

Discussions similaires

Identifier les valeurs en double dans les colonnes de plusieurs feuilles

Associer un numéro à un nom

faire apparaitre des valeurs sur google sheets

Rechercher un mot dans une plage de données et renvoyer 1 si texte trouvé.

Dans LibreOffice Cal comment calculer une valeur absolue ?

Afficher ou masquer des colonne en fonction des valeurs saisie dans une cellule

Votre réponse

Discussions similaires