insertion ligne

[manuBX]

Bonjour

je coince sur la réalisation de macro
si on peut m aider MERCI

il s agit d ajouter la copie des 3 dernieres lignes avant le 2 de la cellule de la colonne A et de les coller avant le 2 de la colonne A à l aide d un bouton
en supprimant le contenu des cellules b f g i k de la premiere ligne des 3
Il s agit de masquer et démasquer entre 1 et 2 de la cellule de la colonne A à l aide de bouton

Bien entendu comme on ajoute des lignes ce n est pas les memes N° de ligne
MERCI
A+

 

[Paritec]

Re : insertion ligne

Bonsoir Manu le forum,
j'ai sorti la boule de cristal et malgré cela je n'ai pas décodé la demande
il faut coller les trois lignes avant le 2 de la colonne A avant le 2 de la colonne A donc ne rien faire puisqu'elles y sont,????????
dans l'attente d'explications compréhensibles
bonne soirée
a+
Papou 🙂

 

[manuBX]

Re : insertion ligne

Bonsoir Papou
on va essayer simple on copie 3 lignes supplémentaires dont la forme et les formules sont identiques au 3 derniere avant le 2 de la colonne A
A+

 

[soenda]

Re : insertion ligne

Bonjour le fil, Paritec, manuBX

Pour la partie masquage (avec tes 2 boutons)

Sub BoutonMasquer()
    maSub True
End Sub
 
Sub BoutonDemasquer()
    maSub False
End Sub
 
Sub maSub(ByVal b As Boolean)
    On Error Resume Next
    With WorksheetFunction
        Rows(.Match(1, [A:A]) + 1 & ":" & .Match(2, [A:A]) - 1).EntireRow.Hidden = b
    End With
End Sub

Pour le reste, tout comme Paritec, j'ai pas compris.

A plus

 

[soenda]

Re : insertion ligne

Re,

Donc la partie copie (par exemple):

Sub Copie()
Dim deb As Long
 
On Error GoTo fin
deb = WorksheetFunction.Match(2, [A:A]) - 3
 
Rows(deb).Resize(3).Copy Rows(deb + 4)
 
fin:
End Sub

A plus

 

[Paritec]

Re : insertion ligne

Bonsoir Soenda manu, le forum,
oui moi j'aurais bien fait comme cela mais je ne pense pas que c'est ce qu'il veut enfin il nous dira.
a+
papou 🙂

 

[manuBX]

Re : insertion ligne

Bonsoir à tous
Masquer demasquer fonctionne
ce qu il me faut c est de copier les 3lignes avant le 2 et les insérer entreles lignes copie et le 2
EX Si les lignes à copier sont 20/21/22 AVANT LE 2 ligne 23 inserer entre 22 et 23 ET ELLE DEVIENDRONT 23/24/25 et le 2 devriendra 26 puis effacer le contenu des cellules b f g i k
Cordialement

 

[soenda]

Re : insertion ligne

Re,

Paritec, tu avais grandement raison ...
Le pire c'est que je ne sais toujours pas s'il faut effacer les celulles b f g i k, des lignes 20/21/22 ou des lignes 23/24/25 😀

en attendant, j'ai ajouté l'insertion

Sub InsertionCopie()
    Dim deb As Long
 
    On Error GoTo fin
    deb = WorksheetFunction.Match(2, [A:A])
 
    Rows(deb).Resize(3).Insert xlDown
    Rows(deb - 3).Resize(3).Copy Rows(deb)
 
fin:
End Sub

A plus

 

[manuBX]

Re : insertion ligne

Merci SOENDA
Effectivement l insertion fonctionne à l endroit voulu et il reste à effacer le contenu des celulles de la premiere ligne des trois en b f g i k qui viennent d etre crée
A+

 

[Paritec]

Re : insertion ligne

Bonjour Manu Soenda le forum
bah oui alors il faut le faire
a+
papou 🙂

Private Sub CommandButton1_Click()
    Dim deb As Long
    On Error GoTo fin
    deb = WorksheetFunction.Match(2, [A:A])

    Rows(deb).Resize(3).Insert xlDown
    Rows(deb - 3).Resize(3).Copy Rows(deb)
    Cells(deb, 2) = "": Cells(deb, 6) = "": Cells(deb, 7) = "": Cells(deb, 9) = "": Cells(deb, 11) = "":
fin:
End Sub

 

[manuBX]

Re : insertion ligne

C est çà
MERCI DE L AIDE
Merci SOENDA PAPOU et le Forum
Excel Week end
A+