Discussion :

[saman_all]

Bonjour,

dans la piece jointe j'ai un fichier excel avec deus feuilles "devis" et une feuille "source".

dans la feuille source j'ai plusieurs parties, et dans chaque feuille devis j'ai creé une section ou on peux choisir la partie dont les detail du devis doivent s'inscrire.

j'ai reussi a recopier et exporter sur la feuille source les detail du devis2 dans la partie 1. mais je ne sais pas comment faire pour que le programme sache qu'ill doit descendre pour aller inscrire la suite des info dans la partie 2, 3 et ainsi de suite

merci bcp pour votre aide je compte vraiment sur vous.

[carden752]

Bonjour,

mais je ne sais pas comment faire pour que le programme sache qu'ill doit descendre pour aller inscrire la suite des info dans la partie 2, 3 et ainsi de suite

peut-être
1 - Recalculer le range de la source de manière à insérer les données à la position correspondante.
2 - Tester si les différentes parties sont vides ou pas avant l'insertion

[saman_all]

je ne saisi pas bien... est ce que vous pouvez me le réécrire? je vous serai vraiment très reconnaissante...

[casefayere]

Bonsoir,
en adaptant ce 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
17
18
19
20
21
22
23
24
25
26
27
Private Sub CommandButton1_Click()
Dim x As Range, derlg As Long, Partie As String
If CheckBox1.Value = False Or Worksheets("Devis2").Range("L3") = 1 Then
   Worksheets("Devis2").Range("B3:K6").Copy
   Worksheets("source").Range("B4").Resize().Insert Shift:=xlDown
End If
 
If CheckBox2.Value = False Or Worksheets("Devis2").Range("L7") = 1 Then
   Partie = "Partie 2"
   With Sheets("source")
      derlg = .Range("B" & .Rows.Count).End(xlUp).Row
      Set x = .Range("B2:K" & derlg).Find(Partie)
   End With
   Worksheets("Devis2").Range("B7:K10").Copy
   Worksheets("source").Range("B" & x.Row + 2).Resize().Insert Shift:=xlDown
End If
If CheckBox3.Value = False Or Worksheets("Devis2").Range("L11") = 1 Then
   Partie = "Partie 3"
   With Sheets("source")
      derlg = .Range("B" & .Rows.Count).End(xlUp).Row
      Set x = .Range("B2:K" & derlg).Find(Partie)
   End With
   Worksheets("Devis2").Range("B11:K14").Copy
   Worksheets("source").Range("B" & x.Row + 2).Resize().Insert Shift:=xlDown
End If
 
End Sub

A toi de faire les modifs

[saman_all]

Merci bcp pour cette réponse très efficace... j'avais mis trop de temps mais en vain...