Discussion :

[saman_all]

Bonjour,

Je suis en faite un peu bloquée car je n'arrive pas à trouver la Macro qu'il me faut:
voici ma macro actuelle:

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
Private Sub CheckBox1_Click()
 
 
If CheckBox1 = True Then
 
 
Worksheets("Messstellen").Range("A12:B15").Copy
 
With Sheets("Angebot")
Set x = .Range("A:L").Find("Bereiche")
End With
 
 
Worksheets("Angebot").Range("C" & x.Row + 2).Resize().Insert Shift:=xlDown
 
 
End If

C'une Macro toute simple pour copier et coller des cellules données. Le probleme c'est que j'ai besoin que toute la ligne se décale vers le bas pour garder ma mise en page telle qu'elle est. Or la ca me met toute ma mise en page dans le désordre, surtout mes cellule fusionnées.

pouriez vous m'aider s'il vous plait ?

[amnorian]

tente

Code :

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

Worksheets("Angebot").Range("C" & X.Row + 2).EntireRow.Resize().Insert Shift:=xlDown

ou

car je ne suis pas sur pour le resize

Code :

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

Worksheets("Angebot").Range("C" & X.Row + 2).EntireRow.Insert Shift:=xlDown

[saman_all]

Tout d'abord merci pour ta réponse,

mais la le probleme c'est que la macro recopie la valeur de la cellule dans toute les cellule de la ligne

[gFZT82]

Bonjour saman_all,

Je peux te proposer une solution à l’arraché, le forum pourra peut-être trouver un code plus élégant.
L’idée, c’est d’effectuer l’insertion du nombre de lignes vides correspondant au nombre de lignes de ta plage puis, dans un deuxième temps, de copier la plage.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CheckBox1_Click()
Dim MaPlage As Range, x As Range
    If CheckBox1 = True Then
        Set MaPlage = Worksheets("Messstellen").Range("A12:B15")
        With Sheets("Angebot")
            Set x = .Range("A:L").Find("Bereiche")
            .Range(.Cells(x.Row + 2, 1), .Cells(x.Row + 1 + MaPlage.Rows.Count, 1)).EntireRow.Insert Shift:=xlDown
            MaPlage.Copy Destination:=.Range("C" & x.Row + 2)
        End With
        Set x = Nothing
        Set MaPlage = Nothing
    End If
End Sub

Cordialement.

[mercatog]

Ou une autre proposition

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CheckBox1_Click()
Dim c As Range
 
If CheckBox1 = True Then
    With Sheets("Angebot")
        Set c = .Range("A:L").Find("Bereiche", lookat:=xlWhole)
        If Not c Is Nothing Then
            c.Offset(2, 0).EntireRow.Insert
            Worksheets("Messstellen").Range("A12:B15").Copy .Range("C" & c.Row + 2)
            Set c = Nothing
        End If
    End With
End If
End Sub

[saman_all]

Merci a vous tous